Ver Mensaje Individual
  #2 (permalink)  
Antiguo 11/12/2002, 23:08
wwwmaster
 
Fecha de Ingreso: noviembre-2002
Ubicación: DF
Mensajes: 1.056
Antigüedad: 22 años, 3 meses
Puntos: 37
Lo arreglas con un bookmark:

Para eso, yo abro la tabla asi:

rsUsuario.CursorLocation = adUseClient

rsUsuario.Open "Usuarios Order By idUsuario", Application("conn"), adOpenDynamic, adLockOptimistic, adCmdTable

rsUsuario.AddNew

y luego, de actualizar, recuperas el ultimo registro agregado donde quedo el bookmark:

dim bookMark

rsUsuario.Update

bookMark = rsUsuario.AbsolutePosition

rsUsuario.Requery

rsUsuario.AbsolutePosition = bookMark

iKeyID = rsUsuario.Fields("idUsuario" )