Build sql by checking all checkboxes:
Code:
Public Sub btnUpdateFlds_Click()
Dim sSql As String
dim vUpd
'the query is built depending on the various filters the user picks...
If chkState Then vUpd = vUpd & " [state]='" & cboState & "',"
If chkName Then vUpd = vUpd & " [Name]='" & txtName & "',"
If chkContact Then vUpd = vUpd & " [Contact]=" & chkContact.Value & ","
'remove last comma
vUpd = left(vUpd, len(vUpd)-1)
sSql = "update table set " & vUpd
docmd.setwarnings false
docmd.runSql sSql
docmd.setwarnings true
End Sub