在访问中插入语句给出错误

Question

我一直致力于创建一个非常简单的数据库，它只有 4 个表，每列只有几条信息。我的一张桌子叫做“客户”，在这张桌子里面有 4 列信息。

我的“AddCustomerForm”上有一个运行以下命令的按钮

Private Sub cmdadd_Click()
CurrentDb.Execute "INSERT INTO Customer(Customer ID, Email, Identifier) " & _
 = VALUES(Customer ID, Email, Identifier)  
End Sub

我的添加客户表单如下所示：

有人可以指出我在搞砸什么吗？我收到的错误是：

语法错误。

Answer 1

我看到了一些问题 - [客户 ID] 是自动编号字段吗？如果是，请不要包含它。

另外 - 如果您正在运行手动插入，我假设您的表单未绑定到您的表格，但我开始想知道为什么客户 ID 在表单上显示为可编辑？

最后，Location 看起来是一个数字 ID，属于填写 Business ID 字段的 Location 下拉列表的 ID 字段

这将帮助您调试 SQL 并向我们展示问题所在

将其添加到您的按钮，并在代码停止时向我们显示立即窗口中显示的值

    Dim strSQL as string
    strSQL = "INSERT INTO Customer ([Customer ID], Email, Identifier) VALUES (" _
    & me.[Customer ID] & ",""" & Me.[Email] & """,""" & Me.[Identifier] & """)"
    Debug.print strSQL

    CurrentDb.Execute strSQL

如果客户 ID 是自动编号，请改用此方法（假设表单为 UNBOUND）并且位置是下拉列表第一列的 ID 值

    Dim strSQL as string
    strSQL = "INSERT INTO Customer (Email, Identifier) VALUES (" _
    & me.[Customer ID] & ",""" & Me.[Email] & """, & Me.[Identifier] & ")"
    Debug.print strSQL

    CurrentDb.Execute strSQL

Answer 2

Private Sub cmdadd_Click()
CurrentDb.Execute "INSERT INTO Customer ([Customer ID], Email, Identifier) VALUES([Forms]![MyFormName]![CustomerIDTextboxName], [Forms]![MyFormName]![EmailtextboxName], [Forms]![MyFormName]![IdentifierTextboxName]);"  
End Sub

Access 需要在任何字段名称两边加上空格并用括号括起来。我还删除了 VALUES 之前的 = 并更改了值以引用您的表单控件，您必须正确命名。您还需要一个分号来完成该语句并需要关闭您的双引号。

This 页面可能有助于语法。