我在更新语句中遇到语法错误。运行时错误：3144我使用以下代码

Question

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

Answer 1

试试这个：

Dim strMyTable As String 
Dim strMyField As String 
Dim strMyCombo As String
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