Cómo obtener el último valor autonumérico después de un addnew en Microsoft Access 2003 VBA

vba-microsoft-access-2003

Si hacemos un Addnew de un registro mediante código VBA de Microsoft Access 2003 y la tabla tiene una clave formado por un ID autonumérico es posible que necesitemos saber cual es el valor que se le ha asignado a ese registro.

Las instrucciones para saberlo son las siguientes (remarcadas en azul), suponemos que el campo autonumérico de la tabla se llama ID

Dim rstProyectosTareas As DAO.Recordset
Dim lngID As Long
Set rstProyectosTareas = CurrentDb.OpenRecordset(“ProyectosTareas”)
rstProyectosTareas.AddNew
rstProyectosTareas![…] = …
rstProyectosTareas![…] = …
rstProyectosTareas.Update
‘ Como obtener el último valor autonumérico de una clave
rstProyectosTareas.Move 0, rstProyectosTareas.LastModified
lngID = rstProyectosTareas!ID
‘ Fin de como obtener
rstProyectosTareas.Close

Autor: Alex Borrás

Informático, especializado en desarrollo Web con WordPress, Redes Sociales y posicionamiento en buscadores (SEO). Fan de la OOP y como afición jugador de Ajedrez. Geek por vocación & iphonero.

Deja un comentario