Do you have a need to pop up a 'PleaseWait' form while you are processing something and then close it when you are done?
Attached is a zip file containing an mdb in 2000 format with a form and a module. Import these 2 objects into your working database.
form name: f_PleaseWait
Popup --> yes
Modal --> no
Navigation Buttons --> No
Dividing Lines --> No
RecordSelectors --> No
with a label
Name --> Msg
Caption --> Please Wait...
module name: bas_PleaseWait
Code:
Option Compare Database
Option Explicit
'
' Crystal 5-17-08
' strive4peace2008@yahoo.com
'
'
'------------------ open the PleaseWait form
Sub ShowPleaseWait()
DoCmd.OpenForm "f_PleaseWait"
Forms!f_PleaseWait.Repaint
End Sub
'
'------------------ close the PleaseWait form
Sub ClosePleaseWait()
If CurrentProject.AllForms("f_PleaseWait").IsLoaded Then
DoCmd.Close acForm, "f_PleaseWait", acSaveNo
End If
End Sub
'
'------------------ change the PleaseWait message
Sub MsgPleaseWait(Optional pMsg As String = "PleaseWait...")
Forms!f_PleaseWait.Msg.Caption = pMsg
Forms!f_PleaseWait.Repaint
End Sub
--------------------
Warm Regards,
Crystal, MVP
Free Data Dictionary Tool
Have an awesome day 
|
