Hello everyone,

I am wanting to use the progress bar on a form for a user that has to
transter records but the query is slow. I want to be able to use a
progress bar (ProgressBar5 is the name) to show my user that the
process is still going. Where do I insert my progress bar and how?
This is my first time with the progress bar so a little hand-holding
might be just the ticket I need.

Here is the code I am using right now.

Private Sub btnCQAAnalysis_Click()
On Error GoTo Err_btnCQAAnalysis_Click

   'Get last months CQA Analysis Data
   Set db = CurrentDb
   Set rst = db.OpenRecordset("ProjectedTable")
   'Get the dates from a different form
   DoCmd.OpenForm "frmDates", acNormal, , , , acDialog
   SD = Forms!frmDates!txtStart
   ED = Forms!frmDates!txtEnd
   MsgBox "The upload may take a few minutes to run. Please be
patient.", vbOKOnly + vbInformation
   Set rst2 = db.OpenRecordset("SELECT * FROM qryCQAAnalysisData2
WHERE IssueDate Between #" & SD & "# And #" & ED & "#")
   If rst2.RecordCount = 0 Then
       MsgBox "There are no records for the dates between " & SD & "
and " & ED & ".", vbOKOnly, "No Data"
       DoCmd.Close acForm, "frmDates"
       GoTo Err_btnCQAAnalysis_Exit
   End If
   rst2.MoveFirst
   Do Until rst2.EOF
       rst.AddNew
       'Plant Code
       rst!Code = rst2.Fields(0)
       'Product Code
       rst!ProdCode = rst2.Fields(1)
       'Print Name
       rst!PrintName = rst2.Fields(3)
       'Determine whether the issue date goes in the Product Date
field or Source Date field
       If rst2.Fields(5).Value > 0 Then
           rst!ProductDate = rst2.Fields(2)
           rst!SourceNum = 1
           rst!EnteredDate = rst2.Fields(2)
       ElseIf rst2.Fields(6).Value > 0 Then
           rst!SourceDate = rst2.Fields(2)
           rst!SourceNum = 2
           rst!EnteredDate = rst2.Fields(2)
       End If
       'Number Inspected
       rst!NumInspected = 1
       'Number Wet Ink
       rst!NumWetInk = 1
       rst.Update
       rst2.MoveNext
   Loop

   MsgBox rst2.RecordCount & " records uploaded.", vbInformation +
vbOKOnly
   sfrmProjectedTable.Requery
   DoCmd.Close acForm, "frmDates"

Err_btnCQAAnalysis_Exit:
   Set rst = Nothing
   Set rst2 = Nothing
   Set db = Nothing
   Exit Sub

Err_btnCQAAnalysis_Click:
   MsgBox Err.Description
   Resume Err_btnCQAAnalysis_Exit

End Sub