点击关闭按窗体按钮时，如出错误或有必填项未填时，反回当前，不关闭窗体（不使用系统自带提示），

he　发表于：2013-01-31 16:17:15 　

复制

各位大侠，请问题请教，如题。

Top

宏鹏发表于：2013-02-02 09:10:40

在按钮中先做判断，如果有条件不满足的，则弹出msgbox并跳出过程，如果条件都满足的，则执行关闭窗体代码

Top

dbaseIIIer 发表于：2013-02-05 00:17:09

Sub Form_Close( Cancel <------ 注意是有个参数给你的）

只要你在里面的代码里面有 Cancel=True

这个关闭命令就会取消掉的了！

如果这个关闭事件事由 docmd.close 触发的话，

Docmd.Close 这一句会产生执行错误，可以用以下语句捕获

On error resume next

Docmd.Close acForm, "xxx"

if err>0 then

'这里就捕获了没有关闭的情况

end if

Top

殷小宝发表于：2013-02-05 11:56:44

Private Sub 关闭_Click()
If IsNull(Me.字段1) Then
MsgBox "字段1不为空,请填写完整后再关闭!", vbCritical, "提示"
Me.字段1.SetFocus
Exit Sub
End If
If IsNull(Me.字段2) Then
MsgBox "字段2不为空,请填写完整后再关闭!", vbCritical, "提示"
Me.字段2.SetFocus
Exit Sub
End If
If Err > 0 Then
MsgBox "出现错误不能关闭本窗体,请再检查一遍!", vbCritical, "提示"
Exit Sub
End If
DoCmd.Close acForm, Me.Name

End Sub

Top

he 发表于：2013-08-07 16:26:37

谢谢！学习了。

Top

总记录：4篇页次：1/1 9 1 :

Access交流中心

点击关闭按窗体按钮时，如出错误或有必填项未填时，反回当前，不关闭窗体（不使用系统自带提示），