こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

値集合ソースの切替をVBAで

あるフォームを、「開き方によって、フォーム上のコンボボックスの値集合ソースを切替える」のをVBAでやりたいのですが、

Private Sub Form_Open(Cancel As Integer)
If Me.OpenArgs = "A" Then
Me!氏名検索.RowSource = "SELECT 講師.氏名, 講師.フリガナ, 講師.ランク FROM 講師 WHERE (((講師.ランク) = Like '*A'))ORDER BY 講師.フリガナ;"
ElseIf Me.OpenArgs = "B" Then
Me!氏名検索.RowSource = "SELECT 講師.氏名, 講師.フリガナ, 講師.ランク FROM 講師 WHERE (((講師.ランク) =Not Like '*A'))ORDER BY 講師.フリガナ;"
End If
End Sub
(実際は折り返していません)
とすると、コンボボックスをクリックした時にエラーとなり

クエリ式'(((講師.ランク)= Like '*A'))'の構文エラー:演算子がありません。

と表示されます。間違い箇所を教えて下さい。

投稿日時 - 2007-02-03 14:47:08

QNo.2720060

困ってます

質問者が選んだベストアンサー

(((講師.ランク) Like '*A'))

= は要りませんよ。

投稿日時 - 2007-02-03 15:04:33

お礼

 ありがとうございます。バッチシ!
以前「答えてねっと」で出した別の質問の時は「=」が無かった為にエラーになっていました。

便利だけど難しいですねVBAって。でも面白い!

また宜しくお願いします。感謝

投稿日時 - 2007-02-03 15:17:32

ANo.1

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問