Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Hỏi] Nhập giá trị True/False cho một Trường của Query bằng VBA
#1
Mình tạo ra một subform hiển thị các record có giá trị được chọn từ combobox, mình muốn làm một thao tác là khi nhấp chọn checkbox Check 4 thì giá trị tương ứng của tất cả các record trong subform cũng thay đổi tương tự cùng giá trị ( true/false). Mình gán giá trị thông qua event AfterUpdate của checkbox mà mãi ko được, mong các bạn có kinh nghiệm chỉ giáo.
[Hình: Form.jpg]
Code:
Sub cboxPickPerson_AfterUpdate()
Dim dab As DAO.Database
Dim rst As DAO.Recordset
Dim qry As DAO.QueryDef

Set dab = CurrentDb
Set qry = dab.QueryDefs("qry PickPerson")
Set rst = qry.OpenRecordset(dbOpenDynaset)
'Phan nhap gia tri cho Field "PickPerson" cua query "qry PickPerson" theo trang thai cua checkbox cboxPickPerson
If cboxPickPerson = True Then
Do Until rst.EOF = True
With rst
.Edit
.Fields("PickPerson") = True
.Update
.MoveNext
End With
Loop

Else
Do Until rst.EOF = True
With rst
.Edit
.Fields("PickPerson") = False
.Update
.MoveNext
End With
Loop
End If

dab.Close
rst.Close
qry.Close

End Sub

Mình up file đính kèm !
http://www.mediafire.com/file/iyonmcz9g1...rQuery.mdb
Chữ ký của neverstopvn Xin chào, mình là neverstopvn, Tham gia http://thuthuataccess.com/forum từ ngày 20-05 -11.
Reply
Những người đã cảm ơn
#2
Mình nghĩ chỉ đơn giản vầy thôi, bạn đừng lạm dụng code quá

Mã PHP:
Sub cboxPickPerson_AfterUpdate()
DoCmd.SetWarnings False
DoCmd
.RunSQL "UPDATE [qry PickPerson] SET PickPerson =" cboxPickPerson.Value
sfrmPickPerson
.Requery
DoCmd
.SetWarnings True
End Sub 
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn neverstopvn
#3
(11-12-11, 11:23 AM)Noname Đã viết: Mình nghĩ chỉ đơn giản vầy thôi, bạn đừng lạm dụng code quá

Mã PHP:
Sub cboxPickPerson_AfterUpdate()
DoCmd.SetWarnings False
DoCmd
.RunSQL "UPDATE [qry PickPerson] SET PickPerson =" cboxPickPerson.Value
sfrmPickPerson
.Requery
DoCmd
.SetWarnings True
End Sub 

Cám ơn rất nhiều nhưng mình nếu có thời gian nhờ noname giúp mình tại sao code trên lại sai nhé, hix !
Chữ ký của neverstopvn Xin chào, mình là neverstopvn, Tham gia http://thuthuataccess.com/forum từ ngày 20-05 -11.
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
  [Hỏi] Between fied đã convert bằng hàm datevalue mrsiro 14 375 09-02-18, 08:50 PM
Bài mới nhất: tranthanhan1962
  [Hỏi] Sự ổn định của UNION QUERY ???? vkaccess 2 157 07-02-18, 08:51 PM
Bài mới nhất: vkaccess
  [Hỏi] Cấu trúc query với các table trên sqlserver đã link vào access mrsiro 7 577 05-12-17, 11:46 PM
Bài mới nhất: maidinhdan
  [Help] Hướng dẫn query thi đua, kết quả thi đua thanhhau828 11 536 03-12-17, 06:06 PM
Bài mới nhất: ongke0711
  Unmateched Query cannguyen 3 200 30-11-17, 09:15 AM
Bài mới nhất: lmthu

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ơ