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

[dtngoc]

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!

 

[phatnq2002]

Ðề: Đư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

 

[dtngoc]

Ðề: Đư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!