Access VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
192 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【12607】片方の条件でのApplyFilterの使い方 kok 14/9/4(木) 15:53 質問[未読]
【12608】Re:片方の条件でのApplyFilterの使い方 hatena 14/9/4(木) 16:22 回答[未読]
【12609】Re:片方の条件でのApplyFilterの使い方 kok 14/9/4(木) 17:07 お礼[未読]
【12607】片方の条件でのApplyFilterの使い方
質問  kok  - 14/9/4(木) 15:53 -
引用なし
パスワード
   初めて書き込みさせていただきます。
Access2010を使用しています。

フォームで顧客番号または、顧客名（一部一致のもの全て）のどちらかでフィルターを掛けたいのですが、どうすればよろしいでしょうか？
両方ともテキスト型です。


個々にボタンを持ち、顧客番号のみや顧客名のみでは下記の式でとれるのですが、一つのボタンで処理をしたいのですがうまくいきません。

（顧客番号のみ）DoCmd.ApplyFilter "", "[Q顧客名]![顧客番号] like [forms]![F顧客一覧]![顧客番号入力]"

（顧客名のみ）DoCmd.ApplyFilter "", "[Q顧客名]![顧客名] like '*" & [Forms]![F顧客一覧]![顧客名入力] & "*' "

お手数ですが教えて下さい。よろしくお願いします。
【12608】Re:片方の条件でのApplyFilterの使い方
回答  hatena  - 14/9/4(木) 16:22 -
引用なし
パスワード
   >個々にボタンを持ち、顧客番号のみや顧客名のみでは下記の式でとれるのですが、一つのボタンで処理をしたいのですがうまくいきません。
>
>（顧客番号のみ）DoCmd.ApplyFilter "", "[Q顧客名]![顧客番号] like [forms]![F顧客一覧]![顧客番号入力]"
>
>（顧客名のみ）DoCmd.ApplyFilter "", "[Q顧客名]![顧客名] like '*" & [Forms]![F顧客一覧]![顧客名入力] & "*' "

Ifで場合分けすればいいのでは。

If Forms!F顧客一覧!顧客番号入力 <> Then
　　DoCmd.ApplyFilter "", "[Q顧客名]![顧客番号] = [Forms]![F顧客一覧]![顧客番号入力]"
ElseIf Forms!F顧客一覧!顧客名入力 <> "" Then
　　DoCmd.ApplyFilter "", "[Q顧客名]![顧客名] like '*" & [Forms]![F顧客一覧]![顧客名入力] & "*'"
End If
【12609】Re:片方の条件でのApplyFilterの使い方
お礼  kok  - 14/9/4(木) 17:07 -
引用なし
パスワード
   ▼hatena さん：
>>個々にボタンを持ち、顧客番号のみや顧客名のみでは下記の式でとれるのですが、一つのボタンで処理をしたいのですがうまくいきません。
>>
>>（顧客番号のみ）DoCmd.ApplyFilter "", "[Q顧客名]![顧客番号] like [forms]![F顧客一覧]![顧客番号入力]"
>>
>>（顧客名のみ）DoCmd.ApplyFilter "", "[Q顧客名]![顧客名] like '*" & [Forms]![F顧客一覧]![顧客名入力] & "*' "
>
>Ifで場合分けすればいいのでは。
>
>If Forms!F顧客一覧!顧客番号入力 <> Then
>　　DoCmd.ApplyFilter "", "[Q顧客名]![顧客番号] = [Forms]![F顧客一覧]![顧客番号入力]"
>ElseIf Forms!F顧客一覧!顧客名入力 <> "" Then
>　　DoCmd.ApplyFilter "", "[Q顧客名]![顧客名] like '*" & [Forms]![F顧客一覧]![顧客名入力] & "*'"
>End If

ありがとうございます。できました。
一行目の Then の前に "" が無かったのでエラーが出てびっくりしましたが助かりました。

VBA初心者なので、また書き込みするかもしれませんが、その時もよろしくお願いします。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
192 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
1078188
(SS)C-BOARD v3.8 is Free