Question : Progress Bar

Hello,
I have the following code that runs when I press a button on a form. I would like to give the user a simple status bar or message while the Delete and Append Queries are running so that they know the database is working.
What is the easiest way?

Code Snippet:

1: 2: 3: 4: 5: 6: 7: 8: 9: 10:

With CurrentDb .Execute "DeleteQuery" End With With CurrentDb .Execute "AppendQuery" End With Beep MsgBox "Your Data is ready" & vbCrLf & " hello! ", vbInformation, "Data Export Successful"

Open in New Window

Select All

Answer : Progress Bar

    Call SysCmd(acSysCmdSetStatus, "YourMessageHere ...")
With CurrentDb
.Execute "DeleteQuery"
End With
With CurrentDb
.Execute "AppendQuery"
End With
   
     Call SysCmd(acSysCmdClearStatus)
Beep
MsgBox "Your Data is ready" & vbCrLf & " hello! ", vbInformation, "Data Export Successful"