Office中国论坛/Access中国论坛

标题: 关于窗体自动判定退出的问题？ [打印本页]

作者: XWQ2000 时间: 2006-2-19 22:30
标题: 关于窗体自动判定退出的问题？
我在窗体退出按钮上做了一个自动判定

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 时间: 2006-2-19 23:39
写在窗体的更新前事件中。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)