清除按钮不好用（抄袭刘小军老师的代码）

试试这个清空代码

On Error Resume Next
    Dim Ctl As Control
    
    For Each Ctl In Me
        Select Case Ctl.ControlType
        Case acCheckBox
            Ctl.Value = False
        Case Else
            Ctl.Value = Null
        End Select
    Next