在查询表达式中出现运行时错误“3075”语法错误（缺少运算符）答案

【问题标题】：Getting run-time error '3075' syntax error (missing operator) in query expression在查询表达式中出现运行时错误“3075”语法错误（缺少运算符）
【发布时间】：2017-09-29 15:14:50
【问题描述】：

我正在尝试在 ms 访问中构建一个图书馆管理数据库。当我填写表格并单击添加时，我收到运行时错误 3075。你能帮我找出问题吗？提前谢谢你。

 私有子 cmdAdd_Click()

'将数据添加到表中

暗淡 strInsert 作为字符串
strInsert =“插入图书馆（ID_Label，[书名_标签]，作者_标签，出版商_标签，类别_标签，年份_标签，[图书类型_标签]，[页数_标签]，[唯一ID_标签]，[书架编号_标签]，评论标签，[借给标签]，[电话号码_标签]) " & _
" VALUES(" & Me.txtId & ",'" & Me.txtBookName & ",'" & Me.txtAuthor & ",'" & Me.txtPublishers & ",'" & Me.cmbCategory & ",'" & Me.cmbYear & ",'" & Me.cmbBookType & ",'" & Me.txtPageCount & ",'" & Me.txtUniqueId & ",'" & Me.txtShelfNumber & ",'" & Me.txtComments & " ,'" & Me.txtLendTo & ",'" & Me.txtPhoneNumber & "')"
Debug.Print strInsert,
CurrentDb.Execute strInsert，dbFailOnError

'刷新表单列表中的数据
frmRecordNewSub.Form.Requery

【问题讨论】：

标签： database ms-access ms-access-2013

【解决方案1】：

这个：'" & Me.txtComments & ", 应该是'" & Me.txtComments & "',

如果你想让我们调试一个动态创建的SQL字符串，请Debug.Print它（这个很简单）。

如果您想避免此类错误（和 SQL 注入），请使用参数。

【讨论】：

【解决方案2】：

实际上，几乎每个输入值都有不成对的单引号。

试试这个：

Private Sub cmdAdd_Click()

'add data to table

Dim strInsert As String
strInsert = "INSERT INTO Library (ID_Label, [Book Name_Label], Author_Label, Publishers_Label, Category_Label, Year_Label, [Book type_Label], [Page Count_Label], [Unique ID_Label], [Shelf Number_Label], Comments_Label, [Lend To_Label], [Phone Number_Label]) " & _
" VALUES(" & Me.txtId & ", '" & Me.txtBookName & "', '" & Me.txtAuthor & "', '" & Me.txtPublishers & "', '" & Me.cmbCategory & "', '" & Me.cmbYear & "', '" & Me.cmbBookType & "', '" & Me.txtPageCount & "', '" & Me.txtUniqueId & "', '" & Me.txtShelfNumber & "', '" & Me.txtComments & "', '" & Me.txtLendTo & "', '" & Me.txtPhoneNumber & "')"
Debug.Print strInsert,
CurrentDb.Execute strInsert, dbFailOnError

'refresh data in list on form
frmRecordNewSub.Form.Requery

【讨论】：