Код VBA Останавливает работу

Question

Следующий код вызывается каждый раз, когда форма открывается. Он отлично работает до 5-го открытия, а затем пропускает удаление одного из элементов управления. Кто-нибудь знает, почему это?

For Each cb In Forms(frmName).Controls 
    If cb.ControlType = acCheckBox Then 
     If Left(cb.Name, 3) = "clr" Then 
      DeleteControl frmName, cb.Name 
     End If 
    ElseIf cb.ControlType = acLabel Then 
     If Left(cb.Name, 3) = "clr" Then 
      DeleteControl frmName, cb.Name 
     End If 
    End If 
Next 

Answer 1

Когда вы удаляете элемент из коллекции в Access, следующий элемент перемещается в это место. Таким образом, когда дело доходит до удаления предметов из коллекции, вы должны начать в конце коллекции и вернуться назад.

Так замените строку

For Each cb In Forms(frmName).Controls 

с

For counter = Forms(frmName).Controls.Count - 1 To 0 Step -1 
set cb = Forms(frmName).Controls.Item(counter) 

Мой следующий вопрос, хотя это то, что ваша главная цель? Необычно манипулировать элементами управления в дизайне программно.