Show Progress bar to Append Records to a table

[Guest]

I've designed a form to display a progress bar for a process of creating a table.
I can increment the bar for creating the table, adding indicies.
How can i increment another bar to show the records being added by a append query?
I've tried to figure out the maximum count of records for the query using DCOUNT
but even then i'm not sure how to increment the bar as the query runs.

Should I run the recreate the append query within Visual Basic ?
Any help would be appreciated.

Mark

 

[Newbie]

The way I do this, and there could be a better way as I am new to this as
well, is:

Create a recordset of the records that you want to append to the table.
Create another recordset of the table that you wish to add the records to.
set the progressbar.max property to the number of records in the set
set up a counter and for every record that gets added to the table increment
this by 1 and set the progressbar.value property to the value of the
counter.

air code . . .


Forms!form1.ProgressBar1.Value = 0
Set rs = currentdb.openrecordset("AppendQryinSelectForm")
lcount = rs.recordcount
Forms!Form1.ProgressBar1.Max = lcount

Set rsData = CurrentDb.OpenRecordset("SELECT * FROM yourtable")


Do Until rs.EOF
rsData.AddNew
lfields = rs.Fields.Count - 1
For lindex = 0 To lfields
rsData.Fields(lindex) = rs.Fields(lindex)
Next
rsData.Update
rs.MoveNext
countrec = countrec + 1

Forms!Form1.ProgressBar1.Value = countrec

Loop

HTH

 

[Albert D. Kallal]

I have a progress bar that runs on its own, independently of the query.

so, you just give it a time amount..and it "displays" as your query runs.

You can see the program bar run, and grab the code. it is in my word merge
example (just run it to see the progress bar).

You will find it here:

http://www.attcanada.net/~kallal.msn/msaccess/msaccess.html