Progress Monitor

[pluto1415]

Thanks to lots of help from the great people here, I've got an access DB with a "master" form. When the DB is opened, the master form opens - the user enters a case number and 25 different documents are generated (data from Access goes to word templates) and all are saved to a specific directory on our network. (the docs are actually numbered 1-25) This takes several minutes to complete. I currently have a message box that pops up when it's complete and says "Documents are ready for review". I'd really like some way to keep my users apprised of the progress, otherwise they're really impatient and start trying to close things, etc...

Each document is it's own sub and all are called from the first sub:

Private Sub ClosingContracts_Click()
On Error GoTo ErrorHandler
DoCmd.SetWarnings (False)

Call OpenMergedDoc1
Call OpenMergedDoc2
Call OpenMergedDoc3

Exit Sub

ErrorHandler:
    MsgBox "Error #" & Err.Number & " occurred. " & Err.Description, vbOKOnly, "Error"
    Exit Sub
End Sub

Any ideas?

 

[Andrzejek]

You can show a Progress Bar on your Form, or on the vbModal form so your users can not click anywhere, they just have to wait until the proceess is done.

Or you can create your own little progress bar:
Place a Frame1, a Label1 inside that frame, set their Captions to nothing, and set the Label1's ForeColor to something nice. Plus 2 CommandButtons to show you how it works.

Option Explicit

Private Sub CommandButton1_Click()
[green]    'Set initial position[/green]
    Label1.Move 0, 0, 0, Frame1.Height
End Sub

Private Sub CommandButton2_Click()
[green]    'Show the progress[/green]
    With Label1
        If .Width = 0 Then
            .Width = 10
        Else
            .Width = .Width + 10
        End If
    End With
End Sub

Have fun.

---- Andy

 

[TheAceMan1]

How are ya pluto1415 . . .

Example Progress Bar!

See Ya! . . . . . .

Be sure to see thread181-473997 [blue]Worthy Reading![/blue]
Also faq181-2886 [blue]Worthy Reading![/blue]