Đá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
#1
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
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
#2
báo lỗi thế nào vậy bạn? Gửi file lên mọi người xem thử
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#3
(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ử

040 Báo lỗi ở câu lệnh
Textbox1.Text = .Fields("3") ' dua gia tri field 3 vao textbox1
[Hình: Photo-I6JTRG8E-D.jpg]
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
#4
(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ử

040 Báo lỗi ở câu lệnh
Textbox1.Text = .Fields("3") ' dua gia tri field 3 vao textbox1
[Hình: Photo-I6JTRG8E-D.jpg]

bạn thử chuyển focus cho textbox1 xem sao: textbox1.set focus
Chữ ký của vulhu06 Xin chào, mình là vulhu06, Tham gia http://thuthuataccess.com/forum từ ngày 15-06 -12.
Reply
Những người đã cảm ơn canhcfc
#5
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
Chữ ký của Xuân Thanh Trăm năm trước thì ta chưa gặp
Trăm năm sau biết gặp được không?
Cuộc đời sắc sắc không không
Thì thôi ta cứ hết lòng vì nhau
ღღღღღTài sản của Xuân Thanh (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#6
(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
Chữ ký của vulhu06 Xin chào, mình là vulhu06, Tham gia http://thuthuataccess.com/forum từ ngày 15-06 -12.
Reply
Những người đã cảm ơn canhcfc
#7
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
Chữ ký của Xuân Thanh Trăm năm trước thì ta chưa gặp
Trăm năm sau biết gặp được không?
Cuộc đời sắc sắc không không
Thì thôi ta cứ hết lòng vì nhau
ღღღღღTài sản của Xuân Thanh (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#8
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! 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
#9
bị lỗi tải xuống không mở được bạn ơi!
Chữ ký của HungSoft Xin chào, mình là HungSoft, Tham gia http://thuthuataccess.com/forum từ ngày 27-02 -14.
Reply
Những người đã cảm ơn
#10
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
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


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
Question [Help] Link tất các table trong một file.mdb bằng VBA MinhnHang 6 145 29-11-16, 05:18 PM
Bài mới nhất: MinhnHang
  Tránh xung đột dữ liệu trong access quocdung9999 16 1,688 23-11-16, 11:13 AM
Bài mới nhất: quocdung9999
  [Hỏi] Kết nối nhiều lần hay kết nối 1 lần trong ADO ưu điểm hơn Minh Tiên 1 115 10-11-16, 10:41 AM
Bài mới nhất: maidinhdan
  Summary bằng VBA trong MS Access. MinhnHang 6 315 08-11-16, 08:36 AM
Bài mới nhất: MinhnHang
  [Hỏi] Số Thứ Tự Theo Nhóm Hàng Hóa Trong Access pherotao 2 141 02-11-16, 03:05 PM
Bài mới nhất: pherotao

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ơ