Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
412 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【11828】Me.Filterで○○と△△の抽出 はるねこ 10/10/31(日) 11:50 質問[未読]
【11829】Re:Me.Filterで○○と△△の抽出 雅 10/11/1(月) 11:28 回答[未読]
【11828】Me.Filterで○○と△△の抽出
質問  はるねこ  - 10/10/31(日) 11:50 -
引用なし
パスワード
   OS：vista
ACCESS：2002


住所と氏名のデータが入ったテーブル1があります。

この中から、「東京都」で
氏名に「山」がつく人と、「谷」がつく人
をMe.Filterを使って抽出したいのですが、うまくいきません。。

フォームには、住所1　と　氏名1　と　氏名2　という非連結のテキストボックスを設けています。

いまは、

Me.Filter = "(氏名) like '*" & Me!氏名1 & "*'" _
& IIf(住所1 <> "", " and (住所) Like'" & "*" & 住所1 & "*'", "")
Me.FilterOn = True

としていて、
氏名1に「山」を入力すればいいのですが、同時に、「谷」も検索したいのです・・
【11829】Re:Me.Filterで○○と△△の抽出
回答  雅  - 10/11/1(月) 11:28 -
引用なし
パスワード
   雅です。

「谷」はどこかに入力している条件ですか？
仮に氏名2に入力しているとすれば

Me.Filter = "(氏名 Like '*" & Me![氏名1] & "' Or 氏名 Like '*" & Me![氏名2] & "'"

If IsNull(Me![住所1]) = False Then
　　Me.Filter = Me.Filter & " And 住所 Like '*" & Me![住所1] & "*'"
End If

な感じ？

# IIfが個人的に好きでないので組み替えました。その辺はお好みで
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
412 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
1078193
(SS)C-BOARD v3.8 is Free