我正在尝试通过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)"
它按预期工作。
我想念什么或做错什么了?
答案 0 :(得分:0)
SQL = "INSERT INTO tab_test (Feld1) VALUES ('" & Forms!frm_test!PN & "')"