VBA　Wait関数

引数に指定したオブジェクトが終わる・閉じるまで処理をWaitさせる

Public Sub WaitObjectClose(intObjType As Integer, strObjName As String)
  'intObjType には acTable、acForm、acReportなどの定数を指定します
  'strObjName にはそのオブジェクト名を指定します

  Do
    DoEvents
    'SysCmdでオブジェクトが開いているか確認します
  Loop Until SysCmd(acSysCmdGetObjectState, intObjType, strObjName) = 0

End Sub

Public Sub WaitObjectClose(intObjType As Integer, strObjName As String)

'intObjType には acTable、acForm、acReportなどの定数を指定します

'strObjName にはそのオブジェクト名を指定します

DoEvents

'SysCmdでオブジェクトが開いているか確認します

Loop Until SysCmd(acSysCmdGetObjectState, intObjType, strObjName) = 0

End Sub

呼び出し側の例
DoCmd.OpenForm “フォーム1”
WaitObjectClose acForm, “フォーム1”
MsgBox “フォームが閉じられました！”

VBA Wait関数

VBA　Wait関数