フィルタの情報を保存したい
Me.Form.Filter = ""
Me.Form.FilterOn =
を保存したいのですがどうすればいいでしょうか？
フォームにテキストのフィールドと
抽出とクリアのコマンドボタンを設置して、フィルタをかけたり解除したりしています。
途中でフォームを閉じても最後にフィルタをかけたなら、
再度フォームを開いたときに最後に検索したワードでフィルタが開く用にしたいし
フォームを閉じる前にフィルタを解除したのなら、
再度フォームを開いたときはフィルタが解除された状態にしたいです。
Private Sub cmd_クリア_Click()
Me.Form.Filter = ""
Me.Form.FilterOn = False
DoCmd.Save acForm, Me.Name
End Sub
Private Sub cmd_抽出_Click()
Me.Form.Filter = "フィールド２ like '*" & Me.txt_フィールド２テキスト.Value & "*" & "'"
Me.Form.FilterOn = True
DoCmd.Save acForm, Me.Name
End Sub
としてるのに、フィルタの情報が保存されてません。
再度開きなおしたときは、
必ず全レコードが表示されてしまいます。
フィルタの状態を保存する方法を教えてください。ご回答よろしくお願いします。
お礼
回答ありがとうございました。