0

这个

DoCmd.OpenForm fnew, , , , , acDialog

由于某种原因似乎没有停止代码执行。是因为我正在从另一个函数调用具有此方法的函数并且把它搞砸了吗？例如

func1
<code>
Call func2
    <func2 code>
    DoCmd.OpenForm fnew, , , , , acDialog
<back to func1 code that executes even though i dont want it to until the form closes>
4

2 回答 2

5

使用acDialogWindowMode参数，您的调用代码在窗体关闭OpenForm 之前不应继续。

OpenForm发生在从您的代码调用的另一个过程中应该没有关系。在此示例中，运行 时func1，MsgBox直到窗体关闭才显示 。

Public Function func1()
    Call func2
    MsgBox "form closed"
End Function

Public Function func2()
    'DoCmd.OpenForm "Form3", , , , , acDialog
    DoCmd.OpenForm "Form3", WindowMode:=acDialog
End Function

请注意，只要表单尚未打开，代码就会按照描述的方式运行。如果它在设计视图中打开，则调用OpenForm仅将其切换到表单视图而不应用acDialog. 如果在表单视图中打开，则没有任何反应，这意味着acDialog也没有应用。

如果您想保证acDialog已应用，请确保在调用之前关闭表单OpenForm...

Public Function func2()
    Const cstrForm As String = "Form3"
    If CurrentProject.AllForms(cstrForm).IsLoaded Then
        DoCmd.Close acForm, cstrForm
    End If
    'DoCmd.OpenForm cstrForm, , , , , acDialog
    DoCmd.OpenForm cstrForm, WindowMode:=acDialog
End Function
于 2013-05-02T21:55:36.753 回答
1

我在这个问题上挣扎了很久，直到我意识到如果在运行代码时表单在设计视图中打开，acDialog 设置什么也不做。在正常使用（即没有人试图设计任何东西）时，它实际上会暂停打开过程中的代码。如果您想测试此行为，请创建一个表单“zzTestForm”，然后从模块中运行它：

Public Sub DoThis()

MsgBox "ok, let's go"

DoCmd.OpenForm "zzTestForm", acNormal, , , acFormPropertySettings, acDialog

MsgBox "you done yet?"

End Sub
于 2015-05-18T14:38:04.227 回答