vba - 暂停代码，直到在另一个“Access ”表单中按下按钮

Question

我有一个代码片段，用于检查是否有Internet连接。如果失败，它将进入错误处理程序并打开带有一些文本和按钮的表单。
这是一个非常复杂的代码(不是我的)。
我想暂停该函数中代码的执行，并在按另一种形式的按钮时恢复执行。
互联网研究没有帮助。我不知道两个不同的代码部分如何交互。

On Error GoTo NoConnnectionErrorHandler
    Dim Request As New MSXML2.XMLHTTP60
    Request.Open "GET", "http://www.bbc.com"
    Request.send
    'MsgBox Request.Status

NoConnnectionErrorHandler:
    DoCmd.OpenForm "Frm_Global_NoConnectionDialog"

没有互联网连接时，将打开一个表单。当按下另一种形式的按钮时，如何停止代码并让其恢复？
它定期遍历整个功能(其中片段只是一小部分)并进行检查。
如果没有连接，则应暂停整个程序，直到按下该按钮，然后再次检查连接，如果没有，请继续进行连接。
编辑:答案解决了这个问题，但令我困惑的一件事是如何通过按下按钮从另一种形式触发“恢复代码执行”。

Answer 1

如果我对您的理解正确，则应在错误处理程序(Exit Sub)上方使用NoConnectinoErrorHandler。

添加一些代码以确保您的错误已得到解决，然后清除错误并继续工作。

看看这是您要找的东西:

Sub foo()

    ' Your unseen code ...

    On Error GoTo NoConnnectionErrorHandler
    Dim Request As New MSXML2.XMLHTTP60
    Request.Open "GET", "http://www.bbc.com"
    Request.send
    'MsgBox Request.Status


    Exit Sub    'Put this above your error handler
NoConnnectionErrorHandler:
    DoCmd.OpenForm "Frm_Global_NoConnectionDialog"

    'Some code to ensure error no longer exists....

    Err.Clear
    Resume

End Sub