basWaitObjects ( Formular / Bericht unterbrechen)

Option Compare Database
Option Explicit

Sub WaitForm(strForm As String)

While SysCmd(acSysCmdGetObjectState, acForm, strForm)
DoEvents
Wend

End Sub

Sub WaitReport(strReport As String)

While SysCmd(acSysCmdGetObjectState, acReport, strReport)
DoEvents
Wend

End Sub