Question

我在主表单中有一个子表单，上面有员工记录。我试图允许用户从子表单中选择一个记录并将其添加到表中，这是我的代码，对我来说，看起来是正确的。但是它给我一个错误，说“INSERT INTO中的语法错误”

Private Sub Command3_Click()
Dim dbs As Database
Dim sqlstr As String
Set dbs = CurrentDb
Forename = Nz(Forms!frm_Capex_Submission!frm_staffSub.Form.shy_forename, "")
Surname = Nz(Forms!frm_Capex_Submission!frm_staffSub.Form.shy_surname, "")
emp_no = Nz(Forms!frm_Capex_Submission!frm_staffSub.Form.shy_empno, "")
CAP_ID = Forms!frm_Capex_Submission!CAP_ID

sqlstr = "INSERT INTO tbl_CapexStaff ( Forename, Surname, EmployeeID, CAP_ID) )" _
& " SELECT '" & Nz(Me!shy_forename, "") & "' AS Expr1, '" & Nz(Me!shy_surname, "") & "' AS Expr2, '" & Nz(Me!shy_empno, "") & " AS Expr3, " & Forms!frm_Capex_Submission.CAP_ID & " as expr4, """
dbs.Execute (sqlstr)
tbl_CapexStaff.Requery
End Sub

Answer 1

您的查询中有一个额外的“）”

INSERT INTO tbl_CapexStaff（Forename，Surname，EmployeeID，CAP_ID））

插入语句的未知问题

1 个答案: