• 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

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

  canhcfc > 13-10-14, 12:20 PM

  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
  

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

  Noname > 14-10-14, 09:46 AM

  báo lỗi thế nào vậy bạn? Gửi file lên mọi người xem thử

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

  canhcfc > 14-10-14, 01:31 PM

  (14-10-14, 09:46 AM)Noname Đã viết: báo lỗi thế nào vậy bạn? Gửi file lên mọi người xem thử

  
  Báo lỗi ở câu lệnh
  Textbox1.Text = .Fields("3") ' dua gia tri field 3 vao textbox1
  

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

  vulhu06 > 15-10-14, 09:42 AM

  (14-10-14, 01:31 PM)canhcfc Đã viết:

  (14-10-14, 09:46 AM)Noname Đã viết: báo lỗi thế nào vậy bạn? Gửi file lên mọi người xem thử

  
  Báo lỗi ở câu lệnh
  Textbox1.Text = .Fields("3") ' dua gia tri field 3 vao textbox1
  

  
  bạn thử chuyển focus cho textbox1 xem sao: textbox1.set focus

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

  Xuân Thanh > 18-10-14, 06:40 AM

  Một table hoặc một query có nhiêù record, mỗi record có nhiều field. Vậy bạn lấy field của record nào để đưa vào textbox? Báo lỗi là cái chắc

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

  vulhu06 > 18-10-14, 10:51 AM

  (18-10-14, 06:40 AM)Xuân Thanh Đã viết: Một table hoặc một query có nhiêù record, mỗi record có nhiều field. Vậy bạn lấy field của record nào để đưa vào textbox? Báo lỗi là cái chắc

  
  Vậy cho hỏi a Xuân Thanh là làm thế nào chỉ cho AC biết là mình chọn record nào để không báo lỗi? Xin cám ơn

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

  Xuân Thanh > 18-10-14, 11:45 AM

  Mỗi record có một khóa chính.Hãy cho access biết tôi đang tim record có khóa chính trùng với khóa chính tôi yêu câu bằng lệnh FindFirst hoặc Seek hoặc Select. Thế thôi

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

  canhcfc > 19-10-14, 08:59 PM

  Trong code đã có lệnh rs.movefirst là đi đến mẫu tin đầu tiên, có nghĩa mấun tin đầu tiên là hiện hành và lấy giá trị của Field tên là "3" không có gì sai.
  Rất cảm ơn bạn @vulhu06, lỗi ở đây là do mình không focus về textbox cần đưa giá trị ra, thêm dòng lệnh "textbox1.setfocus" là okay. Nhưng khi đó lại xuất hiện lỗi mới mong mọi người giúp đỡ
  Lỗi như sau:
  Khi lấy dữ liệu từ 1 field trong bảng hay query độc lập đưa ra 1 textbox trong form bằng code như trên thì okay nhưng khi query cần lấy dữ liệu lọc theo 1 listbox nằm trên form đó thì lại lỗi " 3061 - too few parameters".
  Cụ thể để dễ hiểu như sau: trên form1 có listbox1 và textbox1
  query1 lọc dữ liệu theo listbox1
  khi đó dùng code như trên để lấy 1 field trong query1 đưa ra textbox1 lại bị lỗi "too few parameters"
  Các bác xem giúp em http://www.mediafire.com/download/11x0a8...U_CD.accdb
  Cảm ơn!

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

  HungSoft > 20-10-14, 09:44 AM

  bị lỗi tải xuống không mở được bạn ơi!

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

  canhcfc > 20-10-14, 02:44 PM

  Trích dẫn:

  (20-10-14, 09:44 AM)HungSoft Đã viết: bị lỗi tải xuống không mở được bạn ơi!

  
  file mình làm trên office 2010 bạn ơi
  Link file định dạng 2003 đây bạn xem giúp nhé https://www.mediafire.com/?bu336hiddyueds6
• Bài trước Bài tiếp