-
November 1st, 2012, 08:38 AM
#1
How to pause the unload of my form
Hi,
I'm new at this so bear with me..
I have the code below that moves my files, then at the end of my move I want to display a lable that shows sucess...I have that and it works fine...BUT....the label changes and I send the form unload (because I want to close the form) it happens so fast my users won't be able to see the result.
How can I can delay the closing of the form for a few seconds?
Code:
Private Sub Form_Load()
'
Form1.Refresh
Form1.Show
Form1.AutoRedraw = True
Form1.Visible = True
Form1.Image1.Visible = True
Form1.Label1.Caption = "Starting Copy of open MDB Files"
Form1.Command1.Visible = False
'Label1.Caption = "Starting Copy of MDB Files from WSIPR2"
Dim fso As New FileSystemObject
Form1.Refresh
Form1.Show
Form1.AutoRedraw = True
Form1.Visible = True
Form1.Image1.Visible = True
Form1.Label1.Caption = "Starting Copy of open MDB Files"
Form1.Command1.Visible = False
' fso.CopyFile "\\WSIPR2\GSAP\WSITES\TES.mdb", "\\GSDCSHR01\gsap\WSITes\TES.mdb"
' fso.CopyFile "\\WSIPR2\GSAP\WSITES\WSIDATA\Ultidata.mdb", "\\GSDCSHR01\gsap\WSITes\WSIDATA\ultidata.mdb"
''
' fso.CopyFile "\\WSIPR2\GSAP\TES_Remote\ASTTES\TES.mdb", "\\GSDCSHR01\gsap\TES_Remote\ASTTES\TES.mdb"
' fso.CopyFile "\\WSIPR2\GSAP\TES_Remote\ASTTES\ASTDATA\Ultidata.mdb", "\\GSDCSHR01\gsap\TES_Remote\ASTTES\ASTDATA\Ultidata.mdb"
'
' fso.CopyFile "\\WSIPR2\GSAP\TES_REMOTE\AGUTES\TES.mdb", "\\GSDCSHR01\gsap\TES_Remote\AGUTES\TES.mdb"
' fso.CopyFile "\\WSIPR2\GSAP\TES_REMOTE\AGUTES\AGUDATA\Ultidata.mdb", "\\GSDCSHR01\gsap\TES_Remote\AGUTES\AGUDATA\Ultidata.mdb"
'
' fso.CopyFile "\\WSIPR2\GSAP\TES_REMOTE\ITITES\TES.mdb", "\\GSDCSHR01\gsap\TES_Remote\ITITES\TES.mdb"
fso.CopyFile "\\WSIPR2\GSAP\TES_REMOTE\ITITES\ITIDATA\Ultidata.mdb", "\\GSDCSHR01\gsap\TES_Remote\ITITES\ITIDATA\Ultidata.mdb"
Label1.Caption = "Starting Compact & Repair of MDB Files on GSDCSHR01"
' If Dir("\\GSDCSHR01\gsap\WSITes\TES2.mdb") <> "" Then Kill _
' "\\GSDCSHR01\gsap\WSITes\TES2.mdb"
' DBEngine.CompactDatabase "\\GSDCSHR01\gsap\WSITes\TES.mdb", "\\GSDCSHR01\gsap\WSITes\TES2.mdb"
'
' If Dir("\\GSDCSHR01\gsap\WSITes\WSIDATA\ultidata2.mdb") <> "" Then Kill _
' "\\GSDCSHR01\gsap\WSITes\WSIDATA\ultidata2.mdb"
' DBEngine.CompactDatabase "\\GSDCSHR01\gsap\WSITes\WSIDATA\ultidata.mdb", "\\GSDCSHR01\gsap\WSITes\WSIDATA\ultidata2.mdb"
'
' If Dir("\\GSDCSHR01\gsap\TES_Remote\ASTTES\TES2.mdb") <> "" Then Kill _
' "\\GSDCSHR01\gsap\TES_Remote\ASTTES\TES2.mdb"
' DBEngine.CompactDatabase "\\GSDCSHR01\gsap\TES_Remote\ASTTES\TES.mdb", "\\GSDCSHR01\gsap\TES_Remote\ASTTES\TES2.mdb"
'
' If Dir("\\GSDCSHR01\gsap\TES_Remote\ASTTES\ASTDATA\Ultidata2.mdb") <> "" Then Kill _
' "\\GSDCSHR01\gsap\TES_Remote\ASTTES\ASTDATA\Ultidata2.mdb"
' DBEngine.CompactDatabase "\\GSDCSHR01\gsap\TES_Remote\ASTTES\ASTDATA\Ultidata.mdb", "\\GSDCSHR01\gsap\TES_Remote\ASTTES\ASTDATA\Ultidata2.mdb"
'
' If Dir("\\GSDCSHR01\gsap\TES_Remote\AGUTES\TES2.mdb") <> "" Then Kill _
' "\\GSDCSHR01\gsap\TES_Remote\AGUTES\TES2.mdb"
' DBEngine.CompactDatabase "\\GSDCSHR01\gsap\TES_Remote\AGUTES\TES.mdb", "\\GSDCSHR01\gsap\TES_Remote\AGUTES\TES2.mdb"
'
' If Dir("\\GSDCSHR01\gsap\TES_Remote\AGUTES\AGUDATA\Ultidata2.mdb") <> "" Then Kill _
' "\\GSDCSHR01\gsap\TES_Remote\AGUTES\AGUDATA\Ultidata2.mdb"
' DBEngine.CompactDatabase "\\GSDCSHR01\gsap\TES_Remote\AGUTES\AGUDATA\Ultidata.mdb", "\\GSDCSHR01\gsap\TES_Remote\AGUTES\AGUDATA\Ultidata2.mdb"
'
' If Dir("\\GSDCSHR01\gsap\TES_Remote\ITITES\TES2.mdb") <> "" Then Kill _
' "\\GSDCSHR01\gsap\TES_Remote\ITITES\TES2.mdb"
' DBEngine.CompactDatabase "\\GSDCSHR01\gsap\TES_Remote\ITITES\TES.mdb", "\\GSDCSHR01\gsap\TES_Remote\ITITES\TES2.mdb"
'
If Dir("\\GSDCSHR01\gsap\TES_Remote\ITITES\ITIDATA\Ultidata2.mdb") <> "" Then Kill _
"\\GSDCSHR01\gsap\TES_Remote\ITITES\ITIDATA\Ultidata2.mdb"
DBEngine.CompactDatabase "\\GSDCSHR01\gsap\TES_Remote\ITITES\ITIDATA\Ultidata.mdb", "\\GSDCSHR01\gsap\TES_Remote\ITITES\ITIDATA\Ultidata2.mdb"
Label2.Caption = "Finished Compact and Repair of MDB File"
Unload Form1
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules
|
Click Here to Expand Forum to Full Width
|