Access 2013 vba - очистить элементы формы, минуя вычисленные элементы управления

Question

Я хотел бы очистить все элементы управления в форме Access 2013. Я нашел следующий скрипт на этом сайте Johan Godfried, и он работает очень хорошо.

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()