• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Code lấy một field trong query ra textbox trong Access

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Thủ thuật VBA
  • [Hỏi] Code lấy một field trong query ra textbox trong Access
• Code lấy một field trong query ra textbox trong Access

• RE: Code lấy một field trong query ra textbox trong Access

  canhcfc > 01-11-14, 12:59 PM

  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!

• RE: Code lấy một field trong query ra textbox trong Access

  thucgia > 15-02-15, 09:40 PM

  (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
  
  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")
• Bài trước Bài tiếp