指定のテキストボックスが空白のレコード抽出について

Question

　現在、発注明細一覧の作成を行っております。
そのシステムは、発注して請求書が来た後に単価を入力するというものになっています。
そのため、単価が空白のレコードを検索する機能を現在作成中です。
しかし、検索する条件にISNULLを使用するとそのレコードが検索されない状態となります。
また、IsNull(Me.単価)の部分を"単価=0"に変えても同じことが起こりました。

指示されたテキストボックスが空白のレコードのみを検索するにはどういったコードを組めばいいのでしょうか。
ちなみにテキストボックスはテキスト形式です。

該当のソースコード

Private Sub コマンド28_Click()
Dim db As DAO.Database 'データベースへの参照を代入する変数を宣言する
Dim rs As DAO.Recordset 'レコードセットへの参照を代入する変数を宣言する
Dim str As String '検索条件を代入する変数を宣言する

Set db = CurrentDb()        'カレントデータベースを参照する

'「Q_明細一覧」クエリを開きレコードセットを取得する
Set rs = db.OpenRecordset("Q_明細一覧", dbOpenDynaset)

'単価の項目が未入力の部分を抜き出す
rs.Filter = IsNull(Me.単価)

'先頭のレコードから指定した条件で検索する
Set rs = rs.OpenRecordset

'すべての検索結果を出力する
Set Me.Recordset = rs
Me.Requery

End Sub

Comments

[y_waiwai]

このままではコードが読みづらいので、質問を編集し、</>(コードの挿入)ボタンを押し、出てくる’’’の枠の中にコードを貼り付けてください

Answer 1

Filterプロパティには、SQLのWHERE句の条件式となるものを文字列として設定します。
単価フィールドがNullのレコードを抽出したいのなら、単価 Is Null という条件式になります。

'単価の項目が未入力の部分を抜き出す
rs.Filter = "単価 Is Null"

'先頭のレコードから指定した条件で検索する
Set rs = rs.OpenRecordset

---

ただし、Accessの設計なら、連結フォームにして、フォームのFilterプロパティに設定するのが通常の方法です。そちらの方が制限が少ないのでメリットが多いです。

Me.Filter = "単価 Is Null"
Me.FilterOn = True