保存时提示哪个文本未输入

这是我做过的一个例子，可以实现你要的功能，但效率可能不高，不如逐个写代码。
   

    遍历窗体控件，检测每个组合框和文本框是否设置了值
    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