Đăng bởi: vietnhok | Tháng Một 22, 2008

Lỗi trong lập trình Access

Khi chạy đoạn mã sau thì chương trình báo lỗi “Type mismatch”. Mình Debug thì lỗi phát sinh ở câu lệnh “Set rsDupkey = CurrentDb.OpenRecordset(strSQL)” mình không hiểu tại sao. Sau đây là đoạn mã chương trình Access:
Private Sub Form_BeforeUpdate(Cancel As Integer)
On Error GoTo Err_Click

Dim strSQL As String
Dim rsDupkey As Recordset

strSQL = “select ID from ComputerDetail where ComMark = ” &
ComputerMark.Value & ” and ” _
& ” Part = ‘” & Part.Value & “‘ “
Set rsDupkey = CurrentDb.OpenRecordset(strSQL)

rsDupkey.Close
Exit_Exit_Click:
Exit Sub

Err_Click:
If Err.Number > 0 Then
MsgBox Err.Description
End If
Resume Exit_Exit_Click

End Sub
Hồi âm:

Ban da viet sai cach trien khai cac ham trong lap trinh nen duong nhien toan bo lap trinh se khong chay duoc. Toi viet lap trinh nay de giai dap thay the cho lap trinh cua ban, va qua lap trinh duoi day ban se thay ro dau la nhung phan sai ma ban da vap phai trong khi viet lap trinh.

Theo vi du de dung menh de the IN clause de chi ra mot cai table (Customers) trong mot dBASE IV database (SALES):

SELECT
Customers.CustomerID
FROM Customers
IN “C:\DBASE\DATA\SALES” “dBASE IV;”
WHERE Customers.CustomerID Like “A*”

Trong Visual Basic, ban co the cau tao mot dynaset tu thi du o tren bang cach dung theo doan code VB chi dan o duoi day:

Dim db As
Database
Dim ds As Dynaset
Dim sql As String ‘ Open a database:
Set db = OpenDatabase(“C:\VB\BIBLIO.MDB”)
sql = “SELECT Customers.CustomerID, FROM Customers”
sql = sql & ” IN ‘C:\DBASE\DATA\SALES’ ‘dBASE IV;’”
sql = sql & ” WHERE Customers.CustomerID Like ‘A*’”

‘ Create the recordset:
Set ds = db.CreateDynaset(sql)

‘ Loop through and display the records:
While Not ds.EOF
For i = 0 To ds.Fields.Count – 1
Print ds(i); ” “;
Next i
Print
ds.MoveNext
Wend
Chuc ban vui ve!

Đăng bởi: vietnhok | Tháng Một 22, 2008

In danh sách tên Table

How to list All tables contained in a DatabaseYou may at some point want to view a list of all of the tables contained within your Microsoft Access Database. Using the following code will allow you to quickly view all of the database table names that are stored:

Public Sub ListTables()
     Dim i As Integer
    On Error Resume Next
   
    For i = 0 To CurrentDb.TableDefs.Count – 1
        Debug.Print “Table: ” & CurrentDb.TableDefs(i).Name
    Next
End Sub

If you now call ListTables from the Immediate window you’ll now see a full list of tables listed.

Đăng bởi: vietnhok | Tháng Một 21, 2008

Thủ thuật tải nhạc từ Tuổi Trẻ Media

Trang Tuổi trẻ Media (TTM) của báo Báo tuổi trẻ thu hút rất nhiều đọc giả bởi chương trình vừa hay, nhạc lại chất lượng. Tuy TTM cho phép người dùng tải nhạc trên trang này nhưng có một số lại không có link down về. Mình sẽ mách cho bạn cách chế biến để tải các file media từ trang này…..

Bước 1: Bạn vào trang http://www3.tuoitre.com.vn/media/ và chọn bài hát nào bạn thích để nghe. Mình chọn bài Ngày xưa Hoàng Thị (Bài này đứng top!):)

Bước 2: Copy đoạn Code này:

javascript:alert(document.getElementById(“MediaPlayer”).innerHTML)

và Past vào thanh Address đè lên địa chỉ http://www3.tuoitre.com.vn/media/…. Nhấn Enter.

