非連結フォームにレコード表示したい！

質問

フォームにレコードを表示させたいのですが、
”FROM　句の構文エラー”と出ます、ヘルプを参照すると何故か表示されません！
「strSQL～Me!年号コード」までの間が間違っているのでしょうか？
アドバイス宜しくお願いいたします。

Dim adoCON As ADODB.Connectio
Dim adoREC As ADODB.Recordset
Dim strSQL As String

Set adoCON = Application.CurrentProject.Connection

strSQL = "SELECT *" _
& "FROM ta01年号" _
& "WHERE 年号コード =" & Me!txt年号コード

Set adoREC = adoCON.Execute(strSQL)

If adoREC.EOF = False Then

Me!txt年号コード.Value = adoREC(年号コード).Value
Me!txt年号.Value = adoREC("年号").Value
Else
MsgBox "該当データがありません", vbOKOnly + vbExclamation, "年号"
Cancel = True
Exit Sub

adoREC.Close
adoCON.Close
Set adoREC = Nothing
Set adoCON = Nothing
End If

回答No.1

duron · ベストアンサー

VBですかね

strSQL = "SELECT *" _
& "FROM ta01年号" _
& "WHERE 年号コード =" & Me!txt年号コード

これですと
「SELECT *」と「FROM」，「ta01年号」と「WHERE」の間にスペースがないので
SQLとして成り立ってないのではないでしょうか？

お礼

早急なレスありがとうございます！
指摘された箇所に半角スペースを入れ作動しました。
勉強をし始めたばかりで、説明不足の所を的確なレスありがとうございました！
今後とも機会がありましたら宜しくお願いいたします。