Question

我想清除Access 2013表单中的所有控件。我在Johan Grfr的这个网站上找到了以下脚本，效果非常好。

Private Sub resetForm()

Dim ctl As Control

For Each ctl In Me.Controls
    Select Case TypeName(ctl)
        Case "TextBox"
            ctl.value = ""
        Case "CheckBox", "ToggleButton"
            ctl.value = False
        Case "OptionGroup"
            ctl = Null
        Case "OptionButton"
            ' Do not reset an optionbutton if it is part of an OptionGroup
            If TypeName(ctl.Parent) <> "OptionGroup" Then ctl.value = False
        Case "ComboBox", "ListBox"
            ctl.RowSource = vbNullString
    End Select
    Next ctl
 End Sub

除了迭代选择计算控件时，我收到以下错误： 您无法为此对象指定值。

是否有可用于绕过计算控件的属性？

Answer 1

尝试Me.myControl.controlsource=""取消绑定该控件

然后拨打resetForm()

Access 2013 vba - 清除表单的控件，绕过计算的控件

1 个答案: