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

誰かがボタンをクリックしたときにクエリを実行するためにVBAコードを作成しようとしています。VBA実行時エラー3129不正なSQLステートメント

私はそれを実行すると常にタイトルにエラーが表示されます。誰か助けてもらえますか？私はすべての反応に感謝しています。あなたはそれを定義する前に、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

出典

2016-08-23 Vanthelost

Nachname'を選択し、 'tblPersonal' FROM'の間にスペースはありません。 'SELECT Nachname'の後ろにスペースを入れてください。 –

@MartinParkinは動作しません。あまりにも簡単だろう – Vanthelost

私はそれが答えであることを示唆しているわけではありません。私はあなたの質問を見て気づいただけで、変更する必要があります。 'SELECT NachnameFROM tblPersonal'は有効なSQL構文ではありません。 –

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

使用DLookup()代わり：

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

出典

2016-08-23 09:02:55 Andre

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

答えて

関連する問題