Progress bar conditional issue

Question

hi,
I'm using the following code to two things. First, progress bar and second, database connection. Both process are working fine but, not simultaneously.
Code:
================
On Error GoTo Err_cmdDisconnect_Click
    Dim dbs As DAO.Database
    Dim tdf As DAO.TableDef
    Dim strMessage As String, strDatabaseName As String
    Dim retval
    Dim FullLength As Integer
    Dim PercentComplete As Integer
    Dim Timing As String
Set dbs = CurrentDb()
strDatabaseName = CurrentProject.Path & "\BE\" & Dbase
If IsNull(Dbase) Then
    MsgBox ("Please select the database."), , "Error"
    Me.Dbase.SetFocus
Exit Sub
End If
    strMessage = "Are you sure to connect " & _
    strDatabaseName & " as the Auto Evolution database?"
If MsgBox(strMessage, vbYesNo + vbQuestion, "Connection Confirmation") = vbNo Then
Exit Sub
End If
If Dir(strDatabaseName) = "" Then
    MsgBox "The Auto Evolution database you have specified as the " & _
    "source was not found.", vbInformation, "Connection Error"
Exit Sub
End If
DoCmd.Hourglass True
'Declare timing
Timing = 0.01
'Declare the maximum length of the progress bar
FullLength = 8050
'Hourglass
Screen.MousePointer = 11
    'Remove transparancy of progress bar
If Me.txtProgress.Width <> 0 Then
    Me.txtProgress.BackStyle = 1
End If
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
DoCmd.Hourglass False
retval = SysCmd(acSysCmdClearStatus)
MsgBox "Auto Evolution database is now connected with " & _
        "'" & Me.Dbase & "'", vbInformation, "Connection Successful"
DoCmd.Close acForm, Me.NAME
Exit_cmdConnect_Click:
    Exit Sub
Err_cmdConnect_Click:
    DoCmd.Hourglass False
    If Err.Number <> 2467 Then
    MsgBox ("Unable to execute database switch now."), vbCritical, "Error"
    Me.CmdClose.Enabled = True
    Resume Exit_cmdConnect_Click
End If
===============
Any help will be appreciable.
Thanks & Regards, Anuj Mehrotra

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.