Access2013_VBA

いつもお世話になっております。

ネットでVBAの例題を見ながらAccessのVBAに挑戦をしているのですが、
まったく、同じにテーブルとフォームを作成したのですが、ある部分で
ストップしてしまいます。どこをどう訂正して良いのか分からず、質問させていただきます。

【内容前文】
Private Sub 検索コマンド_Click()

Dim CN As ADODB.Connection
Dim RS As ADODB.Recordset
Dim SQL As String

Me.検索結果リスト.RowSource = “”

Set CN = CurrentProject.Connection
Set RS = New ADODB.Recordset

SQL = “SELECT ”
SQL = SQL & “T_社員マスタ.社員コード, ”
SQL = SQL & “T_社員マスタ.名前, ”
SQL = SQL & “T_社員マスタ.性別コード, ”
SQL = SQL & “T_性別マスタ.性別, ”
SQL = SQL & “T_社員マスタ.所属部署コード, ”
SQL = SQL & “T_所属部署マスタ.所属部署名, ”
SQL = SQL & “T_社員マスタ.入社年月日 ”
SQL = SQL & “FROM ”
SQL = SQL & “(T_社員マスタ ”
SQL = SQL & “INNER JOIN T_性別マスタ ”
SQL = SQL & “ON T_社員マスタ.性別コード = T_性別マスタ.性別コード) ”
SQL = SQL & “INNER JOIN T_所属部署マスタ ”
SQL = SQL & “ON T_社員マスタ.所属部署コード = T_所属部署マスタ.所属部署コード ”
SQL = SQL & “WHERE ”
SQL = SQL & “(((T_社員マスタ.名前) Like ‘%” & Me.名前 & “%’) ”
SQL = SQL & “AND ((T_社員マスタ.性別コード) Like ‘%” & Me.性別コード & “%’) ”
SQL = SQL & “AND ((T_社員マスタ.所属部署コード) Like ‘%” & Me.所属部署コード & “%’));”

RS.Open SQL, CN, adOpenStatic, adLockOptimistic　'①
If RS.EOF = False Then

Me.検索結果リスト.ColumnCount = 2
Me.検索結果リスト.ColumnWidths = “1.0cm;3.0cm”
Me.検索結果リスト.RowSource = “コード;名前”
Me.検索結果リスト.RowSourceType = “値リスト”

Do Until RS.EOF

Me.検索結果リスト.RowSource = Me.検索結果リスト.RowSource & “;” & RS!社員コード & “;” & RS!名前

RS.MoveNext
Loop

End If

RS.Close: Set RS = Nothing
CN.Close: Set CN = Nothing

End Sub

①の部分がエラーになってしまいます。

すいません。マル投げで申し訳けございません。
よろしくお願いいたします。

No.1 ベストアンサー 回答者： y504 回答日時： 2016/09/21 11:39

エラーの内容が書いてないので確認はしていません。

たぶんSQLが間違っていると思うのですが
１．　①の前に　Debug.Print SQL　を入れてSQLを表示させてください
http://accessvba.blog.so-net.ne.jp/2012-01-13
２．　表示されたSQLをコピーしクエリで表示してみてください
http://accessvba.blog.so-net.ne.jp/2013-11-11

これでどこが間違っているか確認できると思います。