Para mostrar los datos en las cajas de texto uso este método:
Código:
Private Sub MostrarOperador()
'******************************************
' Muestra el contenido del registro actual
'******************************************
Dim i As Integer
On Error Resume Next
'Vaciamos los campos
For i = 0 To 6
txtOper(i) = ""
Next
'Comprobamos si nos hemos movido a un registro existente
If (Not rt.EOF) And (Not rt.BOF) Then
txtOper(0) = rt.Fields("login")
txtOper(1) = rt.Fields("nombre")
txtOper(2) = rt.Fields("apellido1")
txtOper(3) = rt.Fields("apellido2")
txtOper(4) = rt.Fields("grupo")
txtOper(5) = rt.Fields("fec_alta")
txtOper(6) = rt.Fields("fec_baja")
End If
End Sub
Y en la matriz de botones de movimiento por los registros:
Código:
Private Sub cmdReg_Click(Index As Integer)
'****************************************
' Matriz de movimiento por los registros
'****************************************
On Error Resume Next
Select Case Index
Case cPrimero
rt.MoveFirst
Case cAnterior
rt.MovePrevious
Case cSiguiente
rt.MoveNext
Case cUltimo
rt.MoveLast
End Select
'Y mostramos el registro
MostrarOperador
End Sub
Normalmente compruebo antes de mover el registro si se puede mover, pero he hecho tantos cambios al codigo para pruebas, que ya lo arreglare cuando pueda moverme atras.