Accessの検索フォーム

質問

またまたＡｃｃｅｓｓについての質問です。
検索フォームというのを作りました。
テーブルのデータから条件に合うものだけを抽出したいのです。
たとえば１つ目の検索フォーム[Ａ]のテキストボックスに「ＡＡＡ」を入力します。
そのあとＢには「ＢＢＢ」と入力します。
同じくＣには「ＣＣＣ」と入力します。
そして絞込みボタンを押したらＡＡＡでＢＢＢでＣＣＣのものが抽出されます。
これはうまくいきました。
とりあえず、複数条件なので、わけもわからず「＆」で結んでしまいました・・・。
↓は絞込みボタンのクリック時です。↓

困ったのは、すべて検索条件を指定しない場合です。
たとえば「ＡＡＡ」で「ＣＣＣ」のものを抽出したいとき、[Ａ]のテキストボックスに「ＡＡＡ」と入れ
[Ｃ]のテキストボックスに「ＣＣＣ」と入れます。
そして絞込みボタンをクリック。
するとＢが未記入だからか、抽出されたのは真っ白でした・・・。

Option Compare Database

Private Sub コマンド50_Click()
Me.Filter = "契約='" & Me!テキスト51 & "'and A='" & Me!テキスト57 & "'"
Me.FilterOn = True
End Sub

組み合わせが自由になる検索フォームにするにはどうすればよいのでしょうか？
誰か助けてくださ～い！

回答No.6

ngsvx · ベストアンサー

>ところが、「Ａ」と「Ｂ」というような「契約」が入ってない条件で抽出すると・・・真っ白になりました。
なぜなのでしょうか？？？

「契約」の入力の有無にかかわらず、抽出条件に指定されているためです。

ここの部分です。

sFilter = "契約='" & Me!テキスト51 & "'"

入力がないときに抽出条件から外したいのなら、

sFilter = ""
IF IsNull(Me!テキスト51) = False Then
　sFilter = "契約='" & Me!テキスト51 & "'"
End IF

としなければなりません。

ただ、これだと「契約」が未入力のとき、sFilterの内容は、

「and A='xxxxx' and B='yyyyy'」

のように、「and」から始まってしまいます。
これではエラーになります。

対策として、ダミーの条件をいれましょう。
つまり、

sFilter = "1=1"
IF IsNull(Me!テキスト51) = False Then
　sFilter = "and　契約='" & Me!テキスト51 & "'"
End IF

というようにします。
こうすると、sFilterの内容は、

「1=1 and 契約='qqqqq' and A='xxxxx' and B='yyyyy'」
もしくは
「1=1 and A='xxxxx' and B='yyyyy'」

のようになります。

できるだけ仕組みを覚えてくださいね。
そうしないと、直すことができないですよ。

お礼

ありがとうございます。
がんばってやってみます。
いろいろ本を読んだりしたのですがいまいち分からなくて・・。
何かオススメの本があったらまた教えてください。
ほんとにありがとうございました。

回答No.5

ngsvx

#3です。

>（初心者なもので、基本的な質問ですみません）

なるほど。。。

少し、解説しておきます。

●意味がわかれば簡単です

・「Me」は自分のフォームを指しています。
・「Me.A」とすると「このフォームの中にあるAという名前のコントロール」となります。
・「If IsNull(Me.A) = True Then」は、「Aというコントロールに入力がなかったら」となります。
　（「End If」まで実行されます）

●テキストボックスの名前は関係あります。

　修正・変更などのように、後で見るときのために、適切な名前に変えておくといいでしょう。

　今の状態だと、

　If IsNull(Me.A) = True Then
　　sFilter = sFilter & " and A='" & Me.A & "'"
　End IF

　は、

　If IsNull(Me.テキスト57) = True Then
　　sFilter = sFilter & " and A='" & Me.テキスト57 & "'"
　End IF

　のようになります。
　（上のコードは、全角スペースを入れたので、コピペできません）

　＊回答したときには、名前に気が付かなかったので、申し訳ないです。

　そのまま貼り付けただけだと、「コントロールがありません」とかいうエラーが
　でそうな気がしますけど。。。何故？

　わからない箇所があれば、また聞いてください。

お礼

何度も何度もご親切にありがとうございます！
今から仕事に行ってやってみます！
また夜に報告します。
ありがとうございました（＾－＾）

補足

お久しぶりですみません。

あれからやってみたのですが、９０％はできました！！
「契約」と「Ａ」の組み合わせとか、「契約」と「Ｂ」の組み合わせとか、「契約と「Ａ」と「Ｃ」の組み合わせでうまく抽出できました。
ところが、「Ａ」と「Ｂ」というような「契約」が入ってない条件で抽出すると・・・真っ白になりました。
なぜなのでしょうか？？？
またよろしくお願いします。

回答No.4

ngsvx

#3です。

そうですね。同じようにすればＯＫです。
（全く同じではでないですけど）

次のような感じになります。

