Pilar
05 de Septiembre del 2003

Me gustaría saber cómo creo un fich secuencial q tenga solamente 4 registros(es decir q al 5 me diga q no se puede introducir más) y luego quiero consultar el último registro.

Luis
05 de Septiembre del 2003

Hola
yo haria esto:

El ejemplo obviamente no incluye la diclaración del tipo r ni las variables pero supongo que le entendras


Open "archivo.dat" For Random As #1 Len = Len(r)
If LOF(1) / Len(r) = 0 Then
reg = 1
Else
reg = LOF(1) / Len(r) + 1
End If

If reg >= 5 Then
Close #1
MsgBox "TE HAS PASADO DEL LIMITE DE REGISTROS", vbCritical, "ATENCION"
Exit Sub
End If
r.campo = "registro"
r.campo = "registro"
Put #1, reg, r
Close #1


Esto funciona, ya lo comprobe, y de tal modo
al poner mas de 4 registros no te dejara grabar

Por otra parte para consultar el ultimo registro deberias de hacer una sencilla rutina que seria

do while not eof(1)
reg = reg +1
loop
hasta que llegue al ultimo reg y despues pues ya lo visualizas, si no me entendiste escribeme a mi dir

Saludos