Accessで検索フォームに全クリアボタンを配置したい

Question

Accessにてテーブルから帳票フォームの検索フォームでレコード検索するようにしました。
検索フォームはフォームヘッダーに検索項目、検索ボタン、クリアボタンを設置し、詳細フォームに抽出レコードが表示されます。

検索項目にはテキストボックス、チェックボックス（2択）、リストボックス 、コンボボックスを配置しています。

「クリア」ボタンも下記コードにしていますが、一つだけ問題があります。
チェックボックスを２つ選択状態で「クリア」を押すと、クリアされない問題があります。
（例：性別：男性、女性）
1択のみ選択状態で「クリア」ボタンを押すと正常に動きます。
なぜか2択選択状態の時のみクリアがされないです。

どうかお力を貸してください。

Private Sub clear_Click()
    Dim I As Long
    Dim myObj As Object

    For Each myObj in Me
        If myObj.Name like "txt*" Then
            myObj.Value = ""
        End If

        If myObj.Name like "check*" Then
            myObj.Value = False
        End If

        If myObj.Name like "combo*" Then
            myObj.Value = ""
        End If
    Next

    For i = 0 To Me.listAge.ListCount - 1
        listAge.Selected(i) = False
    Next

    Me.Filter = False
End Sub

Answer 1

フォームのレコードソースの性別フィールドの設定はどうなってますか。

例えは、
フィールド名 性別
データ型　Yes/No型
で、True が男性、Falseが女性ということですか。

検索（抽出）用のチェックボックスはどうなってますか。
check性別 と一つですか。
それとも
check男性、check女性
と２つあるのですか。

その辺の状況の詳細を質問に追記してください。

ちなみに、コントロールの種類で処理を分ける場合は、下記のようなコードにするといいですよ。

Private Sub clear_Click()
    Dim ctl As Control
        
    For Each ctl In Me.Controls
        Select Case ctl.ControlType
        Case acTextBox, acComboBox
            ctl.Value = Null
        Case acCheckBox
            ctl.Value = False '仕様が不明瞭なのでとりあえず
        End Select
    Next
End Sub

Answer 2

チェックボックスのvalueはトリプルステートでない場合は、True/Falseです。
ですので、以下の様にしてみてください。

        If myObj.Name like "check*" Then
            myObj.Value = False
        End If

Comments

[kozica]

すいません記載ミスでした。（修正します）
「NULL」ではなく「False」として記載している問題が発生しています。
「NULL」だとクリアを正常にされます。
「NULL」だとチェックボックス が黒塗りされてしまうので「False」にしたいです。
「NULL」で黒塗りされない方法があるのであればそれでも構いません。」
おそらく「False」時で検索をかけて2択の両方に一致するレコード出力でクリアされていないのでは？と推測しています

[sazi]

True/False/Nullという状態があるならそれはトリプルステートですね。
チェックボックスの形状がそのようになるのは仕様です。
検索におけるチェックボックスでNullを使用する場合は、条件指定なしの場合だと思いますので、captionを連動させて分かり易くしてはどうでしょうか（例：男、女、指定なし）

[sazi]

性別のように何れかのみを選択するものなら、オプショングループとしてオプショングループをNullに設定すれば良い気もします。