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

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