http://hiprog.com/access/article.asp?id=380

у меня доступна Определение значения счетчика новой записи.

Вариант 1. Определение максимального значения счетчика

Dim MaxRec As Recordset
Set MaxRec = CurrentDb.OpenRecordset("SELECT Max(predpr.idpredpr) AS
[idpredpr] FROM predpr;", dbOpenDynaset)
MsgBox " Последний ID " & MaxRec.Fields("idpredpr")
Set MaxRec = Nothing

Ограничения:

1. Работает только c последовательными счетчиками.
2. В многопользовательской среде может давать неверный результат при одновременном добавлении записей несколькими пользователями.

Источник информации: Antonenko Stas

Вариант 2. Использование служебной переменной языка Т-SQL @@Identity

Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset

Set cnn = Application.CodeProject.Connection
Set rst = New ADODB.Recordset
rst.Open "SELECT @@Identity", cnn
MsgBox "Последний ID: " & rst(0).Value
rst.Close
Set rst = Nothing
Set cnn = Nothing


Ограничения:

Работает только при использовании ADO или MS SQL server.

Источник информации: Jefferey Garbus, David Pascuzzi "Database Design on SQL Server 7"