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

Вариант 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. В многопользовательской среде может давать неверный результат при одновременном добавлении записей несколькими пользователями.

Источник информации: Этот e-mail защищен от спам-ботов. Для его просмотра в вашем браузере должна быть включена поддержка Java-script

Вариант 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.

Ваш коментарий будет первым

Добавить коментарий
Имя:
E-mail
Коментарий:
Код:*