How to pop up "Busy Message" while running a process in ms access

[yuvang]

Please help on how to show a busy message like "Please wait" or a "analytical animated watch" in ms access when a process in running.

[youmike]

You need to identify the event which starts the process - clicking a control on a form, or whatever. In the VBA code for that event you simply add:

msgbox("BUSY RUNNING PROCESS")

.

This will cause a small window to appear, which the user can close by clicking on the OK button. You can make the msgbox function more complex. Try searching the VBA Help file for details.

[yuvang]

We can pop up the msg through msgbox option. but it will pop up with "OK" button and it will go off once the ok button clicked. then only the next line of code will be executed.


My expectation is to pop up that msg without "OK" button option and that msg should be there until the current running process completes, then automatically the msg should go off.

It is nothing but when a query or long process is running in system at the time our cursor symbol will change to "busy" mode. Thats i want as msg in our ms access, nothing else than that.

[GazMathias]

Please help on how to show a busy message like "Please wait" or a "analytical animated watch" in ms access when a process in running.

Normal way is:

Dim statusmsg as Variant
 
    statusmsg = SysCmd(acSysCmdRemoveMeter)
    statusmsg = SysCmd(acSysCmdSetStatus, "Posting invoices to ledgers, please wait.")

This will appear on the status bar at the bottom left of the screen.

Gaz.

[yuvang]

I have removed the status bar in "StartUp". So if that is like Message will look good........

[DonRayner]

Have whatever process you start set a global variable and open a custom form. Have it unset the variable when the process is done running.

Use the on timer event of the custom form to monitor the status of the global variable and to close the form when it's unset.

[yuvang]

Can you please provide an example........ ...

[DonRayner]

Can you please provide an example........ ...

Create a standard module and declare a public variable at the top

Public YourVar as string
 

In your process code put this at the top

YourVar = "running"
Docmd.openform "YourFormName"
 

And this at the exit point

YourVar = ""
 

In the forms on timer event put this

If YourVar = "running" Then
    Exit Sub
Else
    Docmd.close
End If
 

[yuvang]

Hi i have done that but still that is not working to me....


Let me explain what i have done...

i kept the below line

Public YourVar As String

in a module


then the

YourVar = "Please Wait"

in a on (Opens a form)click process in the same at the last i kept

YourVar = ""

then i kept the below code in same form's timer

 If YourVar = "Please Wait" Then
     Exit Sub
 Else
     DoCmd.Close
 End If
 

[GazMathias]

 If YourVar = "Please Wait" Then
     Exit Sub
 Else
     DoCmd.Close
 End If
 

Hi,

Looks like you need to reset the timer:

 If YourVar = "Please Wait" Then
     Me.TimerInterval = 1000
     Exit Sub
 Else
     DoCmd.Close
 End If
 

Also make sure its switched on to begin with.

Find the Form's "Timer Interval" property and put 1000 in there. This equates to one second, if memory serves.

So the above will run every one second until the variable is off, at which point the timer is not reset and the form closes.

Gaz