Recorrer tabla

Hola: En un formulario he creado un botón de comando que quiero que recorra la bd y me compare si un campo es igual que su número de registro. Para empezar sólo he creado un msgbox que me muestre el número de registro, pero siempre me muestra el 1. ¿Podrías indicarme en qué me equivoco? Gracias.
Private Sub Comando7834_Click()
Dim i As Variant
Dim Reg As Dao.Recordset
Set Reg = CurrentDb.OpenRecordset("PRUEBAS")
Reg.MoveLast
Reg.MoveFirst
For i = 1 To Reg.RecordCount
MsgBox CurrentRecord
Reg.MoveNext
Next i
1

1 respuesta

Respuesta
1
Fíjate que en
MsgBox CurrentRecord
No pones reg en ninguna parte
Ademas que la posición seria con Reg.AbsolutePosition
CurrenRecord es la posicion del form activo
tambien te hubiera funcionado si movieras el registro del form asi
me.recordset.moveNext
Hola de nuevo. Si no he entendido mal el código debería quedar así:
Private Sub Comando7834_Click()
Dim i As Variant
Dim Reg As Dao.Recordset
Set Reg = CurrentDb.OpenRecordset("ASF COMIDAS PREPARADAS")
Reg.MoveLast
Reg.MoveFirst
For i = 1 To Reg.RecordCount
MsgBox CurrentRecord
Me.Recordset.MoveNext
Next i
Me funciona si en el formulario estoy situado en el primer registro, pero si estoy en el último no.
Gracias.
El código que me envías es el mismo
Te explico de nuevo
CurrenRecord es para la posición del form
No del reg que creaste, entiendes, o usas reg para todo o usas form para todo
Si usas reg seria
For i = 1 To Reg.RecordCount
MsgBox reg.AbsolutePosition
reg.MoveNext
Next i
y si usas form seria
For i = 1 To me.recordset.RecordCount
MsgBox CurrentRecord
Me.Recordset.MoveNext
Next i

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas