使用 POP-UP 表单时，MSACCESS.EXE 不会关闭

Question

其他人在退出数据库时遇到了 MSACCESS.EXE 进程未关闭（从任务管理器）的问题。我读过的每一篇文章都与没有正确关闭记录集变量有关。

当我退出正在处理的数据库时，我注意到 MSACCESS.EXE 进程从 Win 10 任务管理器中的“应用程序”部分移动到“后台进程”。这个挂起的进程继续使用 RAM。我确定我正在正确关闭所有记录集变量。

通过大量调试，我想出了一个简单的方法来复制问题：

1. 在新的 Access 数据库中创建两个表单。将其中一个的 PopUp 属性设置为 True，将另一个设置为 False。保存表单“PopUp”和“NoPopUp”并关闭数据库。
2. 打开任务管理器查看屏幕上运行的进程。
3. 打开 Access 数据库并打开 NoPopUp 表单。请注意 Apps 下的 MSACCESS.EXE 进程。
4. 关闭您的数据库。请注意，MSACCESS.EXE 已从您的进程列表中删除（在“应用程序”和“后台进程”下）。
5. 现在重新打开 Access 数据库并打开弹出窗口。然后关闭数据库。
6. 请注意，MSACCESS.EXE 进程从“应用程序”部分移动到“后台进程”，并且仍在使用系统内存。

每次在打开其 Pop-up 属性设置为 True 的表单后关闭数据库时，额外的 MSACCESS.EXE 进程都会在任务管理器中挂起。

我的数据库使用了大量的弹出式表单。我应该如何关闭我的数据库，这样这些挂起的进程就不会堆积起来？ （我在 Windows 10 中使用 Access 2013。）

谢谢， 山姆

Answer 1

你现在如何关闭你的数据库？

你能改变命令来调用一个函数吗？ 然后在该函数中调用一个关闭所有打开表单的例程 您可能需要在不保存的情况下添加要关闭的参数 - 取决于您的结果。

Function CloseAllOpenFrms()
    On Error GoTo Error_Handler
    Dim DbF                   As Access.Form
    Dim DbO                   As Object

    Set DbO = Application.Forms    'Collection of all the open forms

    For Each DbF In DbO    'Loop all the forms
            DoCmd.Close acForm, DbF.Name, acSaveNo
    Next DbF

Error_Handler_Exit:
    On Error Resume Next
    Set DbF = Nothing
    Set DbO = Nothing
    Exit Function

Error_Handler:
    MsgBox "The following error has occured." & vbCrLf & vbCrLf & _
           "Error Number: " & Err.Number & vbCrLf & _
           "Error Source: CloseAllOpenFrms" & vbCrLf & _
           "Error Description: " & Err.Description, _
           vbCritical, "An Error has Occured!"
    Resume Error_Handler_Exit
End Function

来自http://www.devhut.net/2015/02/17/ms-access-vba-close-all-open-forms/

Answer 2

在新的示例数据库中尝试这个非常基本的示例。

编辑：在每个关闭表单后添加Sleep 和DoEvents，以防缓存/快速cpu 领先于代码？最后一次尝试解决奇怪的问题。

在模块 1 中

Option Compare Database
Option Explicit

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)     

Function CloseAllOpenFrms()

        On Error GoTo Error_Handler
        Dim DbF                   As Access.Form
        Dim DbO                   As Object

        Set DbO = Application.Forms    'Collection of all the open forms

        ' Close all popups first
        For Each DbF In DbO    'Loop all the forms
            If DbF.PopUp Then
                DoCmd.Close acForm, DbF.Name, acSaveNo
                DoEvents
                Sleep 1000
            End If
        Next DbF

        ' Close remaining forms
        For Each DbF In DbO    'Loop all the forms
            DoCmd.Close acForm, DbF.Name, acSaveNo
            DoEvents
            Sleep 1000
        Next DbF

        Application.Quit acQuitSaveNone

    Error_Handler_Exit:
        On Error Resume Next
        Set DbF = Nothing
        Set DbO = Nothing
        Exit Function

    Error_Handler:
        MsgBox "Error closing : " & DbF.Name & vbCrLf & _
               "Error Description: " & Err.Description, _
               vbCritical, "Error closing form"
        Resume Error_Handler_Exit
    End Function

使用两个命令按钮创建基本的Form1： 命令按钮Command1（Caption= 打开弹出表单） 命令按钮Command0（Caption = Exit DB）

在Form1的表单模块中粘贴文本

'------------------------------------------------------------
' Command1_Click
'
'------------------------------------------------------------
Private Sub Command1_Click()
On Error GoTo Command1_Click_Err

    CloseAllOpenFrms

Command1_Click_Exit:
    Exit Sub

Command1_Click_Err:
    MsgBox Error$
    Resume Command1_Click_Exit

End Sub


'------------------------------------------------------------
' Command0_Click
'
'------------------------------------------------------------
Private Sub Command0_Click()
On Error GoTo Command0_Click_Err

    DoCmd.OpenForm "Form2-popup", acNormal, "", "", , acWindowNormal


Command0_Click_Exit:
    Exit Sub

Command0_Click_Err:
    MsgBox Error$
    Resume Command0_Click_Exit

End Sub

创建另一个表单 Form2-popup 并将 Popup 属性设置为 true 添加命令按钮Command1，标题为“退出表单”

'------------------------------------------------------------
' Command1_Click
'
'------------------------------------------------------------
Private Sub Command1_Click()
On Error GoTo Command1_Click_Err

    DoCmd.Close , ""


Command1_Click_Exit:
    Exit Sub

Command1_Click_Err:
    MsgBox Error$
    Resume Command1_Click_Exit

End Sub