如何在子窗体打开时冻结父窗体

我遇到的情况是，在某些情况下，我需要打开另一个表单并保持该表单的焦点（modal = true），当它们不聚焦并且关闭时，父表单上的控件将使用可能已更改的可能数据进行刷新。

最初我有一个方法可以DoEvents虽然子表单已打开，但它导致多个子表单无法用于数据输入/编辑（它们未在表单级别进行数据绑定）。

ShowForm 方法 - 最初

Public Sub ShowForm(par As Form, nm As String, _
                    Optional whr As String = "", _
                    Optional args As String = "", _
                    Optional mode As AcFormOpenDataMode = acFormPropertySettings)
    DoCmd.OpenForm nm, acNormal, , whr, mode, , args
    
    While IsOpen(nm)
        DoEvents
    Wend
End Sub

为了让我的子表单始终可用，我必须注释掉While...Wend loop.

我是否可以在此方法或调用控件的 OnClick 内部使用另一种逻辑模式，这样当它们关闭子窗体时，我可以在子窗体关闭后执行代码？

最简单的方法是在对话框模式下打开表单。例如，

DoCmd.OpenForm nm, acNormal, , whr, mode, acDialog, args

这将暂停调用模块中代码的执行，直到表单关闭。它还将阻止用户与任何其他表单交互，直到“对话框”表单关闭。

我发现在对话框模式下打开绑定表单，更新数据，关闭表单，然后刷新调用表单上的对象（例如，组合框的行源）并不总是可靠的。

接下来是我编写的一个通用函数，用于“暂停”调用代码，而无需在对话框模式下打开表单，并且不会明显影响用户界面的性能。它适用于表单和报告。请注意，Sleep API 声明必须位于代码模块的顶部（在模块声明部分中）。

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

'-------------------------------------------------------------------------------
' Procedure : WaitTilObjClosed
' Author    : Mike
' Date      : 1/7/2009
' Purpose   : Halts program execution until user closes object.  User is 
'               generally unaffected by the loop.
' Requires  : Sleep API sub
' Notes - while Sleeping other programs can use processor but access cannot;
'       - during DoEvents, other parts of Access can use processor;
'       - without the Sleep call, processor usage stays at 100% for MSACCESS.EXE
'       - with a long Sleep call, Access becomes noticeably sluggish
'-------------------------------------------------------------------------------
'
Sub WaitTilObjClosed(ObjType As AcObjectType, ObjName As String)
    Do
        DoEvents
        Sleep 1
        If (SysCmd(acSysCmdGetObjectState, ObjType, ObjName) = 0) Then Exit Do
    Loop
End Sub

您可以按如下方式使用它：

DoCmd.OpenForm "MyForm"
WaitTilObjClosed acForm, "MyForm"
MsgBox "MyForm is now closed"

DoCmd.OpenReport "MyReport", acViewPreview
WaitTilObjClosed acReport, "MyReport"
MsgBox "MyReport is now closed"