
アクセスです。
テーブルに
フィールド1 フィールド2
A
B B
C C
と入ってるとします。
フィールド2についてはNULL値のレコードもあれば、
値が入ってる場合もあります。
このテーブルをフォームにひもづけていて、(帳票フォームにしています)
フォームヘッダーにテキストボックス2つとコマンドボタンがあり
Private Sub コマンド_Click()
Me.Form.Filter = _
"フィールド1 like '*" & Me.テキスト_1.Value & "*'" & " and " _
& "フィールド2 like '*" & Me.テキスト_2.Value & "*'"
Me.Form.FilterOn = True
End Sub
としたときに、レコードのフィールド2に文字が入ってる場合は、抽出できるのですが、
フィールド2がNULLの場合は、1件もヒットしません。
テキスト_1にはAを入れて
テキスト_2には何も入れないで検索してみると、1件もヒットしませんが、
テキスト_1にBを入れて検索すると、Bのレコードが抽出されます。
もちろん
テキスト_1もテキスト_2もBをいれても、Bのレコードが抽出されます。
VBAコードで
& "フィールド2 like '*" & Me.テキスト_2.Value & "*'"
としてるので、NULL値でも抽出されると思ったのですがなぜ何も抽出されないのでしょうか?
ワイルドカードでnull値も検索されないのでしょうか?
テーブルのフィールド2のデータをNull値ではなく、””にしたら、問題なく抽出されましたが
データのNull値はNull値のままにして、空白などの文字には置き換えたくないです。
(というか、すべてのNULL値に空白を入れる作業が大変なのでやりたくないです。
実際のフィールド数は50個くらいあります)
よろしくお願いします。

No.2ベストアンサー
- 回答日時:
テキスト_2 に入力がなかった場合、
> "フィールド2 like '*" & Me.テキスト_2.Value & "*'"
は、 "フィールド2 like '**'" となり、Null 以外全部・・・という意味になります。
Null のものも対象としたい場合には、条件を記述しない事です。
例えば
Dim sWhere As String
Const sAndOr = " AND "
sWhere = ""
If (Not IsNull(Me.テキスト_1)) Then
sWhere = sWhere & sAndOr & "フィールド1 like '*" & Me.テキスト_1 & "*'"
End If
If (Not IsNull(Me.テキスト_2)) Then
sWhere = sWhere & sAndOr & "フィールド2 like '*" & Me.テキスト_2 & "*'"
End If
If (Len(sWhere) > 0) Then
Me.Filter = Mid(sWhere, Len(sAndOr) + 1)
Me.FilterOn = True
Else
Me.FilterOn = False
Me.Filter = ""
End If
※
条件を記述する場合、文字列先頭に必ず sAndOr を付加します。
条件ありの場合は、先頭の sAndOr を除いた分を条件設定します。
>フィールド2 like '**'" となり、Null 以外全部・・・
ワイルドカードでnull値は抽出されないとのこと、覚えます。
頂いたコードの仕組みがよくわかりませんが、
(特にMe.Filter = Mid(sWhere, Len(sAndOr) + 1)の部分)
使わせていただきます。
ありがとうございました。
No.1
- 回答日時:
F1 F2
A
B B
C
としたら、クリック時イベントに
Me.Form.Filter = _
IIf(IsNull(Me!TX1), "(F1 like '*" & Me!TX1.Value & "*' or F1 is Null)", "(F1 like '*" & Me.TX1.Value & "*')") _
& " and " _
& IIf(IsNull(Me!TX2), "(F2 like '*" & Me!TX2.Value & "*' or F2 is Null)", "(F2 like '*" & Me.TX2.Value & "*')")
Me.Form.FilterOn = True
MsgBox Me.Filter
ということかな?
テキスト_1 → TX1、フィールド1 →F1 のようにしています。
Filterプロパティの中にIIF関数を入れることもできるのですか。
知りませんでした。
条件として、"*' or F1 is Null
としないと、null値は抽出されないようですね。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
アクセスのフィルタ nullについて。
その他(データベース)
-
アクセスのfilter、複数条件の記述方法を教えてください。
Access(アクセス)
-
Accessのフォームで、空欄のレコードを検索したい。
その他(データベース)
-
-
4
ACCESSでfilterとorderbyについて
その他(データベース)
-
5
アクセスでテキストボックスの値が空白だったら
Access(アクセス)
-
6
Accessのフォームにて、詳細行のボタンを行の内容により、表示/非表
その他(Microsoft Office)
-
7
ACCESSで空白のデーターをクエリで判定/識別する方法を教えてくださ
Access(アクセス)
-
8
accessvba 複数条件でFilterをしたい
Access(アクセス)
-
9
アクセスVBAで既に開いているエクセルを閉じたい
Yahoo!ショッピング
-
10
Access 複数条件検索の設定が上手く行きません
Access(アクセス)
-
11
カレントレコードが無い事を判定させる方法
Visual Basic(VBA)
-
12
MsgBoxについて
Visual Basic(VBA)
-
13
フォントの大きさ
Visual Basic(VBA)
-
14
エラー(型が一致しません。)の対処方法
Visual Basic(VBA)
-
15
アクセスで特定のレコードを非表示にする方法
Access(アクセス)
-
16
アクセスVBAのMe!と[ ]
Access(アクセス)
-
17
2つ目のレコードの値を取得するには?
Access(アクセス)
-
18
Accessで、Today関数を使って条件を指定する
Excel(エクセル)
-
19
フォームで入力しても反映されない
Access(アクセス)
-
20
Accessのフォームで開く時のウィンドウサイズを指定する
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Accessでグループ化した結果フ...
-
access で「指定したフィール...
-
RPGツクールVX 戦闘後、フィー...
-
[Access]クエリの抽出条件について
-
アクセスで前年対比を出す方法...
-
ACCESS クエリで重複データを最...
-
accessのレポートであとから他...
-
入力途中の入力した値をすべて...
-
ACCESSで入力フォームをHTMLフ...
-
Accessクエリのデータ表示件数...
-
ACCESS のクエリー実行に異常に...
-
Accessの入力フォームから、テ...
-
アクセスについて
-
ACCESSで、フォームのレコード...
-
Accessのフォーム上にレコード...
-
ACCESSフォームでのレコード数...
-
フォームを削除するVBA
-
Accessを使って日付を比較したい
-
ACCESSにてフィールド間の最小...
-
アクセス 0以外をカウントす...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Accessのクエリで、Left関数を...
-
アクセスで前年対比を出す方法...
-
Access2000 2番目に大きい数値...
-
別のテーブルのフィールドを抽...
-
access で「指定したフィール...
-
【至急】Mp3tagで歌手情報を追...
-
Accessでフォームへのフィール...
-
アクセスのフィールドデータを...
-
宛名作成(Word)の郵便番号が...
-
式の意味を教えてください
-
Microsoft Accessでのレコード...
-
アクセス クエリについて2点お...
-
Accessのクエリ
-
Accessでグループ化した結果フ...
-
アクセス2010でフィールドから...
-
ACCESSの関数について
-
ファイルメーカー5.5から4...
-
【access】テキストから日付へ...
-
ACCESS2000について
-
ファイルメーカーで名前のよみ...
おすすめ情報