Image

Bạn sẽ thấy một bảng xuất hiện. Hãy tìm trong bảng này từ Song=xxxx với xxxx là những con số. Ghi lại con số này. Với bài Ngày xưa Hoàng Thị, mình tìm được code của nó là: 3052

Image

Update:

Để lấy Code của Video Clip bạn tìm dòng Playlist.aspx?Media=xxxx Trong đó xxxx là mã số code cả Video clip đó!

Bước 3: Nhập số 3052 này vào ô bên dưới và nhấp nút Lấy code…

function glink(){ songcode=document.getElementById(“txtsongcode”).value; document.getElementById(“songlink”).innerHTML=’

‘+’Save Link here….

‘; } function gvlink(){ vcode=document.getElementById(“txtvcode”).value; document.getElementById(“songlink”).innerHTML=’

‘+’Save Link here….

‘; }

===========================

Bước 4: Nhấp chuột phải lên dòng Save link here…. >> Chọn Save Target as (đối với IE) hay Save link as (đối với FireFox) >> Chọn nơi lưu trữ. Mình chọn ổ đĩa D:\ và đặt tên là “Playlist.txt” >> Nhấp nút Save.

Image

Bước 5: Mở file Playlist.txt lên, bạn sẽ tìm thấy những link tới bài hát!

<ASX version=”3.0″>
<TITLE>TTO Online Media List</TITLE>
<AUTHOR>Tuoi Tre Online</AUTHOR><ENTRY>
<REF href=”mms://media.tuoitre.com.vn/Stream/music/pnp45-ngayxuahoangthi.wma” />
</ENTRY></ASX>

Giờ thì tải chương trình GigaGet http://gigaget.com/setup.exe, cài đặt và tải về!

Đăng bởi: vietnhok | Tháng Một 17, 2008

Người Việt ngày nay !

Theo điều tra khảo sát thực tế của người Việt:

1. Ai cũng có việc làm nhưng không ai làm việc.

2. Ai cũng không làm việc nhưng ai cũng có lương.

3. Ai cũng có lương nhưng không ai đủ sống.

4. Ai cũng không đủ sống nhưng ai cũng sống.

5. Ai cũng sống nhưng không ai hài lòng.

6. Ai cũng không hài lòng nhưng ai cũng giơ tay “đồng ý”!

Và: Giàu thì đi xe hơi uống bia ôm – Còn Nghèo đi xe ôm uống bia hơi

Đời nó thế, toàn nghịch lí cả!

Đăng bởi: vietnhok | Tháng Một 16, 2008

Cụ bà Đặng Thị Nài bị con cháu hành hung mà mất

Thưa các bạn, sự việc của cụ bà Đặng Thị Nài đã được nhiều độc giả quan tâm, bày tỏ thái độ căm phẫn trước hành động của những kẻ mang danh là con cháu của cụ, những kẻ được đứng vào vị trí dạy dỗ con người (giáo viên), có tên trong cơ quan hành chánh nhà nước mà có những hành vi vô đạo đức.

http://www1.thanhnien.com.vn/Chaobuoisang/2008/1/13/222422.tno

Hành vi của chúng rõ ràng là đã vi phạm Luật Hôn nhân và gia đình, cụ thể là Chương 1, khoản 4:

“Cha mẹ có nghĩa vụ nuôi dạy con thành công dân có ích cho xã hội; con có nghĩa vụ kính trọng, chăm sóc, nuôi dưỡng cha mẹ; cháu có nghĩa vụ kính trọng, chăm sóc, phụng dưỡng ông bà; các thành viên trong gia đình có nghĩa vụ quan tâm, chăm sóc, giúp đỡ nhau.”

+ Hành vi của 2 vợ chồng ông Thừa, bà Tầm đã vi phạm nghiêm trọng điều Điều 35:
“Nghĩa vụ và quyền của con: Con có bổn phận yêu quý, kính trọng, biết ơn, hiếu thảo với cha mẹ, lắng nghe những lời khuyên bảo đúng đắn của cha mẹ, giữ gìn danh dự, truyền thống tốt đẹp của gia đình.Con có nghĩa vụ và quyền chăm sóc, nuôi dưỡng cha mẹ.”Điều 36, khoản 2:

“Con có nghĩa vụ và quyền chăm sóc, nuôi dưỡng cha mẹ, đặc biệt khi cha mẹ ốm đau, già yếu, tàn tật; trong trường hợp gia đình có nhiều con thì các con phải cùng nhau chăm sóc, nuôi dưỡng cha mẹ.

Nghiêm cấm con có hành vi ngược đãi, hành hạ, xúc phạm cha mẹ.”

+ Hành vi của 2 kẻ Hiếu Hiền, mang danh “giáo viên” thật đáng lên án, ông bà ta đã từng dạy bảo những kẻ vô lễ, trịnh thượng,… với câu nói “Giáo của anh chị chỉ để bẻ măng” (ngụ ý rằng, giáo ở đây chỉ là 1 loại công cụ nhà nông, chỉ dùng để bẻ/ chặt măng trong bụi tre mà tay người không thể với tới được) để chửi một cách sâu sắc và thâm thúy những kẻ mang danh là “có giáo dục” mà như “có giáo mác” tầm thường.Hành vi của chúng rõ ràng vi phạm vào Chương V, Điều 47, Khoản 2:

“Cháu có bổn phận kính trọng, chăm sóc, phụng dưỡng ông bà nội, ông bà ngoại.”

Điều 49.

“Quan hệ giữa các thành viên trong gia đình

1. Các thành viên cùng sống chung trong gia đình đều có nghĩa vụ quan tâm, giúp đỡ nhau, cùng nhau chăm lo đời sống chung của gia đình, đóng góp công sức, tiền và tài sản khác để duy trì đời sống chung phù hợp với thu nhập, khả năng thực tế của mình.

Các thành viên trong gia đình có quyền được hưởng sự chăm sóc, giúp đỡ nhau. Quyền, lợi ích hợp pháp của các thành viên trong gia đình được tôn trọng và được pháp luật bảo vệ.

2. Nhà nước khuyến khích và tạo điều kiện để các thế hệ trong gia đình chăm sóc, giúp đỡ nhau nhằm giữ gìn và phát huy truyền thống tốt đẹp của gia đình Việt Nam.”

+ Về khía cạnh hình sự, hành vi của ông Thừa, bà Tầm, vợ chồng Hiếu Hiền đã đủ căn cứ xử lý theo quy định của Bộ luật hình sự năm 1999, Điều 104 có quy định cụ thể về tội cố ý gây thương tích hoặc gây tổn hại cho sức khoẻ của người khác :

“1. Người nào cố ý gây thương tích hoặc gây tổn hại cho sức khỏe của người khác mà tỷ lệ thương tật từ 11% đến 30% hoặc dưới 11% nhưng thuộc một trong các trường hợp sau đây, thì bị phạt cải tạo không giam giữ đến ba năm hoặc phạt tù từ sáu tháng đến ba năm:

b) Gây cố tật nhẹ cho nạn nhân;

c) Phạm tội nhiều lần đối với cùng một người hoặc đối với nhiều người;

d) Đối với trẻ em, phụ nữ đang có thai, người già yếu, ốm đau hoặc người khác không có khả năng tự vệ;

đ) Đối với ông, bà, cha, mẹ, người nuôi dưỡng, thầy giáo, cô giáo của mình;

Hành vi này chưa chắc là vô ý đâu, giờ đây cụ bà đã mất, người ta muốn nói gì chả được, theo nghiên cứu của y khoa thì ít có người sống quá 1 năm khi bị gãy cổ xương đùi (tỉ lệ thương tật của cụ bà phải được giám định cụ thể mới xác định được, tuy nhiên tỉ lệ thông thường thì gãy chân (12%) đã đủ căn cứ xử lý hình sự).

Ngoài ra, hành động của bọn chúng làm cụ bà vĩnh viễn ra đi có mối quan hệ nhân quả giữa hành vi và hậu quả:

2. Phạm tội gây thương tích hoặc gây tổn hại cho sức khỏe của người khác mà tỷ lệ thương tật từ 31% đến 60% hoặc từ 11% đến 30%, nhưng thuộc một trong các trường hợp quy định tại các điểm từ điểm a đến điểm k khoản 1 Điều này, thì bị phạt tù từ hai năm đến bảy năm.

