あした

' フォームのヘッダー内の入力条件をクリアする。
'   ◆対象コントロール
'   ・テキストボックス
'   ・コンボボックス
'   ・リストボックス
'   ・オプショングループ
'
Private Sub Clear_search_conditions()
    Dim h_ctl               As Control
    
    On Error Resume Next
    'フォーム内のヘッダーのコントロールを検索
    For Each h_ctl In Me.Section(acHeader).Controls             'ヘッダー項目のみ
        With h_ctl
            Select Case .ControlType
                Case acTextBox                  'テキストボックス
                    If Not .Locked Then         '編集ロックしていない項目
                       .Value = Null
                    End If
                Case acComboBox, acCheckBox     'コンボボックス/リストボックス
                        .Value = Null
                Case acOptionGroup
                        .Value = "1"            'オプショングループ
            End Select
        End With
    Next h_ctl

Proc_EXIT:
    DoCmd.SetWarnings 1
    Exit Sub
ErrProc:
'    Debug.Print h_ctl.Name
    MsgBox Err.Number & " " & Err.Description
    Resume Proc_EXIT
End Sub