Display amount of time (minutes) for a macro to run... (MS Access 2013)

[kyleno]

How would one insert an action into a Macro in Design View to calculate the amount of time (in minutes) that it took for a macro to run (in MS Access 2013)? Please and thank you.

 

[Jeffrey Mahoney]

In the example below the function "Timer" is used. Timer is the number of seconds past midnight. You have to store the value of Timer at the beginning of your macro and then compare that value to Timer again at the end of your macro.

Sub ShowTimer()
  Dim T As Single
  
  T = Timer
  
  'Run some code
  Do While Timer - T < 3
  
  Loop
  
  Debug.Print Format(Timer - T, "#.0##")
  'OR
  MsgBox "Your macro took " & Format(Timer - T, "#.0##") & " seconds to run"
  
  
End Sub

 

[Jeffrey Mahoney]

Oh, you wanted it in MS Access. Probably the same.

 

[kyleno]

Would I insert this into a module and then add it to the beginning and end of the macro? Sorry, I don't use code much with Access.

In the example below the function "Timer" is used. Timer is the number of seconds past midnight. You have to store the value of Timer at the beginning of your macro and then compare that value to Timer again at the end of your macro.

Sub ShowTimer()
  Dim T As Single
  
  T = Timer
  
  'Run some code
  Do While Timer - T < 3
  
  Loop
  
  Debug.Print Format(Timer - T, "#.0##")
  'OR
  MsgBox "Your macro took " & Format(Timer - T, "#.0##") & " seconds to run"
  
  
End Sub

 

[Jeffrey Mahoney]

This was example code. You need to add a variable such as T using the DIM. Then add the line T = Timer. The last two statements I added at the end were examples of how to see the result of how much time it took. Ignore the part where I use the DO loop.

This is you adding the individual lines in the example into your code.

Jeff

 

[Joe4]

See here: https://www.thespreadsheetguru.com/the-code-vault/2015/1/28/vba-calculate-macro-run-time

*Note that Macros and VBA code in Access are NOT the same thing. "Macros" and "Modules" are two distinctly different objects.