遍历窗体控件，检测每个组合框和文本框是否设置了值

时　间:2009-06-30 20:47:20
作　者:   ID：994  城市：杭州
摘　要:遍历窗体控件，检测每个组合框和文本框是否设置了值
正　文:

刚才看到网友问了这个问题，以前做过，发出来供大家参考

Dim tCtrl As Control
    For Each tCtrl In Me.Controls
        Select Case tCtrl.ControlType
            Case acComboBox
                tCtrl.SetFocus
                If Len(tCtrl.Text) = 0 Then
                    MsgBox "请在光标所在的处选择有效数据!", vbCritical, "提示："
                    tCtrl.SetFocus
                    Exit Sub
                End If
            Case acTextBox
                tCtrl.SetFocus
                If IsNull(Trim(tCtrl)) Then
                    MsgBox "请在光标所在的处输入有效数据!", vbCritical, "提示："
                    tCtrl.SetFocus
                    Exit Sub
                End If
        End Select
    Next tCtrl