My Assistant
Site Message
(Message will auto close in 2 seconds)
  |
PleaseWait form and code
 May 17 2008, 11:42 AM
Post
#1
|
|
|
UtterAccess Editor Posts: 19,831 From: Colorado  |
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[color="green"] ' ' Crystal 5-17-08 ' strive4peace2008@yahoo.com ' ' '------------------ open the PleaseWait form[/color] Sub ShowPleaseWait() DoCmd.OpenForm "f_PleaseWait" Forms!f_PleaseWait.Repaint End Sub[color="green"] ' '------------------ close the PleaseWait form[/color] Sub ClosePleaseWait() If CurrentProject.AllForms("f_PleaseWait").IsLoaded Then DoCmd.Close acForm, "f_PleaseWait", acSaveNo End If End Sub[color="green"] ' '------------------ change the PleaseWait message[/color] Sub MsgPleaseWait(Optional pMsg As String = "PleaseWait...") Forms!f_PleaseWait.Msg.Caption = pMsg Forms!f_PleaseWait.Repaint End Sub
Attached File(s)
|
 |
 
|
|
|
Go to Top · Lo-Fi Version | Time is now: 4th February 2012 - 10:33 PM |