Loop But Continue to Next Command

[Allan.Day]

Dear All,

Need Help,
this is a progress bar, what i need is, while execute loop (progress bar) but also execute next command = "LedgerExe:

thanks in advance


On Error GoTo Proc_Err
Dim inti As Integer
Dim dblPct As Double
Me.txtPctComplete.Visible = True
Me.boxWhole.Visible = True
Me.boxPct.Visible = True
fInLoop = True
fExitLoop = False
Do Until inti > 6000 Or fExitLoop
dblPct = inti / 6000
Me.txtPctComplete = dblPct
Me.boxPct.Width = Me.boxWhole.Width * dblPct
Me.txtI = inti
'If Me.txtI Mod 1 = 0 Then
DoEvents
'End If
inti = inti + 1
Loop
fInLoop = False
'TVCodeTools ErrorHandlerStart
LedgerExe
DoCmd.Requery
Forms!LedgerForm!LedgerSummary.Requery
Forms!LedgerForm!LedgerDetail.Requery
DoCmd.SetWarnings False
DoCmd.RunSQL "Delete * From LedgerPeriodTbl"
DoCmd.OpenQuery "LedgerPeriodAppend"
DoCmd.SetWarnings True

 

[nschroeder]

I'm a little slow, but I'm not making sense of your code, or your explanation of what you're trying to do. Please explain in plain English, and please use code tags and proper indentation. Thanks.