|
J
|
Jane 3/14/2007 |
|
Marcos, |
|
|
M
|
marcove author 3/14/2007 |
|
Database is MSAccess 2000 |
|
|
J
|
Jane 3/14/2007 |
|
Marcos, Sub AfterAdd() str = "select max(RecordID) from " & strTableName Set rsTemp = server.CreateObject("ADODB.Recordset") rsTemp.open str, dbConnection 'rsTemp(0) - RecordID of added record Response.Write rsTemp(0) rsTemp.Close : set rsTemp = Nothing End Sub |
|
|
M
|
marcove author 3/14/2007 |
|
Ok thank you. Just a detail: |
|
|
J
|
Jane 3/14/2007 |
|
Marcos, str = "select max(RecordID) from " & strTableName or str = "select max(RecordID) from _ProtocolloAmm" |
|