本人建有二个Frame（Frame1可见时，Frame2为不可见，反之亦然），现在想通过遍历控件检测这二个Frame上的Text或者Combo是否填写（或者已选择），未填写（或者未选择）的则使该必输项获得焦点：
Dim Ctl As Control
For Each Ctl In Me.Controls
    If TypeOf Ctl Is TextBox Or TypeOf Ctl Is ComboBox Then
        If len(Ctl)=0 Then
            Ctl.SetFocus
            MsgBox "有必输项未录入！", vbOKOnly + vbCritical, "提示"
            Exit Sub
        End If
    End If
Next
当二个Frame的Visible属性均为可见时，测试可通过，但现在是Frame1可见，Frame2不可见时，Frame2上的必输项如未填写，则执行Ctl..SetFocus出错（因为不可见，无法获得焦点）。请问应如何解决？能否通过代码获知该必输项在哪个Frame内，在执行Ctl..SetFocus前，先使该Frame的Visible=True？

frame2都不可见，应该是不需要填写的吧。
If ctl.visible and (TypeOf Ctl Is TextBox Or TypeOf Ctl Is ComboBox) then

回版主，因为需要填写的要素比较多，我将这些要素分类后，分别放在Frame1和Frame2内，用户可通过类似分页控件的功能进行选择显示相应的Frame后填写必输项，添加数据前统一进行检测这二个Frame的必输项是否填写完整。

我是新手，给不了好的建议，就在这里为你加油了。