2017-06-07 14 views
-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 
+0

如果你分配給它之後添加debug.print STRSQL,你會看到你的查詢字符串形成嚴重。您在單詞SET之前缺少空格。 (順便說一句,你的匈牙利語符號「strMyCombo」誤導了布爾!) –

回答

0

試試這個:

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 
相關問題