如何通过SQL从VBA传递变量?

时间:2018-08-15 08:44:37

标签: sql vba ms-access

我正在尝试通过SQL将表单中的值传递到数据库中

Private Sub Befehl4_Click()

Dim SQL As String
Dim unique As String

unique = Forms!frm_test!PN

SQL = "INSERT INTO tab_test (Feld1) VALUES (unique)"
DoCmd.RunSQL SQL

End Sub

当我从表单中的按钮执行此代码时,unique未传递给SQL命令。我必须输入它。以这种方式编写SQL命令时:

SQL = "INSERT INTO tab_test (Feld1) VALUES (Forms!frm_test!PN)"

它按预期工作。

我想念什么或做错什么了?

1 个答案:

答案 0 :(得分:0)

SQL = "INSERT INTO tab_test (Feld1) VALUES ('" & Forms!frm_test!PN & "')"