Progress Bar visibility issue

Question

I'm a bit of a newbie when it comes to components, but I'm
hoping there's an easy answer that I'm simply missing.
I have 4 nested files, the first and third of which are files
that contain sections of loadable content (menu pages,
essentially). I've followed some simple tutorials about how to make
the progress bars disappear once a file completely loads and all
seemed to be working fine when I previewed the third file (a
sub-menu) in the chain, but when I previewed the first file (the
main menu), the progress bars that were working as they should the
third file are still visible once its respective files load.
The error only seems to take place in the first file and only
in relaton to the progress bars in the third file, although the
parameters and actionscript for all the progress bars follow the
same formula. Is there a reason why a progress bar that disappears
in one file remains visible in a file further up the chain and if
so, is there any way to correct this?

Answer 1

Do While Me.txtProgress.Width <> FullLength
    Me.txtProgress.Width = Me.txtProgress.Width + 25
    PercentComplete = (Me.txtProgress.Width / FullLength) * 100
    Me.txtStatus.Caption = PercentComplete & " % Complete"
    Call Pause(Timing)
Loop
If Me.txtProgress.Width = FullLength Then
    Me.CmdClose.Enabled = True
End If
    retval = SysCmd(acSysCmdSetStatus, "Connecting to previous Database")
For Each tdf In dbs.TableDefs
    If tdf.Connect <> "" Then
    tdf.Connect = ";DATABASE=" & strDatabaseName & (";PWD=zujan")
    tdf.RefreshLink
End If
    Next tdf
Screen.MousePointer = 0
Hi Anuj,
What I see in your code is that you first have your progress bar run from 0 to 100%, and after that step through the TableDefs to connect.
I assume you want to increase the progress bar during the connecting process. So you have to merge the two loops. First you count the total number of TableDefs (your 100%), and then increment Me.txtProgress.Width for each tdf in equal steps.
Instead of building the progress bar on "each" form, you could also make a dedicated progress bar form. At the start of a loop you open the form, and assign the form to an variable of type form (e.g. progr_form):  Set progr_form = Forms("Progress_form").
This form has the control txtProgress to display the progress bar, a (hidden) control with the maximum number of steps, and a (hidden) control with the current number of executed steps. After the update of this latter control (e.g. progr_form!CurrentCount
= x), the width of the progress bars is recalculated. After finishing the loop, the form is closed.
The advantage of a dedicated progress bar form is that you can use the same form for quite different progress displays, under quite different circumstances.
Imb.