VBA 코드 작동이 중지됨

Question

다음 코드는 양식을 열 때마다 호출됩니다. 그것은 다섯 번째 열 때까지 작동하며 컨트롤 중 하나를 삭제하지 못합니다. 누구나 이것이 왜 있는지 압니까?

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 counter = Forms(frmName).Controls.Count - 1 To 0 Step -1 
set cb = Forms(frmName).Controls.Item(counter) 

나의 다음 질문 불구하고 전반적인 목적은 무엇과

For Each cb In Forms(frmName).Controls 

라인을 대체? 프로그래밍 방식으로 디자인보기에서 컨트롤을 조작하는 경우는 드뭅니다.