VBA運行時錯誤3129非法SQL語句

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語句，並且無論如何都不能RunSQL一個SELECT語句。

使用DLookup()代替：

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