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!

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.

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:

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

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

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…

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

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.

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!

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

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ả!

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:

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.

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 ^^

• 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.

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”