لقياس سرعة فتح التقارير

[محمد طاهر عرفه]

كود للأخ فيصل الحربي : :d

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

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

dim dtStart as date 

dim dtStop as date 


dtStart = Now() 

docmd.openreport "YourReportName" 

dtStop = Now() 


msgbox "Time to open: " & dtStop-dtStart