设置命令按钮单击关闭当前窗体双击退出数据库

欧阳空竹　发表于：2009-07-10 20:34:53 　

复制

设置命令按钮一个，意欲设置两用，单击关闭当前窗体，双击退出数据库系统，代码没有问题，就是不知道如何让这两个动作都绑定到这个命令按钮上？我直接设置可是没有作用。

单击关闭当前窗体代码：

Private Sub 退出录入_Click()
On Error GoTo Err_退出录入_Click

DoCmd.Close

Exit_退出录入_Click:
Exit Sub

Err_退出录入_Click:
    MsgBox Err.Description
    Resume Exit_退出录入_Click

End Sub

***********************************************

双击退出数据库代码：

Private Sub 退出数据库_Click()
On Error GoTo Err_退出数据库_Click

DoCmd.Quit

Exit_退出数据库_Click:
Exit Sub

Err_退出数据库_Click:
    MsgBox Err.Description
    Resume Exit_退出数据库_Click

End Sub

Top

点燃一支烟发表于：2009-07-10 21:01:26

这样简单的搞在一起肯定不行的啊，双击之前就触发了单击事件，关闭了窗体，你的双击肯定是无法执行的，再说何必这么干呢？不就是多做个按钮吗？做两个按纽使用者也看得清楚些！一个是关闭窗体，一个退出系统。呵呵，硬要这么干的话，给你提供个思路，引入时间触发，比方说单击后3秒内没有接到第二下就是关闭窗体，3秒之内收到两下就是退出系统。不过，还是别花这个心思了，实际意义不大，你就弄两个按钮就完了，为省个按钮徒增烦恼，呵呵

Top

sosopain 发表于：2009-07-10 21:27:15

Private Sub 退出录入_Click()

Private Sub 退出数据库_Click()

?????????

你理解什么叫双击事件不?

Top

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

Access交流中心

设置命令按钮单击关闭当前窗体双击退出数据库