在我们用窗体录入数据的时候，经常会设置窗体中有些数据不能为空，如学生资料（姓名），有些数据可以为空的情况。     当保存的时候，需要判断不能为空的控件是否为空值，当控件为空时控件获得焦点并提示用户输入数据。     这样的功能并不难，但是当一个系统中数据录入窗体比较多的话，就必须逐个去判断，工作量就大了

    下面的示例通过一个自定义的函数，简单点实现了保存数据时提示为必填字段

Function funIsNull(ByVal frmFm As Form, ByVal strControls As String) As Integer    

    Dim i As Byte

    Dim A As Byte

    Dim ctl As Control

    A = UBound(Split(strControls, ","))

    For i = 0 To A

        For Each ctl In frmFm.Controls

            If IsNull(ctl) And ctl.ControlName = Split(strControls, ",")(i) Then

                MsgBox ctl.ControlName & "为空，请输入" & ctl.ControlName & "！", vbExclamation, "提示"

                ctl.SetFocus

                funIsNull = True

                Exit Function

            End If

        Next ctl

    Next i

End Function