How to display the message "Wait" when the process starts in vba access

Question

I have a button in my access form when clicks check the code to search for data in excel cells. It takes some time to complete the process. By then I need to display Please wait for users.

I call this method but not working

         Sub plswaitmsg()
         Dim statusmsg As Variant
         statusmsg = SysCmd(acSysCmdRemoveMeter)
         statusmsg = SysCmd(acSysCmdSetStatus, "Loading dropdown data,please wait.")
         End Sub

Answer 1

You can use this status bar in runtime. http://christopherjmcclellan.wordpress.com/2014/03/08/progress-bar-for-ms-access/

, , . -, . , - . , "Form1", *.bas-.

Sub ShowForm()
    Dim frm as New Form_Form1
    frm.Visible = True

    Stop
End Sub

, , , .

- DoEvents, OS , .

, , . , UserForm . , UserForms Excel, Access.

Answer 2

MsgBox Excel marco.

Application.StatusBar = "Please be patient..."

Application.StatusBar = False

Answer 3

:

.

• , .
• .
• "please wait" ( "" ), .