VBA実行時エラー3129不正なSQLステートメント

Question

誰かがボタンをクリックしたときにクエリを実行するためにVBAコードを作成しようとしています。

私はそれを実行すると常にタイトルにエラーが表示されます。誰か助けてもらえますか？私はすべての反応に感謝しています。あなたはそれを定義する前に、SQL文を実行し、あなたがとにかくないRunSQL SELECTステートメントことができます -

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

あなたのコードはほとんど意味がありません。

使用DLookup()代わり：

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