選択フォームに入力した条件をボタンで消去したいです。ネット上で色々調べて試したものの、どれも上手く動

選択フォームに入力した条件をボタンで消去したいです。ネット上で色々調べて試したものの、どれも上手く動作しません。フォームに配置しているテキストボックスを一括で白紙(未入力)の状態にするボタンを設置しようとしてます。是非ご教授お願いします。

No.1 ベストアンサー 回答者： psgrade 回答日時： 2020/07/11 11:40

クリア用ボタンを作成し、クリック時イベントに、下記のように記載してテキストボックスにNullを設定します。

例として、名前が「検索１」から「検索５」まで検索条件用のテキストボックスがある場合で記載してみました。

Dim i As Integer

For i =0 To 5
Me("検索" & i)=Null
Next i

Me.Filter="" 　　'選択条件クリア
Me.FiterOn=False　　'選択解除

のように記載すればよいのではないでしょうか。
名前に数値がない場合、フォーム上のコントロールの内、テキストボックスを検出してNull設定するしかたもあります。
テキストボックスが少ないのであれば、単純に名前を指定して、Me![テキストボックス名]=Nullとすればいいです。

この回答へのお礼

Me![テキストボックス名]=Nullをテキストボックス名を変えながら個数分繰り返すと言う事で良いのですね。それならば、先の記述も理解は出来ましたが、後の方が分かりやすいので、後のやり方で試してみます。ありがとうございました。

お礼日時：2020/07/14 12:37

No.2 回答者： psgrade 回答日時： 2020/07/14 13:52

後の方とは、コントロールを検索して、Null設定ですね。

でしたら、下記サイトを参照ください。

https://tsware.jp/tips/tips_309.htm