طيب من فضل حضراتكم الخبراء الافاضل محتاج مراجعة للكود ده مش راضي يشتغل @عمر ضاحى
Dim LoadingForm As Form
Sub ShowLoading()
'ÇäÔÇÁäãæÐÌÇáÊÍãíá
Set LoadingForm = CreateForm
With LoadingForm
.Caption = "ÝÖáÇ ÇäÊÙÑ ÇáÊÍãíá..."
.Width = 300
.Height = 100
.Visible = True
End With
' ????? ????? ???????
Dim lblLoading As Label
Set lblLoading = LoadingForm.Controls.Add("Forms.Label.1", "lblLoading")
With lblLoading
.Caption = "ÌÇÑí ÊÍãíá ÇáÊÞÑíÑ..."
.Width = 280
.Height = 40
.Top = 30
.Left = 10
End With
DoEvents ' ?????? ??????? ????????
' ??? ????? ??????? ???????
' Call YourReportName
' ????? ??????? ??? ????????
LoadingForm.Visible = False
DoCmd.Close acForm, LoadingForm.name
End Sub