使用按钮VBA创建数据输入表格

Question

我正在尝试创建一个基本的数据输入表格，但是，它变成了比我预期的更多的麻烦。.我已经创建了表单，现在我只是在尝试插入数据进入DB(测试(。我正在收到一个"必需对象"错误。有什么建议么？所有TXT框都被验证为正确。这一切都是通过访问vba

完成的

Private Sub Command28_Click()

Dim sSQL As String
Set sSQL = "INSERT INTO TEST (Carrier_Ent_ID, Row_Insert_TS, Row_Update_TS, 
            Row_Insert_User_ID, Row_Update_User_ID, Carrier_Ent_Name, Active) 
VALUES (" & Me.txtENTID & "," & Me.txtDate & "," & Me.txtDate & "," & 
            Me.cmboUserID & "," & Me.cmboUserID & "," & Me.txtENTNAME & "," 
          & Me.Txtactive & "); "

DoCmd.RunSQL.sSQL
End Sub

Answer 1

从我可以看到的代码中有几个错误。

设置对象的引用时仅使用 SET -ssql是文本字符串。
DoCmd.RunSQL不应在 RunSQL之后全停 - 只是文本字符串。
如果Me.txtENTNAME是文本字符串，则应该在其前后具有撇号。

Private Sub Command28_Click()
    Dim sSQL As String
    'No Set & ' before and after Me.txtENTNAME (assuming it's text).
    sSQL = "INSERT INTO TEST (Carrier_Ent_ID, Row_Insert_TS, Row_Update_TS, " & _
           "Row_Insert_User_ID, Row_Update_User_ID, Carrier_Ent_Name, Active) " & _
           "VALUES (" & Me.txtENTID & "," & Me.txtDate & "," & Me.txtDate & "," & _
           Me.cmboUserID & "," & Me.cmboUserID & ",'" & Me.txtENTNAME & "'," & Me.txtActive & "); "
    'No full stop after RunSQL.
    DoCmd.RunSQL sSQL
End Sub