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 

线？以编程方式在设计视图中操作控件是很不寻常的。