vba-microsoft-access-2003

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

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

1 Star2 Stars3 Stars4 Stars5 Stars (No Ratings Yet)
Cargando…

Deja un comentario