Problemas con boton

[serbc24]

Hola a todos tengo el siguiente codigo

Private Sub cmdPrevious_Click()
rt.MovePrevious
If rt.BOF Then
rt.MoveFirst
cmdPrevious.Enabled = False
cmdNext.Enabled = True
Exit Sub
End If
cmdPrevious.Enabled = True
End Sub

Y a la hora de ejecutar me da el siguiente error:

Error '3021' en tiempo de ejecucion
El valor de BOF o EOF es TRUE o el actual registro se eliminó; la
operación solicitada requiere un registro actual

Alguna solucion


Gracias

[zabait]

No te dará el error en la línea de la sentencia Moveprevious, no???

El recordset no estará vacio verdad????

De todas formas, primero hay que validar y después realizar lo que desees!!!
Mira la modificascion en el código y pruebala en tu programa.

Private Sub cmdPrevious_Click()
If rt.BOF Then
rt.MoveFirst
cmdPrevious.Enabled = False
cmdNext.Enabled = True
exit sub
else
rt.MovePrevious
endif
cmdPrevious.Enabled = True
End Sub

Si no te soluciona nada, por favor, responde no solo con el error que te da, sino también con la línea de dicho error