Mega Code Archive

 

Categories / VisualBasic Script / Access

 

Retrieve the last-assigned autonumber value

Sub LastAutonumber()     Dim cmd As ADODB.Command     Dim rst As ADODB.Recordset     Set cmd = New ADODB.Command     Set rst = New ADODB.Recordset     cmd.ActiveConnection = CurrentProject.Connection     cmd.CommandText = "INSERT INTO Customers2 " & _         "(CompanyName, IntroDate, CreditLimit) " & _         "VALUES ('Test Company', #1/1/2007#, 100) "     cmd.Execute     rst.ActiveConnection = CurrentProject.Connection     rst.Open ("SELECT @@Identity as LastCustomer FROM tblCustomers") End Sub