How get autonumber key after adding a new row ??

[David]

I'm coding a huge conversion routine in VBA. After I add a record to one table I need to create a row in another table with the autonumber key in a linked column. How do I get the autonumber key of a record I have just added?

 

[Ken Snell]

How are you adding the new record? If via DAO.Recordset variable, you can do
this to put that autonumber value into the lngANumber variable:

Dim rst As DAO.Recordset, lngANumber As Long
Set rst = CurrentDb.OpenRecordset("Name", dbOpenDynaset)
rst.AddNew
rst!Fieldname = 'value'
rst.Update
rst.Bookmark = rst.LastModified
lngANumber = rst!AutonumberFieldName
rst.Close
Set rst = Nothing

--
Ken Snell
<MS ACCESS MVP>

I'm coding a huge conversion routine in VBA. After I add a record to one

table I need to create a row in another table with the autonumber key in a
linked column. How do I get the autonumber key of a record I have just
added?

 

[Billy Yao [MSFT]]

Hello Bongo,

I am just checking on your progress regarding the information that was sent
you. Have you tried the steps Ken provided to you? We wonder how the
testing is going. If you encounter any difficulty, please do not hesitate
to let us know.

Please post here and let us know the status of your issue. Looking forward
to hearing from you soon. Thanks!

Billy Yao
Microsoft Online Support