RE:para la gente que sabe!!!
Hola, yo tengo echa una BD. en la cual cada vez q quiero insertar un nuevo registro me aparece en un label (q despues insertara en el campo correspondiente para grabarlo) el numero q le sigue al ultimo registro, y ,si borro algun registro supongamos q tengo 1250 y borro el 500, cuando inserte un nuevo registro me aparecera en el, el 500 automaticamente.
te dejo el codigo q tengo para el locualo este:
Private Sub sbtabla()
Dim b As Integer
Select Case frm
Case Is = 1
sql = "SELECT * FROM " & Mntabla
Set dynReg = NRefCD.OpenRecordset(sql)
criterio = "Reg = '1'"
dynReg.FindFirst criterio
If dynReg.NoMatch Then
LRef = 1 ' label donde aparece el registro 1 si no existen registros
Else
dynReg.MoveLast
For b = 1 To dynReg.RecordCount
contadorx = b
criterio = "Reg = '" + contadorx + "'" ' contadorx es otro label q actua de variable
dynReg.FindFirst criterio
If dynReg.NoMatch Then
LRef = b ' busca y coloca un numero vacio q alla sido borrado
Exit For
Else
contadorx = Val(contadorx) + 1 ' coloca en el label el siguiente numero q precede al ultimo
LRef = Val(contadorx)
End If
Next b
End If
espero te de una pista
Saludos