Access - aumentar en uno el ultimo registro

   
Vista:

aumentar en uno el ultimo registro

Publicado por salva (56 intervenciones) el 23/02/2008 18:32:33
tengo un formulario donde el numero de registro es numerico quisiera saber como al ingresar un nuevo registro se aumenta en uno desde el ultimo numero de registro, no me vale autonumerico.gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Enrique Ramírez

RE:aumentar en uno el ultimo registro

Publicado por Enrique Ramírez (617 intervenciones) el 24/02/2008 20:46:55
Tengo una tabla llamada Tabla1 en la cual mi numero consecutivo es el campo lamado num, tomo el ultimo valor de la tabla y le sumo uno y el resultado lo dejo con el nombre NumeroSiguiente, ejemplo si en mi tabla el ultimo num grabado es 10 con esta consulta NumeroSiguiente tiene un valor de 11, espero que te sirva.

SELECT Max(tabla1.num)+1 AS NumeroSiguiente
FROM cata_grupos;
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:aumentar en uno el ultimo registro

Publicado por salva (56 intervenciones) el 24/02/2008 20:52:55
muchisimas gracias explicame donde pongo esto gracias
SELECT Max(tabla1.num)+1 AS NumeroSiguiente
FROM cata_grupos;
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Enrique Ramírez

RE:aumentar en uno el ultimo registro

Publicado por Enrique Ramírez (617 intervenciones) el 25/02/2008 15:32:47
correccion, para este ejemplo que te doy en vez de FROM cata_grupos debe ser FROM Tabla1...

Esto lo debes de poner anter de tu INSERT y en lugar de grabar la el valor de tu caja de texto debes de grabar el campo NumeroSiguiente, este lo debes de extraer con un RecordSet

1) primero debes de definir un record set
Option Compare Database
Dim db As DAO.Database, rs As DAO.Recordset
Dim variable1, variable2 as string

2) antes de tu INSERT

variable1="SELECT Max(tabla1.num)+1 AS NumeroSiguiente FROM tabla1"

Set db = CurrentDb()
Set rs = db.OpenRecordset(variable1)
If rs.RecordCount > 0 Then
variable2 = rs!NumeroSiguiente 'grabas el ultimo folio + 1
else
variable2 = 1 'sin no hay ningun folio grabas 1
end if
rs.Close
Set db = Nothing
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar