-2
Dim strMyTable As String
Dim strMyField As String
Dim strMyCombo As Boolean
Dim strSQL As String
strMyTable = "ItemDetails" '(or whatever the true names are...)
strMyField = "Chk"
strMyCombo = False
strSQL = "UPDATE " & strMyTable _ & "SET " & strMyField & "=" & strMyCombo & ";"
Application.CurrentDb.Execute strSQL
End Sub
如果你分配給它之後添加debug.print STRSQL,你會看到你的查詢字符串形成嚴重。您在單詞SET之前缺少空格。 (順便說一句,你的匈牙利語符號「strMyCombo」誤導了布爾!) –