'テキストボックスＣ
If IsNull(Me.C) = False Then
sFilter = sFilter & " and C='" & Me.C & "'"
End IF

の後ろに次のコードを追加します。

'テキストボックス（開始日付）
If IsNull(Me.txStartDate) = False Then
sFilter = sFilter & " and " & Me.txStartDate & "<=date"
End IF

'テキストボックス（終了日付）
If IsNull(Me.txEndDate) = False Then
sFilter = sFilter & " and date<=" & Me.txEndDate
End IF

ただし、
・txStartDateは開始日付のテキストボックス
・txEndDateは終了日付のテキストボックス
・dateはテーブルの日付フィールド名
・日付のフィールドが、どのように定義されているか不明なので、
　上記のコードのままではうまくいかない可能性はあります。
　その場合、日付フィールの型に合わせた記述をする必要があります。

を表しています。

また、開始日付と終了日付は一方のみの入力で動作します。

補足

またまたありがとうございます！
昨夜から帰ってやってみたのですが、いろいろ触ったからでしょうか？うまく出来ていた検索ができなくなってしまいまいした・・・（；；）
「契約」のところはうまく絞り込んでくれるのですが、「A」のボックスのみに入力して絞り込みをしたら
真っ白になってしまいました～・・・。「B」も「C」も同じく絞り込めません。
「契約」に入れて、「A」（またはB/C）に入れて、ふたつ絞り込み条件を入れると「契約」の中の「A」が表示されるはずなのに、「契約」のみが絞り込まれます。

テキストボックスの名前とか関係あるんですか？
（初心者なもので、基本的な質問ですみません）
いろいろ書き直したので、前回「回答！」に書いて下さってたのをそのままコピーして貼り付けました。

Private Sub コマンド50_Click()

Dim sFilter As String

sFilter = "契約='" & Me!テキスト51 & "'"

'テキストボックスＡ
If IsNull(Me.A) = True Then
sFilter = sFilter & " and A='" & Me.A & "'"
End IF

'テキストボックスＢ
If IsNull(Me.B) = True Then
sFilter = sFilter & " and B='" & Me.B & "'"
End IF

'テキストボックスＣ
If IsNull(Me.C) = True Then
sFilter = sFilter & " and C='" & Me.C & "'"
End IF

Me.Filter = sFilter
Me.FilterOn = True

End Sub

それぞれのテキストボックスのプロパティの名前のところには
A　テキスト57
B　テキスト65
C　テキスト67
D　テキスト69

となっています。
またぜひよろしくお願いします。
ほんとにすみません～・・・。

回答No.3

ngsvx

単純に、入力がなければ、条件に加えないようにしたらどうでしょうか？

Me.Filterに設定する内容を予め作っておきます。

Private Sub コマンド50_Click()

Dim sFilter As String

sFilter = "契約='" & Me!テキスト51 & "'"

'テキストボックスＡ
If IsNull(Me.A) = True Then
sFilter = sFilter & " and A='" & Me.A & "'"
End IF

'テキストボックスＢ
If IsNull(Me.B) = True Then
sFilter = sFilter & " and B='" & Me.B & "'"
End IF

'テキストボックスＣ
If IsNull(Me.C) = True Then
sFilter = sFilter & " and C='" & Me.C & "'"
End IF

Me.Filter = sFilter
Me.FilterOn = True

End Sub

お礼

ありがとうございます！！
うまくいきました！！
それと・・・もうひとつ質問なんですが・・・。
日付○日～○日、も選びたいんですが、同じようにすれば良いのでしょうか？
よろしくお願いします。

回答No.2

H-black

私の場合もクエリですけれど、ringo0120さんのおっしゃる「テキスト５１」の前後にワイルドカード「"*"」をつけて＆で繋げています。あとNull記述もしてますね。
こんなカンジです。
Like "*" & [forms]![フォーム名]![テキスト名] & "*" Or Is Null
これを各抽出条件に入れています。
検索条件が多い場合にクエリの抽出条件の列が１列で済むので重宝してます。書くのめんどくさいですけどね。

お礼

ありがとうございます！
ワイルドカード、私も最初やったのですが、どうもうまくいきませんでした。
H-blackさんの言うように書いてみるとできました！
なので、もうひとつの巨大検索フォームに使わせてもらいました～！！（＾－＾）
ありがとうございました！

回答No.1

yamutya

クエリでうまくできます。
フォームにテキストボックス入力窓を３つ開け
クエリの抽出条件の欄にそのフォームの入力窓を入力して行きます。一行目は　Ａ　と　ＢとＣを同じ行に　２行目はＡとＢ　３行目はＡとＣ　４行目は　ＢとＣ　５行目はＡ　６行目はＢ　７行目はＣと７行に分ければいいでしょう。アンド　ではなくて　オア　で検索されるので　入力のない欄があってもだいじょうぶです

お礼

ありがとうございますーー！！
この方法、簡単だし、うまくできました！！
なので、これも検索フォームに使わせてもらいます！！
ほんとにありがとうございました！！