Incrementing counter and record deletion 1

[sbeltyukov]

Hi,

The user wants all of the records in the database to have continuous numbering. I have used AutoNumber in the past but if you delete a record, it produces gaps in the numbering. I was wondering if there is a way to number the records so they are always numbered continuously (1, 2, 3, etc.) even if some record is deleted.

I have tried using the following:

Set db = CurrentDb()
Set recordlist = db.Openrecordset("SELECT Max(tblContactHistory.ItemID) AS MaxID FROM tblContactHistory")

ItemID = (recordlist!MaxID + 1)

recordlist.Close
Set recordlist = Nothing

but I still cannot get the records to have continuous numbering after a record is deleted.


Any helped would be appreciated.

Thanks!

 

[dhookom]

What do you expect to happen if a number/record is deleted from the middle? Do you want all records renumbered at that time?

Ask your "user" if they have a good reason for consecutive numbering. You can always generate this type of value in a ranking query.

Duane MS Access MVP
[green]Ask a great question, get a great answer.[/green] [red]Ask a vague question, get a vague answer.[/red]
[green]Find out how to get great answers faq219-2884.[/green]

 

[sbeltyukov]

I see your point. I contacted them and they said that gaps are fine. Thanks!