3. Phạm tội gây thương tích, gây tổn hại cho sức khỏe của người khác mà tỷ lệ thương tật từ 61% trở lên hoặc dẫn đến chết người hoặc từ 31% đến 60%, nhưng thuộc một trong các trường hợp quy định tại các điểm từ điểm a đến điểm k khoản 1 Điều này, thì bị phạt tù từ năm năm đến mười lăm năm.”

Hoặc ít ra cũng phải bị xử lý theo Điều 110 qui định về tội hành hạ người khác: “Theo đó, hành hạ người khác là hành vi của một người đối xử tàn ác với người lệ thuộc mình, như gây đau đớn về thể xác hoặc đè nén, áp bức về tinh thần người bị lệ thuộc bằng các hành vi: Đánh đập, giam hãm, không cho ra khỏi nhà, bắt nhịn ăn, uống, không cho mặc đủ ấm…”

Từ ngày Luật Hôn nhân và Gia đình đi vào cuộc sống, gần như chỉ dùng để giải quyết những vấn đề về hôn nhân và gia đình bó hẹp trong phạm vi HÔN NHÂN, nhưng ít ai để ý rằng Luật HN & GĐ còn đề cập đến GIA ĐÌNH VÀ NHỮNG MỐI QUAN HỆ TRONG GIA ĐÌNH NHƯ ÔNG BÀ, CON CHÁU, thể hiện cụ thể tính nhân văn, phạm trù đạo đức, truyền thống uống nước nhớ nguồn, hiếu nghĩa của dân tộc VN.

Nay kính mong vụ việc này đánh thức “nhân bản” vốn có trong con người VN mà gần đây đã bị lãng quên trong thời buổi kinh tế thị trường.

Đăng bởi: vietnhok | Tháng Một 16, 2008

Clip nữ sinh Hà Nội nhảy Aerobic lộ “nội y”

Ba ngày nay, video clip biểu diễn Aerobic lộ “nội y” của nhóm nữ sinh lớp 10, THPT Phan Đình Phùng (Hà Nội) đang được bàn tán khá “hot” trên mạng. Ban giám hiệu trường này cho biết, đây là sự vô ý đáng tiếc của học sinh.

Ngày 13/1, video clip khoảng 30 giây này được đưa lên Youtube. Trong đó, các nữ sinh mặc váy ngắn đứng trên bục cao nhào lộn. Mỗi khi có động tác mạnh “nội y” của họ lộ ra, nhiều học sinh phía dưới vỗ tay, huýt sáo.

Sau khi tung lên mạng, đã có hàng nghìn lượt xem clip, nhiều người đã copy vào blog, bình luận. Blogger cho rằng, “tai nạn” này là do các em chưa biết mặc quần cho phù hợp. “Đối với Aerobic thì phải mặc quần thun dầy bên trong vì váy chỉ để tạo sự duyên dáng khi tung lên”.

Tiết mục này khiến các học sinh reo hò, huýt sáo…

Tuy nhiên, cũng có bloger cho rằng, nhiều nữ sinh 9X hiện nay quá thoáng, quá vô tư trong cách ăn mặc, đặc biệt là ở chỗ đông người.

Sáng 15/1, trao đổi với chúng tôi, Hiệu phó THPT Phan Đình Phùng, Nguyễn Thị Phượng cho biết, đó là sự cố vô ý của các nữ sinh lớp 10 trong buổi thi sơ khảo Aerobic ngày 6/1. Năm nay, Hội khỏe Phù Đổng THPT Phan Đình Phùng có 7 môn, trong đó có Aerobic. Trong buổi sơ khảo, lẽ ra phải mặc quần bơi bên trong váy nhưng các nữ sinh lớp 10 lại “quên” nên khi tung chân đã bị… hở. Khi tiết mục kết thúc, thầy cô theo dõi đã gay gắt phê bình. Còn các nữ sinh phân trần “con quên, không để ý và nghĩ tới lúc như thế”", cô Phượng nói.

