Private Sub cmd_run_queries_Click()

MsgBox "Please wait..... the queries you are running may take several minutes", vbOKOnly, "Running...."
    
    DoCmd.SetWarnings False
    DoCmd.Hourglass True
    'these queries need to be run for the Evaluation Summary Report and the Average Quality Report
    CurrentDb.Execute "qry_DE_evaluation_summary" ' for the evaluation summary report
    CurrentDb.Execute "qry_MT_evaluation_summary"
    CurrentDb.Execute "qry_DE_agents"
    CurrentDb.Execute "qry_agents"
    CurrentDb.Execute "qry_DE_comparison"
    CurrentDb.Execute "qry_MT_comparison"
    
    
    DoCmd.Hourglass False
    DoCmd.SetWarnings True
    
    MsgBox "Query run complete"

End Sub

Private Sub cmd_run_queries_Click()
  
  StartTime "Evaluation Summary Report and the Average Quality Report"

   MsgBox "Please wait..... the queries you are running may take several minutes", vbOKOnly, "Running...."      
  
   'these queries need to be run for the Evaluation Summary Report and the Average Quality Report    

   rsql, "qry_DE_evaluation_summary", "for the evaluation summary report"

   rsql "qry_MT_evaluation_summary" , "MT_evaluation_summary"

   rsql "qry_DE_agents" , "DE_agents"

   rsql "qry_agents" , "agents"

   rsql "qry_DE_comparison", "DE_comparison"

   rsql "qry_MT_comparison", "MT_comparison"  

   ReportElapsedTime  "Query run complete"

End Sub

Sub rSql(pSQL, Optional pMsg, Optional UseDocmd As Boolean)

   'written by Crystal
   'strive4peace2004@yahoo.ca

   On Error GoTo rSQL_Error
  
   Dim mTime As Date
   mTime = Now()
  
   If Not IsMissing(pMsg) Then
      Debug.Print "---------- " & pMsg
      SysCmd acSysCmdSetStatus, pMsg & "..."
   End If

   Debug.Print pSQL

   If Not  IsMissing(UseDocmd) Then
      'when aggregate functions are used, sometimes it is necessary to use this method
      If UseDocmd Then
         DoCmd.Echo False
         DoCmd.SetWarnings False
         DoCmd.RunSQL pSQL
         DoCmd.Echo True
         DoCmd.SetWarnings True
      Else
         CurrentDb.Execute pSQL
      End If
   Else
         CurrentDb.Execute pSQL
   End If

   Debug.Print " --- " & Format((Now() - mTime) * 24 * 60 * 60, "#,##0.#") & " seconds" & " --- "
   Exit Sub
  
rSQL_Error:
   DoCmd.Echo True
   DoCmd.SetWarnings True
      
End Sub

Option Explicit

'written by Crystal
'strive4peace2004@yahoo.ca
  
Dim gStartTime As Date

'and, if you want to number the lines
'dim gLineNumber As Integer


Sub StartTime(Optional pMsg)
   On Error Resume Next
   gStartTime = Now()
   DoCmd.Hourglass True
'   gLineNumber = 0
   If IsMissing(pMsg) Then Exit Sub
   Debug.Print "--- START-------------" & pMsg & " ----- " & CStr(gStartTime)
End Sub

Sub EndTime()
   Debug.Print "--- END-------------" & DateDiff("s", gStartTime, Now()) & " seconds"
   DoCmd.Hourglass False
   SysCmd acSysCmdClearStatus
End Sub
  
Sub ReportElapsedTime(Optional pMessage)

   On Error Resume Next
   Dim m As String, mEndTime As Date
   mEndTime = Now()
   DoCmd.Hourglass False

   'if you are numbering lines... increment counter and change debug.print to include it
   'gLineNumber = gLineNumber  + 1

   If IsMissing(pMessage) Then
      m = ""
   Else
      m = pMessage & ": " & vbCrLf & vbCrLf
      Debug.Print "-------------" & pMessage & " ----- "
   End If
   m = m & "Start Time: " & Format(gStartTime, "hh:nn:ss") & vbCrLf _
      & "End Time: " & Format(mEndTime, "hh:nn:ss") & vbCrLf & vbCrLf _
      & "Elapsed: " & Format((mEndTime - gStartTime) * 24 * 60, "0.##") & " minutes"
   SysCmd acSysCmdClearStatus
   MsgBox m, , "Time to execute         "
      '& CStr(Nz(pFirstSQL, -1))
  
End Sub

    Dim dtmStart As Date    'start time
    Dim dtmEnd As Date        'end time
    Dim varMin As Variant    'calculate minutes
    Dim varSec as Variant    'calculate seconds
    
    dtmStart = Now()
    [color="blue"]...Your Code...    [/color]
    dtmEnd = Now()
        
    varSec = DateDiff("S", dtmStart, dtmEnd)
    varMin = DateDiff("N", dtmStart, dtmEnd)
        
    Msgbox "It took " & varMin & " Minutes and "_
     & varSec & "Seconds to run the queries"

DateDiff("s", dtmStart, dtmEnd) \ 60

DateDiff("s", dtmStart, dtmEnd) Mod 60