Wait Form

[auujxa2 via AccessMonster.com]

I have a wait form pop up when a "copy to desktop button" is clicked on
another form.

but, even though the code runs the way I need to, the contents of the wait
form don't display. (the text that says please wait, blah blah blah)

here is the on load code:

DoCmd.Close acForm, "frmWelcome"

DoCmd.Restore
Forms!frmWait.Visible = True

Dim SourceFile, DestinationFile
Dim CurrentUser As String

CurrentUser = Environ("UserName")
strFilePath = "C:\Documents and Settings\" & CurrentUser & "\Desktop\"

SourceFile = "F:\Moderate vs Better\Better vs Moderate Vendor Analysis.mdb"

DestinationFile = "C:\Documents and Settings\" & CurrentUser & "\Desktop\" &
"Better vs Moderate Vendor Analysis.mdb"

FileCopy SourceFile, DestinationFile

DoCmd.Quit

Thank you in advance

 

[auujxa2 via AccessMonster.com]

I tried on open instead of load, and it works. sorry