معرفة الزمن المستغرق لفتح التقرير

السلام عليكم ورحمة الله وبركاته

لقياس سرعة فتح التقارير ضع الكود التالي في حدث عند الفتح للتقرير

ويجب عليك تغيير اسم التقرير بدلا من YourReportName

dim dtStart as date 
dim dtStop as date 

dtStart = Now() 
docmd.openreport "YourReportName" 
dtStop = Now() 

msgbox "Time to open: " & dtStop-dtStart