Đánh giá chủ đề:
  • 1 Votes - 5 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Hỏi] Code lấy một field trong query ra textbox trong Access
#21
Cảm ơn tất cả mọi người đã giúp đỡ!
Sau bao ngày vất vả mình đã hoàn thành file quản lý vật tư theo y/c đã đề ra.
Có thể cách làm của mình không tốt lắm, nếu bạn nào cần tham khảo xin cứ gửi mail về canhcfc@gmail.com mình sẵn sàng chia sẻ. Thân! 015
Chữ ký của canhcfc Xin chào, mình là canhcfc, Tham gia http://thuthuataccess.com/forum từ ngày 24-09 -14.
Reply
Những người đã cảm ơn
#22
(13-10-14, 12:20 PM)canhcfc Đã viết: Chào mọi người
Mình có 1 file access trong đó có query tên Qdanhsach & textbox tên textbox1 trong form1
trong query Qdanhsach có field tên 1, 2, và 3
Mình muốn lấy giá trị của field 3 của mẫu tin đầu tiên đưa vào textbox1 của form1
Mình viết code như sau nhưng bị lỗi, mọi người giúp mình 040

Private Sub Form_Load()
Dim db As dao.Database 'khai bao bien db va bien rs
Dim rs As dao.Recordset

'set du lieu cho bien db & bien rs
Set db = CurrentDb 'db = CSDL hien tai
Set rs = db.OpenRecordset("Qdanhsach") 'set bien rs = query Qdanhsach

'di chuyen len mau tin dau tien
If rs.RecordCount > 0 Then
rs.MoveFirst

With rs
Textbox1.Text = .Fields("3") ' dua gia tri field 3 vao textbox1
End With
End If

End Sub

bỏ cái .Text là ok bạn

With rs
Textbox1= .Fields("3") ' Thằng access khong xài .text
End With


hoặc giống như noname

Me.Text0.SetFocus
Me.Text0.Text = rs.Fields("3")
Chữ ký của thucgia Hix, Access quả nhiên lợi hại !!!! http://vibigaba.esy.es/
ღღღღღTài sản của thucgia (View All Items) ღღღღღ
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  Sử dụng Class Module và Kết nối dữ liệu SQL SERVER trong Access VBA lehongduc 61 19,970 18-06-17, 08:49 AM
Bài mới nhất: lehongduc
  [Help] Rút ngắn thời gian khi get data từ sqlserver lên table on access. HoangManh 3 184 22-05-17, 05:13 PM
Bài mới nhất: maidinhdan
  Active sheet cuối của Excel bằng VBA Access vodainhan 23 789 15-05-17, 11:29 PM
Bài mới nhất: vodainhan
  Sử dụng Windows Media Player trên access victorkieu 3 228 02-05-17, 10:45 AM
Bài mới nhất: paulsteigel
  [Hỏi] Tự động Append Field vào ADO Recordset với Fields lấy từ một Table có sẳn ongke0711 3 187 29-04-17, 08:26 PM
Bài mới nhất: ongke0711

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