Cómo hacer el id de un registro sea secuencial
Publicado por Andrea (14 intervenciones) el 07/11/2007 00:24:56
Hola!!! mi problema es q cdo hago un addnew , el id de ese registro es cualquier número por ej 8563 pq yo solo aprendí a generar un código aleatorio,(este es el código)
Dim AutoCodigo As Long
Do 'Autogenera un código
AdodcFliares.Recordset.MoveFirst
Randomize
AutoCodigo = CLng(Int(((9999 - 1 + 1) * Rnd) + 1))
AdodcEmpresas.Recordset.Find ("CodEmpresa=") & AutoCodigo
Loop Until AdodcEmpresas.Recordset.EOF = True Or AdodcEmpresas.Recordset.RecordCount = 999
AdodcEmpresas.Recordset.MoveLast 'Mueve al final del recordset
AdodcEmpresas.Recordset.AddNew 'Agrega un reg. en blanco
La instruccón Randomize es la q inicializa un generador de números aleatorios, pero yo quiero q sea secuencial y no se como hacerlo probé de todo y no me sale.
Me dijeron q tengo q crear otra tabla q guarde el ultimo registro cargado, probé pero no me sale. En síntesis yo quiero cargar el nº 1 y luego el 2, el 3 y asi sucesivamente.
Si alguien me puede ayudar se lo voy a agradecer.
Saludos, Andrea
Dim AutoCodigo As Long
Do 'Autogenera un código
AdodcFliares.Recordset.MoveFirst
Randomize
AutoCodigo = CLng(Int(((9999 - 1 + 1) * Rnd) + 1))
AdodcEmpresas.Recordset.Find ("CodEmpresa=") & AutoCodigo
Loop Until AdodcEmpresas.Recordset.EOF = True Or AdodcEmpresas.Recordset.RecordCount = 999
AdodcEmpresas.Recordset.MoveLast 'Mueve al final del recordset
AdodcEmpresas.Recordset.AddNew 'Agrega un reg. en blanco
La instruccón Randomize es la q inicializa un generador de números aleatorios, pero yo quiero q sea secuencial y no se como hacerlo probé de todo y no me sale.
Me dijeron q tengo q crear otra tabla q guarde el ultimo registro cargado, probé pero no me sale. En síntesis yo quiero cargar el nº 1 y luego el 2, el 3 y asi sucesivamente.
Si alguien me puede ayudar se lo voy a agradecer.
Saludos, Andrea
Valora esta pregunta
0