الوقوف على وقت تنفيذ الاستعلام

[ابو جودي]

لقياس الوقت للوقوف على اداء التطبيق عند تنفيذ الاستعلام

Public Function OpenQryPerformanceTest(ByRef QueryName As String)
    Dim StartTime As Date: StartTime = Now()
    Dim ExecutionTimeBySeconds As Long
           
    DoCmd.OpenQuery QueryName
    DoCmd.GoToRecord acDataQuery, QueryName, acLast
    ExecutionTimeBySeconds = DateDiff("s", StartTime, Now())
    
    MsgBox "Execution Time: " & ExecutionTimeBySeconds & " Seconds"
End Function