空值判别问题请教

ycxchen

窗体的数据源为“考勤记录表”，“员工”字段数据类型为数字型 ，为何录入数据时，如果员工保留为空，当日期数据录入后用如下两种办法均不能对“员工”组合框进行空值判别，请问，在保留“员工”组合框数据源设置不变的情况下，如何修改代码才能达到目的？
Private Sub 开始日期_AfterUpdate()
'If Not IsNumeric([员工]) Then '数字型值判断
If IsNull(Me.员工) Then
  MsgBox "注意，请假员工的姓名你没有输入！", vbExclamation + vbOKOnly, "温馨提示"
  Me.员工.SetFocus
     Else
      If CVDate([开始日期]) > Date Then
        MsgBox "注意，开始日期不能大于当前日期，请重新确认！", vbExclamation + vbOKOnly, "温馨提示"
        Me.开始日期 = ""
        Me.开始日期.SetFocus
      End If
End If

ycxchen

再请教：在本例子中，录入一条新记录如发现有错点击“删除记录”后再点击“返回”，运行If NewRecord Then 语句，发现ACCESS仍然算是新记录的，我不明为何新记录删除后仍为新的？

ycxchen

十分感谢版主指教！我试过，只有写入If Nz(Me.员工,0)=0 Then语句可以达目的。

todaynew

以下三种均可：
If IsNumeric([员工]) = False Then

If IsNull(Me.员工)=True Then

If Nz(Me.员工,0)=0 Then