Replacing Navigation buttons

J

Johnny Bright

Hi there!

I find Access form navigation buttons to be a little annoying and I have
replaced them with a couple of buttons. What I would also like to do is put
in a couple of labels to say essentially "Record 1 of 5", that is replacing
those of Access. I think this would be more intuitive for users.

All help greatly appreciated!
J
 
A

AlCamp

Johnny
Place an unbound text control on the form with a ControlSource of... (use
your own field names)

=[CurrentRecord] & " of " & Count([YourField]) & " of " &
DCount("[YourField]","tblYourTable")

If you had 500 addresses in a table, and you were on record 1, it would
display as...
1 of 500 of 500

If you filtered the records for say City = "Boston" and there are 50
Boston records then...
1 of 50 of 500

So, it not only tells you what record you're on, but the size of the
active recordset vs. the total number of records.
hth
Al Camp
 
J

Johnny Bright

Hi Al!

That worked like a charm! Thanks a lot!

AlCamp said:
Johnny
Place an unbound text control on the form with a ControlSource of... (use
your own field names)

=[CurrentRecord] & " of " & Count([YourField]) & " of " &
DCount("[YourField]","tblYourTable")

If you had 500 addresses in a table, and you were on record 1, it would
display as...
1 of 500 of 500

If you filtered the records for say City = "Boston" and there are 50
Boston records then...
1 of 50 of 500

So, it not only tells you what record you're on, but the size of the
active recordset vs. the total number of records.
hth
Al Camp
Click to expand...
 
Top