如何解决在VBA中获取“ INSERT INTO语法错误”以进行追加查询Access 2002
| 尝试运行追加查询时，我收到“ INSERT INTO中的语法错误”。 我正在建立一个数据库，以简化生产操作员的工作；通过手持式扫描仪捕获一些数据。 我一直在四处看看是否有人遇到过这样的问题。我已经看到了一些接近的内容，但是当我对代码进行了较小的更改时，仍然出现语法错误。 我正在使用未绑定的表单进行数据输入，但是我需要从表单捕获数据并将其添加到两个不同的表中。发生错误时，尝试运行DoCmd.RunSQL。据我所讲的代码，SQL看起来正确。 这是我的过程的完整代码。 码：Private Sub cmdNext_Click()
On Error GoTo Err_cmdNext_Click
\'Append table: tblScan with the Badge Number,Part #/ICS#,Lot # (if available),Press (i.e. MD01),Shift,and the current
\' Date/Time (captured with this code).
\'Append table: tblJob with Press,Part#/ICS#,and the current Date/Time (captured with this code).
Dim strBadge As String
Dim strPress As String
Dim dtmDate As Variant
Dim strSQL As String
Dim strMessage As String
Dim strTitle As String
Dim varQuestion As Variant
strMessage = \"You have not entered a correct \"
strTitle = \"ERROR MISSING or INCORRECT INFORMATION!\"
strSQL = \"\"
dtmDate = Now
If IsNull(Me!cboBadgeNum.Column(1)) Then
strMessage = strMessage & \"Badge Number. Please scan the operator\'s badge before continuing.\"
varQuestion = MsgBox(strMessage,vbOKOnly + vbCritical + vbSystemModal,strTitle)
Me!cboBadgeNum.SetFocus
GoTo Exit_cmdNext_Click
Else
strBadge = Me!cboBadgeNum.Column(1)
End If
If IsNull(Me!cboPress.Column(1)) Then
strMessage = strMessage & \"Press. Please select the press where this job was run before continuing.\"
varQuestion = MsgBox(strMessage,strTitle)
Me!cboPress.SetFocus
GoTo Exit_cmdNext_Click
Else
strPress = Me!cboPress.Column(1)
End If
If gstrICS = \" \" Then
strMessage = strMessage & \"ICS Number. Please Enter a valid ICS Number before continuing.\"
varQuestion = MsgBox(strMessage,strTitle)
txtICS.SetFocus
GoTo Exit_cmdNext_Click
ElseIf gstrICS = \"\" Then
strMessage = strMessage & \"ICS Number. Please Enter a valid ICS Number before continuing.\"
varQuestion = MsgBox(strMessage,strTitle)
txtICS.SetFocus
GoTo Exit_cmdNext_Click
End If
If gstrLot = \"\" Then
strMessage = strMessage & \"Lot Number. Please Enter a valid Lot Number before continuing.\"
varQuestion = MsgBox(strMessage,strTitle)
txtLot.SetFocus
GoTo Exit_cmdNext_Click
End If
\'Use an Apend query to update Scan table.
**strSQL = \"INSERT INTO tblScan (BadgeNum,PartNum,LotNum,Press,ScanDate) \" & vbCrLf
strSQL = strSQL & \"VALUES (\" & Chr(34) & strBadge & Chr(34) & \",\"
strSQL = strSQL & Chr(34) & gstrICS & Chr(34) & \",\"
strSQL = strSQL & Chr(34) & gstrLot & Chr(34) & \",\"
strSQL = strSQL & Chr(34) & strPress & Chr(34) & \",\"
strSQL = strSQL & gShift & \",\"
strSQL = strSQL & \"#\" & dtmDate & \"#);\"**
DoCmd.SetWarnings False
DoCmd.RunSQL strSQL
DoCmd.SetWarnings True
\'Use an Apend query to update Job table.
**strSQL = \"INSERT INTO Job (Press,StartDate) \"
strSQL = strSQL & \"VALUES (\" & Chr(34) & strPress & Chr(34) & \",\"
strSQL = strSQL & \"Job.JobDate = #\" & dtmDate & \"#);\"**
\'DoCmd.SetWarnings False
DoCmd.RunSQL strSQL
DoCmd.SetWarnings True
lblFirstName.Caption = \" \"
lblLastName.Caption = \" \"
txtICS.SetFocus
txtICS.Text = \" \"
txtLot.SetFocus
txtLot.Text = \" \"
cboBadgeNum.SetFocus
cboBadgeNum.Value = 0
DoCmd.Close
Exit_cmdNext_Click:
Exit Sub
Err_cmdNext_Click:
MsgBox Err.Description
Resume Exit_cmdNext_Click
End Sub
解决方法
发生错误时，尝试运行DoCmd.RunSQL。据我所讲的代码，SQL看起来正确。
您的代码两次调用DoCmd.RunSQL。您是从这两者还是第二次得到错误？
我建议您放弃DoCmd.RunSQL以便：
Dim db As DAO.Database
Set db = Currentdb
db.Execute strSQL,dbFailonerror
INSERT INTO tblFoo (fieldA,fieldB) VALUES (fieldA = 7,fieldB = 2)
INSERT INTO tblFoo (fieldA,fieldB) VALUES (7,2)
INSERT INTO tblJob (Press,PartNum,StartDate) VALUES (value1,value2,value3)
INSERT INTO
UPDATE ... SET
SELECT ... FROM
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 dio@foxmail.com 举报，一经查实，本站将立刻删除。