Progress Meter Form

[rat_b76]

Hi All,

I have created a very simple form for a progress meter when the database is making copies of databases (eight copies). I have put this in the form load event for the progress meter form, however it appears that the meter doesn't display till the end of the process (as it is working in the background).

Here is the code, if someone can point out what I am doing incorrectly please do.

Dim curpath, newpath As String
curpath = Application.CurrentProject.Path
newpath = curpath
curpath = curpath + "\Barwon.mdb"
newpath = newpath + "\"
DoCmd.SetWarnings 0
FileCopy curpath, newpath + "Northern.mdb"
Forms!frmprogress!lbl1.Visible = True
Forms!frmprogress!BoxOne.Visible = True
FileCopy curpath, newpath + "Western.mdb"
Forms!frmprogress!lbl2.Visible = True
Forms!frmprogress!BoxTwo.Visible = True
FileCopy curpath, newpath + "Southern.mdb"
Forms!frmprogress!lbl3.Visible = True
Forms!frmprogress!BoxThree.Visible = True
FileCopy curpath, newpath + "Eastern.mdb"
Forms!frmprogress!lbl4.Visible = True
Forms!frmprogress!BoxFour.Visible = True
FileCopy curpath, newpath + "Gippsland.mdb"
Forms!frmprogress!lbl5.Visible = True
Forms!frmprogress!BoxFive.Visible = True
FileCopy curpath, newpath + "Grampians.mdb"
Forms!frmprogress!lbl6.Visible = True
Forms!frmprogress!BoxSix.Visible = True
FileCopy curpath, newpath + "Hume.mdb"
Forms!frmprogress!lbl7.Visible = True
Forms!frmprogress!BoxSeven.Visible = True
FileCopy curpath, newpath + "Loddon.mdb"
Forms!frmprogress!lbl8.Visible = True
Forms!frmprogress!boxeight.Visible = True
DoCmd.SetWarnings 1
MsgBox "Copying of all files has successfully completed", vbOKOnly + vbInformation, "Copy Complete"
DoCmd.Close acForm, "frmProgress"

Thanks

 

[doran_doran]

I am using following and it works very smoothly...

Option Compare Database
Option Explicit

Private Sub FileCopyButton_Click()
Dim SourceFile, DestFile1, DestFile2, DestFile3, DestFile4, DestFile5, DestFile6, DestFile7, DestFile8, DestFile9, DestFile10, DestFile11, DestFile12, DestFile13, DestFile14, DestFile15, DestFile16, DestFile17, DestFile18, DestFile19, DestFile20, DestFile21, DestFile26, DestFile27, DestFile28, DestFile29, DestFile30, DestFile31, DestFile32, DestFile33, DestFile34, DestFile35, DestFile36, DestFile37, DestFile38, DestFile39, DestFile40, DestFile41, DestFile42, DestFile43

' Define Source file name
SourceFile = "k:\database\data.mdb"

' Define target files name
DestFile1 = "k:\distrib1\AMU1.mdb"
DestFile2 = "k:\distrib1\AMU2.mdb"
DestFile3 = "k:\distrib1\AMU3.mdb"
DestFile4 = "k:\distrib1\DB10.mdb"
DestFile5 = "k:\distrib1\DB11.mdb"
DestFile6 = "k:\distrib1\DB12.mdb"
DestFile7 = "k:\distrib1\DB13.mdb"
DestFile8 = "k:\distrib1\DB14.mdb"
DestFile9 = "k:\distrib1\DB15.mdb"
DestFile10 = "k:\distrib1\DB16.mdb"
DestFile11 = "k:\distrib1\DB21.mdb"
DestFile12 = "k:\distrib1\DB22.mdb"
DestFile13 = "k:\distrib1\DB23.mdb"
DestFile14 = "k:\distrib1\DB24.mdb"
DestFile15 = "k:\distrib1\DB25.mdb"
DestFile16 = "k:\distrib1\DB26.mdb"
DestFile17 = "k:\distrib1\DB27.mdb"
DestFile18 = "k:\distrib1\DB28.mdb"
DestFile19 = "k:\distrib1\DSH1.mdb"
DestFile20 = "k:\distrib1\DSH2.mdb"
DestFile21 = "k:\distrib1\DSH3.mdb"
DestFile26 = "k:\distrib1\LDB1.mdb"
DestFile27 = "k:\distrib1\LDB2.mdb"
DestFile28 = "k:\distrib1\LNC1.mdb"
DestFile29 = "k:\distrib1\LNC2.mdb"
DestFile30 = "k:\distrib1\LRP1.mdb"
DestFile31 = "k:\distrib1\LRP2.mdb"
DestFile32 = "k:\distrib1\LSH1.mdb"
DestFile33 = "k:\distrib1\LSH2.mdb"
DestFile34 = "k:\distrib1\MDP1.mdb"
DestFile35 = "k:\distrib1\MDP2.mdb"
DestFile36 = "k:\distrib1\MDP3.mdb"
DestFile37 = "k:\distrib1\MDS1.mdb"
DestFile38 = "k:\distrib1\MDS2.mdb"
DestFile39 = "k:\distrib1\PMU1.mdb"
DestFile40 = "k:\distrib1\PMU2.mdb"
DestFile41 = "k:\distrib1\CS-DC.mdb"
DestFile42 = "k:\distrib1\CS-JN.mdb"
DestFile43 = "k:\distrib1\CS-RW.mdb"


' Copy source to target.
FileCopy SourceFile, DestFile1
FileCopy SourceFile, DestFile2
FileCopy SourceFile, DestFile3
FileCopy SourceFile, DestFile4
FileCopy SourceFile, DestFile5
FileCopy SourceFile, DestFile6
FileCopy SourceFile, DestFile7
FileCopy SourceFile, DestFile8
FileCopy SourceFile, DestFile9
FileCopy SourceFile, DestFile10
FileCopy SourceFile, DestFile11
FileCopy SourceFile, DestFile12
FileCopy SourceFile, DestFile13
FileCopy SourceFile, DestFile14
FileCopy SourceFile, DestFile15
FileCopy SourceFile, DestFile16
FileCopy SourceFile, DestFile17
FileCopy SourceFile, DestFile18
FileCopy SourceFile, DestFile19
FileCopy SourceFile, DestFile20
FileCopy SourceFile, DestFile21
FileCopy SourceFile, DestFile26
FileCopy SourceFile, DestFile27
FileCopy SourceFile, DestFile28
FileCopy SourceFile, DestFile29
FileCopy SourceFile, DestFile30
FileCopy SourceFile, DestFile31
FileCopy SourceFile, DestFile32
FileCopy SourceFile, DestFile33
FileCopy SourceFile, DestFile34
FileCopy SourceFile, DestFile35
FileCopy SourceFile, DestFile36
FileCopy SourceFile, DestFile37
FileCopy SourceFile, DestFile38
FileCopy SourceFile, DestFile39
FileCopy SourceFile, DestFile40
FileCopy SourceFile, DestFile41
FileCopy SourceFile, DestFile42
FileCopy SourceFile, DestFile43

End Sub
=====================================

Good Luck
Dianna Goldsberg

 

[boblarson]

Put this in after each line of code that makes a new label visible:

Me.Repaint