|
▼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初心者なので、また書き込みするかもしれませんが、その時もよろしくお願いします。
|
|