みんなの「教えて(疑問・質問)」にみんなで「答える」Q&Aコミュニティ

こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

Access2016 抽出したレコード

こんにちは、よろしくお願いします。

フォームのヘッダーに以下のような検索システムを作りました。
Private Sub Cmd_抽出_Click()
   Dim strSagasu As String
   strSagasu = Me![Txt_抽出]
   Me.Filter = "物件名 Like '*" & strSagasu & "*'"
   Me.FilterOn = True
  End Sub

そうしました所、立派に検索できたのですが
元のすべてのレコードがある画面に戻す方法がわからず・・・

どなたか詳しい方、どうかお教えください。
よろしくお願い致します。

投稿日時 - 2018-04-13 17:11:16

QNo.9488197

困ってます

質問者が選んだベストアンサー

たとえばボタンを一つ用意し、ボタンクリックで。

Private Sub cmdフィルタ解除_Click()
'フィルタを解除しすべて表示
Me.FilterOn = False
End Sub

投稿日時 - 2018-04-13 19:38:38

お礼

こんにちは。早々にご回答くださいましたのに
確認が遅くなり申し訳ありません。
うまくできました。ありがとうございます。
今後ともよろしくお願いいたします。

投稿日時 - 2018-04-16 14:26:58

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問