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
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 respuesta
Respuesta de luis45ccs
1