Is it possible to create a message box in a macro to display comments but not require

[masbuckeye]

I have a database that runs 30 different queries in a macro, and in total the macro can take up to 6 hours to run. I typically just minimize the DB and work on something else but it would be nice to be able to know how far along the macro is at times. I created steps in the macro to display a message box after each query completes (level 2 complete, level 3 complete, etc.) but the message box requires me to click "OK" before the next query will run. What I want is a "message" to appear but not require me to take any action, just display which query just completed. I could simply maximize the DB and see the current message to know which query was the last to complete at any time. Is this possible?

[ADezii]

You can display some form of Progress in a Status Bar at the bottom of the Access Window either as a Progress Meter or Text Strings.

[PhilOfWalton]

I use this:-

Colours can be changed.

It works out how many Shares (Queries) there are to process, displays the name of the Share (Query) on the bottom line and number processed & percentage.

I find the standard Status bar at the bottom of the screen that ADezil mentioned rather insignificant.

Phil

[jforbes]

A Progress Meters might be exactly what you are looking for. Alternatively, I tend to use Access' Status Bar for messages that aren't significant enough to warrant a Message Box. Which might also be what you are looking for. Or maybe a combination of Both. ADezii has already pointed this out, but I thought I would include my experience. Both would use the SysCmd Method, unless you want to use Phil's Progress Dialog, which would be something else.

What I typically do for a long process is use the following function to put a message on the Status Bar:

    'setStatus
Public Sub setStatus(ByRef sStatus As String)
    ' Sets the Status Bar Text
    If sStatus = "" Then
        Call SysCmd(acSysCmdClearStatus)
    Else
        Call SysCmd(acSysCmdSetStatus, sStatus)
        ' Commented out as it will not work unless there 
        ' is a Form Named Main Menu in the Project
        'If isLoaded("MainMenu") Then
        '    Forms("MainMenu").txtSessionHistory.Value = Forms("MainMenu").txtSessionHistory.Value & vbCrLf & sStatus
        'End If
    End If
    DoEvents
End Sub
 
    'isLoaded
Function isLoaded(ByRef sFormName As String) As Boolean
    ' Determines if a Form is loaded
    If Len(sFormName) > 0 Then
        isLoaded = CurrentProject.AllForms(sFormName).isLoaded
    End If
End Function

An Example Call would be:
   setStatus("Started Executing '" & sQueryName & "' at " & Now())
To Clear the Status:
   setStatus("")

It will update the Status Bar as well as collect all the status messages that have been displayed into a TextBox on the Main Menu, so that at anytime, the User can review the message history... in case they were getting coffee when something significant happened.

If you wanted to include a Progress Bar, I would create a function to handle the Progress Bar, and then create an additional function that sets both the Status and the Progress.