ник: osmor
у меня доступна Определение значения счетчика новой записи.
Вариант 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"