点击附件下载

演   示:

代   码:

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