Question

这就是我所拥有的，我尝试从Access表单中获取字段（数据来自一个链接的sql表）并将它们插入到另一个链接的sql表中：

StrSQL = "INSERT INTO [dbo_Expense_Projection] ([StatusID],[TravellerUFID],[Email]) " & _
          VALUES(" & Me.StatusID & ", " Me.TravellerUFID & ", " Me.SubmitterUFID & ", " Me.email & ")
DoCmd.RunSQL StrSQL

但我收到此错误

Compile error: Sub or Function not defined

Answer 1

我认为你只是缺少一些双引号：

StrSQL = "INSERT INTO [dbo_Expense_Projection] ([StatusID],[TravellerUFID],[Email]) " & _
"VALUES(" & Me.StatusID & ", " Me.TravellerUFID & ", " Me.SubmitterUFID & ", """ & Me.email & """)"
DoCmd.RunSQL StrSQL

您可以尝试打印StrSQL的内容并在运行之前检查查询：

Debug.Print StrSQL

但我不想创建具有连接值的SQL字符串（如果Me.StravellerUFID包含双引号会怎么样？）

我建议您使用DAO插入数据：

Dim rs as Recordset
Set rs = CurrentDb.OpenRecordset("dbo_Expense_Projection")
rs.AddNew
rs!StatusID = Me.StatusID
rs!TravellerUFID = Me.TravellerUFID
' ...other fields
rs.Update
rs.Close

Answer 2

SQL-String中还缺少一些＆符号：

StrSQL = "INSERT INTO [dbo_Expense_Projection] ([StatusID],[TravellerUFID],[Email]) " & _
          "VALUES(" & Me!StatusID & ", " & Me!TravellerUFID & ", " & Me!SubmitterUFID & ", """ & Me!email & """)"

而且我认为你应该在＆＃34; Me＆＃34;之间使用感叹号。和fieldname。但我不想与这里的专家争论......;）

Answer 3

以下是最终工作的内容：

Dim StrSQL As String

StrSQL = "INSERT INTO dbo_Expense_Projection (StatusID,TravellerUFID,Email) 
          VALUES('" & Form!StatusID & "','" & Form!TravellerUFID & "','" & Form!Email & "')"

DoCmd.SetWarnings False
DoCmd.RunSQL StrSQL
DoCmd.SetWarnings True

如何使用VBA将Access表单中的数据插入到sql表中？

3 个答案: