Counting records

[blockers]

Hi.

Basically i am doing a project in Access, and using VB to program the extra bits, like If formulas etc.

I want to make some custom record counters so they display the current record number and the total records. Like 5/10 or something. I know access do have this function on their forms but i want to get rid of it and make my own

I cant find anything on the internet, does anyone have any idea how to program this in VB?

Any help much appreciated.

Will

[Shad]

Well create your SQL something like...

SELECT (SELECT COUNT(prikey) FROM table) AS totrecs, fielda, fieldb, fieldc FROM table

Then just increment a counter as you run through the recordset returned...

counter = 0
Do while not RecSet.EOF
  counter = counter + 1
  'some code...
  RecSet.Movenext
Loop

[Spunkey]

if youre using ADO you can also get the number of records returned from any type of query (not just a COUNT *) - try myRS.RecordCount.

you have to specify lock and cursortypes on your rs for that to work though, cant remember the proper names but if you open it like this it'll work
myRS.open SQL, cn, 3, 1

[blockers]

Thanks very much guys. ill give that a go tonight