关于窗体自动判定退出的问题？

XWQ2000

我在窗体退出按钮上做了一个自动判定

Private Sub Image9_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
   
    Me.Refresh
    If IsNull(Me.Combo1) Or Me.Combo1 = "" Then                  
    MsgBox "检定单位不能为空！"
    Combo1.SetFocus
Exit Sub
    ElseIf IsNull(Me.Combo2) Or Me.Combo2 = "" Then
    MsgBox "检定地点不能为空！"
    Combo2.SetFocus
Exit Sub
    ElseIf IsNull(Me.Combo4) Or Me.Combo4 = "" Then
    MsgBox "环境温度不能为空！"
    Combo4.SetFocus
Exit Sub
    ElseIf IsNull(Me.Combo5) Or Me.Combo5 = "" Then
    MsgBox "环境湿度不能为空！"
    Combo5.SetFocus
Exit Sub
    ElseIf IsNull(Me.检定员) Or Me.检定员 = "" Then
    MsgBox "检定员项目不能为空！"
    检定员.SetFocus
Exit Sub
    ElseIf IsNull(Me.校验员) Or Me.校验员 = "" Then
    MsgBox "校验员项目不能为空！"
    校验员.SetFocus
Exit Sub
End If
DoCmd.Close
End Sub

但是如果这样的话 打开这个窗体后当不想输入任何信息，退出时系统又会提示你。请问有没有更好的解决方法？

[此贴子已经被作者于2006-2-19 14:34:06编辑过]

wuaza

写在窗体的更新前事件中。