Suscríbete a Aprende-Viendo 5.0
Content
Tomar el último valor de una tabla y sumarle 1 al dar click en botón
Buenas Tardes a todos
Alguien que me pueda ayudar u orientar, necesito crear una tabla donde el número id, incremente su valor con +1, al dar click en el botón correspondiente (Agregar) tomando como valor el último registro ingresado es decir; En la fila 3 tengo al usuario C y sus datos pero necesito que al capturar un nuevo registro tome el 3 y le sume 1, y le asigne el 4 en el registro, y que al eliminar un registro intermedio por ejemplo el 2, quedando 1,3 y 4. Tome el 4 y al hacer un nuevo registro lo incremente a 5, con ayuda Junior Gómez he creado este código:
Botón -Agregar-
With RsUsuarios
.Requery
.AddNew
If .BOF Or .EOF Then
id = .RecordCount + 1
Else
!id = .RecordCount
!Nombre = txtNombre.Text
!Direccion = txtDireccion.Text
!Numero = !id
!Clave = !id
.Update
End If
End With
End Sub
y ya me da los consecutivos, pero si elimino uno intermedio me repite por ejemplo el 4.
Alguien que me pueda ayudar u orientar, necesito crear una tabla donde el número id, incremente su valor con +1, al dar click en el botón correspondiente (Agregar) tomando como valor el último registro ingresado es decir; En la fila 3 tengo al usuario C y sus datos pero necesito que al capturar un nuevo registro tome el 3 y le sume 1, y le asigne el 4 en el registro, y que al eliminar un registro intermedio por ejemplo el 2, quedando 1,3 y 4. Tome el 4 y al hacer un nuevo registro lo incremente a 5, con ayuda Junior Gómez he creado este código:
Botón -Agregar-
With RsUsuarios
.Requery
.AddNew
If .BOF Or .EOF Then
id = .RecordCount + 1
Else
!id = .RecordCount
!Nombre = txtNombre.Text
!Direccion = txtDireccion.Text
!Numero = !id
!Clave = !id
.Update
End If
End With
End Sub
y ya me da los consecutivos, pero si elimino uno intermedio me repite por ejemplo el 4.
1 respuesta Agrear Respuesta
Agradesco tu Paciencia. Muchas Gracias por la espera! Somos Aprende Viendo 5.0
Grupo AprendeViendo & Ronald López agradecen a todos sus fieles seguidores por la larga espera. Basados en nuestro nuevo concepto, Grupo Aprendeviendo les ofrece un sin fin de posibilidades en sus largas horas de adiestramiento y soluciones de problemas tanto empresariales como cotidianos. Sigamos siendo un portal de enseñanza de virtual gratuito y más que eso!
Copyright © 2006 - 2014 - Grupo AprendeViendo & Ronald López. Todos los Derechos Reservados
Grupo AprendeViendo a sido desarrollado por Ronald López - Kalizron. Esta prohibida su reproducción total o parcial sin previa autorización de parte de sus autores. Ronald López Bahamonde - Resolución: 1024-768 - Aviso Legal - Términos de Uso