in VBA or access 2003 what is the old progress bar syntax

[Al Nagel]

I have not used a progress display since VB3 and vb 5 professional, is it
available in access 2007 saved as 2003 code. Have not found it in Help except
for the system bar display.

 

[Albert D. Kallal]

ms-access was different, but if you in the code editor in a2007,
try using the help system, it has some examples.

Simply hit f1, and then type in

progress

In the search box...you get some examples...
Here what I just cut/pasted from the above help

Sub ProgressMeter()
Dim MyDB As DAO.Database, MyTable As DAO.Recordset
Dim Count As Long
Dim Progress_Amount As Integer

Set MyDB = CurrentDb()
Set MyTable = MyDB.OpenRecordset("Customers")

' Move to last record of the table to get the total number of records.
MyTable.MoveLast
Count = MyTable.RecordCount

' Move back to first record.
MyTable.MoveFirst

' Initialize the progress meter.
SysCmd acSysCmdInitMeter, "Reading Data...", Count

' Enumerate through all the records.
For Progress_Amount = 1 To Count
' Update the progress meter.
SysCmd acSysCmdUpdateMeter, Progress_Amount

'Print the contact name and number of orders in the Immediate window.
Debug.Print MyTable![ContactName]; _
DCount("[OrderID]", "Orders", "[CustomerID]='" &
MyTable![CustomerID] & "'")

' Go to the next record.
MyTable.MoveNext
Next Progress_Amount

' Remove the progress meter.
SysCmd acSysCmdRemoveMeter

End Sub

 

[Al Nagel]

thanks for the info, but I have that working in the system tray, I was
looking for the way I did it in the vb 5 in a text box or label background I
think.
Al