Cô Phượng khẳng định, 6 đội vào thi chung kết ngày 12/1 (không có tiết mục trên) ăn mặc đẹp, phù hợp. Thời gian tới, trường sẽ có những quy định cụ thể để tránh xảy ra trường hợp đáng tiếc như trên.

Trước đó, cư dân mạng cũng xôn xao với video clip múa đôi “kích động” của học sinh trường Phú Nhuận, TP HCM trong buổi tổng duyệt chương trình văn nghệ mừng ngày 20/11/2007.

Đăng bởi: vietnhok | Tháng Một 15, 2008

Trào phúng về “cái chết” !

Chết vì “riệu” là cái chết sành điệu.

Chết vì yêu là cái chết liêu xiêu.

Chết vì “gái” là cái chết rất thoải mái.

Chết vì “tình” là cái chết bất thình lình .

Chết vì “lười” là cái chết rất buồn cười.

Chết vì “học” là cái chết rất vàng ngọc .

Chết vì “sầu” là cái chết rất ngầu .

Chết vì “ghen” là cái chết nhỏ nhen .

Chết vì “chơi” là cái chết thảnh thơi.

Chết vì “bệnh” là cái chết bạc mệnh.

Chết vì ” hận ” là cái chết lận đận ^^

Đăng bởi: vietnhok | Tháng Một 14, 2008

do luong tinh yeu

Đăng bởi: vietnhok | Tháng Mười Hai 14, 2007

Longman Writing Coach

Bạn lo lắng về khả năng writing của mình. Không sao, bởi đây cũng là điều trăn trở của nhiều bạn học ngoại ngữ. Giờ đây, với phần mềm hỗ trợ writing này, bạn có thể yên tâm, nâng cao kĩ năng viết của mình một cách chuẩn xác và bài bản nhất. Phần mềm này giúp bạn:

  • Phân biệt cách sử dụng các từ có sắc thái nghĩa khác nhau.

  • Học các cụm từ và cấu trúc câu quan trọng theo từng chủ đề: Education, Business, Sport, Technology…

  • Nắm các kĩ năng làm bài với Writing Tips

  • Củng cố lại ngữ pháp với Grammar

  • Tích hợp từ điển giúp bạn hiểu rõ cách viết, sử dụng từ, câu…,có phiên âm Anh và Mĩ

  • Xem các ví dụ mẫu cụ thể, dễ hiểu, cùng luyện tập với phần Exercises.

Đăng bởi: vietnhok | Tháng Hai 17, 2007

Trình diễn tất cả các loại font trong MS Word

Đoạn mã sau sẽ sử dụng Microsoft Word để hiển thị các font chữ được cài đặt trên máy tính của bạn. Nó sẽ hiển thị tên của font chữ, câu chữ hoa và câu chữ thường, các số từ 0 đến 9, nhờ đó mà người dùng có thể xem qua các mẫu font chữ trên máy tính của mình rất dễ dàng và không cần sử dụng bất cứ phần mềm xem font chữ nào khác.

Dim w
set w = createobject(”word.application”)
w.visible = true
Dim d
set d = w.documents.add
dim iFonts
iFonts = w.fontnames.count
Dim i
for i = 1 To iFonts
d.content.insertafter w.fontnames(i) & vbcrlf
d.content.insertafter “Hien thi Font chu” & vbcrlf
d.content.insertafter “Rat de dang ma khong can su dung phan mem ho tro” & vbcrlf
d.content.insertafter “0123456789 0123456789 0123456789 0123456789″ & vbcrlf
next
dim rngParagraphs
for i = 1 To iFonts * 4
if (i + 3) mod 4 = 0 then
set rngParagraphs = d.range(d.paragraphs(i + 1).range.start, d.paragraphs(i + 3).range.end)
rngParagraphs.select
w.selection.font.name = w.fontnames((i - 1) \ 4 + 1)
end if
next
msgbox “Ket Thuc”

Lưu tập tin này lại và đặt tên là viewallfont.vbs, chạy tập tin này, bạn sẽ có được danh sách các font chữ đã cài đặt trên máy.

Chuyên mục

Follow

Get every new post delivered to your Inbox.