通过 VBA 输入框将数据插入 MS Access 表

Question

我刚接触并尝试使用输入框功能将日期插入名为“Data l Business Date”的表中。下面是我的代码，但我不断收到插入语句的语法错误。

Function BusinessDate()

Dim StrSQL As String
StrSQL = ("INSERT INTO Data l Business Date ([T_Date]) SELECT '" & InputBox("Enter todays date") & "';")
DoCmd.RunSQL StrSQL

End Function

Answer 1

您必须验证和格式化日期值：

Function BusinessDate()

    Dim StrSQL As String
    Dim InputText As String
    Dim InputDate As Date
   
    InputText = InputBox("Enter todays date")
    If IsDate(InputText) Then
        InputDate = DateValue(InputText)
        StrSQL = "INSERT INTO [Data l Business Date] ([T_Date]) VALUES (#" & Format(InputDate, "yyyy\/mm\/dd") & "#);"
        CurrentDb.Execute StrSQL
    End If

End Function

Answer 2

在访问中你应该使用类似的东西

"INSERT INTO tblName (fldName) VALUES ( '" & InputBox("Enter todays date") & "' )"

你的函数应该是这样的

Function BusinessDate()

Dim StrSQL As String
StrSQL = "INSERT INTO tblName (fldName) VALUES ( '" & InputBox("Enter todays date") & "' )"
DoCmd.RunSQL StrSQL

End Function

延伸阅读Insert Into

PS如果表名中有空格，需要使用[...]，即

"INSERT INTO [tbl name] (fldName) VALUES ( '" & InputBox("Enter todays date") & "' )"