Chủ đề: Đưa nhiều record vào một Unbound
-
09-16-2009, 07:32 PM #1Junior Member
- Ngày tham gia
- Nov 2015
- Bài viết
- 0
Đư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!View more random threads:
- [Hỏi] Biểu tượng hình tam giác màu vàng có dấu chấm thang trong macro !!!
- Tìm bản ghi đầu tiên trên Form
- mong các anh chị chỉ dùm về date
- Đi tìm đường dẫn của BACK END
- tạo nút lọc và đánh số tự động
- File nào là Front End , File nào là Back End
- Bẫy lỗi trong Access bằng VBA
- Đặt password cho Front End bằng VB
- Tạo đồng đếm thời gian trong quá trình tính toán
- Chỉ giúp em chỗ sai của đoạn code này.
-
09-16-2009, 08:26 PM #2Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Đưa nhiều record vào một Unbound
Gửi bởi dtngoc
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
-
09-17-2009, 07:24 PM #3Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Đư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!
Địa chỉ cung cấp mẫu lăng mộ đá khu lăng mộ uy tín chất lượng Đá mỹ nghệ Tài Tuệ là đơn vị hàng đầu trong lĩnh vực điêu khắc chế tác các sản phẩm, công trình tâm linh bằng đá tại làng đá truyền...
Địa chỉ cung cấp mẫu lăng mộ đá khu lăng mộ uy tín chất lượng năm 2024