ACCESS　レコードの抽出

Accessフォーム内に、サブフォームを作成し、クエリのデータを表示しています。

数値が"0"より大きいレコードだけ抽出したいのですが、下記の様なエラーメッセージがでてきます。
色々コードを変更してみたのですが、改善しません。
何が原因でしょうか？

コードVBA

Private Sub btn_Click()
  Me.Filter = "IN > " & 0
  Me.FilterOn = True
End Sub

エラーメッセージ

実行時エラー　3075
構文エラー：演算子がありません。

ダブルクォーテーションの位置や、0を変数に置き換えてみたりもしたのですが、
結果変わらずです。

ご教授よろしくお願いします。

hatena19

2021/01/26 02:06

そのコードをどこに記述してますか。メインフォームのモジュールですか。サブフォームのモジュールですか。また、どのイベントに記述してますか。サブフォームのレコードソースのクエリに IN というフィールド名はありますか。

YISS

2021/01/26 02:39

すみません。勘違いしていました。サブフォームではなく、メインフォーム内でクエリを表示しています。ボタンを配置し、そのボタンイベントで動くイメージです。（質問のコードに、前後を追記しました）レコードソースのクエリに、INというフィールドはあります。

hatena19

2021/01/26 02:43

おそらくINというフィールド名が原因だと思います。回答を参照ください。

sazi

2021/01/26 03:16

@YISSさん今回のINの場合はIN演算子とぶつかっているからですよ。

YISS

2021/01/26 04:31

＠hatena19さん、@saziさんようやく、理解できました。 IN演算子という存在を知らずに、迷走していました。フィールド名を、InVlaueに変更してみたら一気に解決しました！ありがとうございました。

行動規範の内容に同意します

回答1件

ベストアンサー

とりあえず下記に変更したらどうなりますか。

vba
1  Me.Filter = "[IN] > " & 0
2  Me.FilterOn = True

IN というのはSQLステートメントにありますので、[]で囲ってフィールド名と認識させる必要があります。

投稿2021/01/26 02:09

hatena19

総合スコア33782

YISS

2021/01/26 02:50

教えて頂いたコードだと、動くようになりました。ただ、理解できていない点があるのですが、いままでVBAエディタでMe.Filterを指定するときに、SQLステートメントかどうかの意識は無く(そもそもSQLステートメントというのを正しく理解できていないですが)、[]で囲ったこともなかったです。今回、INがSQLステートメントで・・・というのは、クエリで集計しているINの値を、SQLを用いて計算しているからということでしょうか？