normalWindowでもDialogと同様にコードを止める

Public Sub WaitXfrm(intObjType As Integer, strObjName As String)
‘intObjType には acTable、acForm、acReportなどの定数を指定
‘strObjName にはそのオブジェクト名を指定
Do
DoEvents
‘SysCmdでオブジェクトが開いているか確認します
Loop Until SysCmd(acSysCmdGetObjectState, intObjType, strObjName) = 0
End Sub
使用方:
dodmd.OpenForm “form_name”
call WaitXfrm(acForm,”form_name”)
フォームを開いた直後にWaitXfrmをCALL
以降のコードは対象フォームが閉じられるまで実行されない
acDialogモードで開いた時と同様に動作する

コメント

タイトルとURLをコピーしました