из фака по счётчикам:
A2: Более широкий круг применимости у такого способа:
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
CurrentProject.Connection.Execute "INSERT ..."
rs.Open "SELECT @@identity as cou", CurrentProject.Connection
переменная = rs!cou
rs.Close
Однако и этот способ имеет ограничения, а именно:
работает
только через ADO, только в Jet 4 и позже, и только с базами формата Аксесса 2000 и позже;
--------------------------------------------------------------------------
Я может и торможу, скорей всего так и есть, но SELECT @@IDENTITY работает и через DAO:
Private Sub aaaa()
Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("Table2")
rst.AddNew
rst!test = "AAAA"
rst.Update
Set rst = CurrentDb.OpenRecordset("SELECT @@IDENTITY as ID")
Debug.Print rst!ID
End Sub |
|
Прошу поправте меня скорей ;)