Question

我正在尝试制作VBA代码，以便在有人点击按钮时运行查询。

运行时，它始终显示标题中的错误。有人可以帮忙吗？我很感谢每一个回复。

Option Compare Database
Option Explicit

Sub btnNamebox_Click()

DoCmd.OpenForm "F-Smartphone-Hinzufuegen"
Dim strSQL As String
DoCmd.RunSQL (strSQL)

strSQL = "SELECT Nachname" & _
"FROM tblPersonal " & _
"WHERE Handynummer = " & Forms![F-Smartphone-Hinzufuegen]![FKHandynummer] & ";"

txtnamebox.Value = strSQL

End Sub

Answer 1

您的代码没有多大意义 - 您在定义之前运行SQL语句，而且无论如何都不能DLookup() SELECT语句。

改为使用S = Nz(DLookup("Nachname", _ "tblPersonal", _ "Handynummer = " & Forms![F-Smartphone-Hinzufuegen]![FKHandynummer]), "")：

<form action="#" method="post">FECHA: 
   <input type="text" id="datepicker" name="date1" />
   <input type="text" id="datepicker2" name="date1" />
</form>

VBA运行时错误3129非法SQL语句

1 个答案: