点击附件下载
演 示:
代 码:
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