アクセスの抽出についての質問です。

質問

アクセスの抽出についての質問です。
あいまい抽出で

ーーーーーーーーーーーーーーー

Private Sub 抽出_Click()

Dim ipt As string

ipt = [抽出条件]
DoCmd.ApplyFilter , "住所 Like '*" & ipt & "*'"

End Sub

ーーーーーーーーーーーーーーー

とボタンのクリック時のイベントプロシージャとして記述します。
抽出条件を「抽出条件」非連結テキストボックスに記入して、
抽出ボタンを押すと抽出できるようにします。

私としては、
A県B市に住んでいる人と、
A県C市に住んでいる人と、
B県C市に住んでいる人がいるとします。

まず「A」という抽出条件でA県B市の人とA県C市の人が抽出されて、
次に「B」という抽出条件でA県B市の人のみ抽出できるようにしたいのです。

ところが実際に実行してみると、
「B」という抽出条件で実行したすると、
A県B市の人と、B件C市の人が二人抽出されてしまいます。

これを私の希望通り、A県B市の人のみが抽出されるようにするにはどうすれば良いでしょうか？

回答No.3

Gin_F · ベストアンサー

ダブってたスレッドが消えている。。。(ーー;)

If Len(Me.Filter) > 0 Then
　　Me.Filter = Me.Filter & " AND [住所] Like '*" & Me!コントロール名 & "*'"
Else
　　Me.Filter = "[住所] Like '*" & Me!コントロール名 & "*'"
End If
Me.FilterOn = True

で、条件の追加になると思います。
あとは、条件を初期化するためのコマンドボタンを作成して、そのクリック時
イベントで、

Me.Filter = ""
Me.FilterOn = False

のようにしておけば大丈夫だと思います。

お礼

すみません。二重投稿になってしまっていたらしく、違うほうは削除されてしまいました。
貴方のアドバイスが一番的確でした。
本当に有難う御座いました。

回答No.2

mshr1962

抽出条件のテキストボックスが２つあるなら分かりますが
１つで両方にするなら
[抽出条件]への入力値を「Ａ県Ｂ」か「Ａ*Ｂ」のような入力にする必要があるのでは？

お礼

質問のしかたが悪かったのか？
ありがとうございました。

回答No.1

imogasi

LIKE演算子の使い方として、LIKE X*（前方一致）とLIKE
*x*(中間一致）の問題ではないのでしょうか。

お礼

求めていた返答とは違いますが、今後の参考にいたします。