Đưa nhiều record vào một Unbound

[iseovip1]

Em có điều này mắc anh chị ah, em muốn là khi On Got Focus đến txtL thì nhận được tất cả các Record có trong tblSTK trong cột Se (http://www.megafileupload.com/en/file/135292/ViDu-zip.html).

Khi đó txtL được nhìn thấy giống như là: AB1, AB2, AB3, .....

Mong được anh chị chỉ bảo để em khắc phục thiếu sót bấy lâu em không làm được.

Em xin chân thành cảm ơn!

View more random threads:

• Requery đối tượng trong Subform
• File minh họa việc kết nối đến dữ liệu SQL Server từ MS. Access
• Compact and repair Database bị lỗi
• Thêm item mới vào combobox Access
• Giúp mình mở file database này với?
• Lỗi 424 khi làm TreeView
• TIP : Ẩn Table trong ACCESS .
• Ai giúp mình đoạn code chạy Query với !
• Xuất Nhập Tồn Kho Đông Lạnh
• Đưa giá trị biến vào report

[huongcao]

Ðề: Đưa nhiều record vào một Unbound

Em có điều này mắc anh chị ah, em muốn là khi On Got Focus đến txtL thì nhận được tất cả các Record có trong tblSTK trong cột Se (http://www.megafileupload.com/en/file/135292/ViDu-zip.html).

Khi đó txtL được nhìn thấy giống như là: AB1, AB2, AB3, .....

Mong được anh chị chỉ bảo để em khắc phục thiếu sót bấy lâu em không làm được.

Em xin chân thành cảm ơn!

Làm lại thử theo cái này coi:

Private Sub txtL_GotFocus()
Dim st As String
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("tblSTK")
rs.MoveFirst
Do While Not rs.EOF
st = st & UCase(rs("Se")) & ","
rs.MoveNext
Loop
Set rs = Nothing
txtL = Left(st, Len(st) - 1)
End Sub

[seoganhat]

Ðề: Đưa nhiều record vào một Unbound

Cảm ơn anh Phatnq2002. Em áp dụng được rồi anh ah.

Cảm ơn anh nhiều lắm. Chắc rằng em còn làm phiền anh và mem khác nhiều đó ah!