 PleaseWait form and code |
|
Welcome Guest ( Log In | Register ) · View New Posts · View Unanswered Topics
  |
 May 17 2008, 11:42 AM
Post
#1
|
|
 UtterAccess Editor Posts: 19,589 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)
-------------------- Warm Regards,
Crystal, Microsoft MVP Free Data Dictionary Tool Access Basics -- free tutorial Email Crystal (: Have an awesome day  |
 |
 
|
|
|
Lo-Fi Version | Time is now: 2nd September 2010 - 11:26 AM |