Q&A
そのコードをどこに記述してますか。メインフォームのモジュールですか。サブフォームのモジュールですか。また、どのイベントに記述してますか。
サブフォームのレコードソースのクエリに IN というフィールド名はありますか。
Accessフォーム内に、サブフォームを作成し、クエリのデータを表示しています。
数値が"0"より大きいレコードだけ抽出したいのですが、下記の様なエラーメッセージがでてきます。
色々コードを変更してみたのですが、改善しません。
何が原因でしょうか？
コードVBA
Private Sub btn_Click() Me.Filter = "IN > " & 0 Me.FilterOn = True End Sub
エラーメッセージ
実行時エラー 3075 構文エラー：演算子がありません。
ダブルクォーテーションの位置や、0を変数に置き換えてみたりもしたのですが、
結果変わらずです。
ご教授よろしくお願いします。
すみません。勘違いしていました。
サブフォームではなく、メインフォーム内でクエリを表示しています。
ボタンを配置し、そのボタンイベントで動くイメージです。（質問のコードに、前後を追記しました）
レコードソースのクエリに、INというフィールドはあります。
おそらくINというフィールド名が原因だと思います。回答を参照ください。
@YISSさん
今回のINの場合はIN演算子とぶつかっているからですよ。
＠hatena19さん、@saziさん
ようやく、理解できました。
IN演算子という存在を知らずに、迷走していました。
フィールド名を、InVlaueに変更してみたら一気に解決しました！
ありがとうございました。
回答1件
0
ベストアンサー
とりあえず下記に変更したらどうなりますか。
vba
1 Me.Filter = "[IN] > " & 0 2 Me.FilterOn = True
IN というのはSQLステートメントにありますので、[]で囲ってフィールド名と認識させる必要があります。
投稿2021/01/26 02:09
総合スコア34073
教えて頂いたコードだと、動くようになりました。
ただ、理解できていない点があるのですが、
いままでVBAエディタでMe.Filterを指定するときに、SQLステートメントかどうかの意識は無く(そもそもSQLステートメントというのを正しく理解できていないですが)、[]で囲ったこともなかったです。
今回、INがSQLステートメントで・・・というのは、
クエリで集計しているINの値を、SQLを用いて計算しているから
ということでしょうか？
Filterプロパティに設定する条件式は、SQLのWHERE句と同等のものになります。
https://docs.microsoft.com/ja-jp/office/vba/api/access.report.filter(property)
上記内に「Filter プロパティの設定値は、WHERE 句から WHERE を省いた文字列式です。」という記述があります。
SQLのIn演算子
https://docs.microsoft.com/ja-jp/office/vba/access/concepts/miscellaneous/in-operator-microsoft-access-sql
SQLのIN句
https://docs.microsoft.com/ja-jp/office/vba/access/concepts/miscellaneous/in-clause-microsoft-access-sql
IN以外にも、NOとか、半角空白を含むフィールド名とかも[]で囲む必要があります。
理解できました！ご丁寧にありがとうございます！
フィールド名の命名も、紛らわしいものを使用しないようにこれから気を付けます！
あなたの回答
tips
プレビュー
