[Hỏi] Nhập giá trị True/False cho một Trường của Query bằng VBA

[neverstopvn]

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.

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 !
DLforQuery.mdb

 

[nghikt2]

Ðề: [Hỏi] Nhập giá trị True/False cho một Trường của Query bằng VBA

Bạn sửa code lại như sau :

Sub cboxPickPerson_AfterUpdate()
Dim msql As String
msql = "UPDATE tblPerson SET tblPerson.PickPerson = " & Me.cboxPickPerson.Value & " WHERE (((tblPerson.BornPerson)='" & Me.cbbBornPerson & "'))"
With DoCmd
.SetWarnings False
.RunSQL msql
.SetWarnings True
End With
Me.sfrmPickPerson.Requery