求关闭ACCESS主窗口代码

GAOZHONG

求关闭ACCESS主窗口代码。不要docmd.Quit

Alashome

good

zww3008

回复 GAOZHONG 的帖子

怎么会？完全没问题啊,就一次提示，不会出现两次提示啊。

GAOZHONG

回复 todaynew 的帖子

谢谢老师的教程，受教了。
只是这一方法用在红尘如烟老师的通用平台上不可行的。

GAOZHONG

问题是这个通用平台会在系统退出时自动调用这个函数，所以，一旦设置退出按钮执行docmd.Quit就会重复弹出两次退出系统的确认框。把数据库发上来了，请老师帮我看看。登录名：admin  密码：666666

todaynew

GAOZHONG 发表于 2011-6-21 17:04
不好意思，下午一直在忙，这么多老师都给回复了，先谢大家回复。说来惭愧，用红尘如烟老师的通用系统做平台 ...

不好用就别用。红尘的关闭函数中有太多的附带功能，你的系统不一定用的上。
直接写一个Quit就行了，再不然就在自定义下，将退出按钮拖入菜单即可。

GAOZHONG

不好意思，下午一直在忙，这么多老师都给回复了，先谢大家回复。说来惭愧，用红尘如烟老师的通用系统做平台，只是他的系统没有退出系统的按钮，每次要点主窗体上的关闭叉叉才能退出系统，所以想加个退出按钮，可是折腾了好久没成功，他的系统里有一个退出系统的公共函数如下：

Public Sub QuitSystem()
'On Error GoTo Err_QuitSystem

    Dim frm As Form

    If MsgBox("确定要退出系统吗？", vbQuestion + vbOKCancel) = vbOK Then
       For Each frm In Forms
            If frm.Name <> "frmLogon" Then DoCmd.Close acForm, frm.Name
        Next
        
        '删除链接表
        If GetDbSetting("DeleteLinkTablesWhenQuit", True) Then UnlinkData
        '如果控制面板窗体已经打开且启用了自动备份时,退出时备份数据
        If FormIsLoaded("frmMain") And GetDbSetting("AutoBackkupOn", False) Then BackupData
        '如果不是一个新的副本,则自动进行设置,这样如启动时不显示数据库窗体等设置就不必手动处理,只要再次重启就行了
        If GetDbSetting("IsNewCopy", True) Then
            Call Form_frmOptions.cmdOK_Click
            SaveDbSetting , "IsNewCopy", DB_BOOLEAN, False
        End If
        
        '退出
        DoCmd.Quit
    Else
        gblnQuitSystem = False
        DoCmd.CancelEvent
    End If

End Sub
当我在退出按钮单击事件中调用这个函数时就是不行，会弹出两次确认退出的消息框，不光如此，直接点了取消，系统也退出。实在不行，才问上面的问题，

zhuyiwen

我猜楼主可能是要不显示Access主窗口或者Access的数据库窗口，而并非是退出Access。

roych

docmd.close

tmtony

关闭主窗体就是这个哦，为什么不用这个？ 有什么问题