1- انشئ موديول جديد وضع به هذا الكود Option Compare Database Option Explicit Public Function GetWaiting(strData As String) DoCmd.OpenForm "frmWaiting" Forms!frmWaiting!lblWaiting.Caption = strData Pause 0.1 End Function Public Function Pause(NumberOfSeconds As Variant) On Error GoTo Err_Pause Dim PauseTime As Variant, Start As Variant PauseTime = NumberOfSeconds Start = Timer Do While Timer < Start + PauseTime DoEvents Loop Exit_Pause: Exit Functi