Private Sub Command18_Click()
Dim str, str2 As String
str = InputBox("请输入本月月份")
str2 = "INSERT INTO Tab_meter_readdata" & _
"(MeterCode, Meter_period)" & _
"SELECT MeterCode, " & str & " AS Expr1" & _
"FROM Tab_meter" & _
"WHERE (MeterState = 1)"
DoCmd.RunSQL str2
End Sub
错误提示:第1行:'Tab_meterWHERE'附近有语法错误。
根据提示我在 where 前面加了个空格,结果就是错误提示:第1行:'Tab_meter'附近有语法错误。
然后就不知道哪里有问题!请指教,这个问题困扰我好多次了
------解决方案--------------------
------解决方案--------------------