How to show progress on status bar when running a sequence of queries in MS Access
I have a macro in MS Access 2010 in Windows 7 which runs a sequence of quite slow Make Table and Update queries. I want it to show on the status bar which query it is running, as the usual message "Run query" does not give the query name. I have written the following VBA: Function RunQueryAndReportStatusWithMsgBox(QueryName As String) Dim RetVal As Variant On Error GoTo ErrHandler PutStatusBarBack MsgBox "About to run query" Application.Echo False, "Executing " & QueryName & " ..." DoCmd.OpenQuery QueryName, acViewNormal, acEdit On Error GoTo 0 Exit Function ErrHandler: Select Case Err Case