Ayuda con data

einsfabi
13 de Enero del 2005
Hola amigos tengo que hacer un programa con un data con textboxs y botones para navegar y nonavegar con el data pero tengo un problema con el boton siguiente y anterior pero no me funciona muy bien el siguiente codigo si utilizo el boton anterior y llego al primer campo me sigue funcionando pasa de este los text se ponen en blanco pongo siguiente y me da error que puedo hacer ahi les va un poco de código.
Private sub boton_Anterior click()
if data1.Recordset.BOF=False then
data1.recordset.MovePrevious
End if
End sub
Private sub boton_Siguiente click()
if data1.Recordset.EOF=False then
data1.recordset.MoveNext
End if
End sub

l_island
13 de Enero del 2005
No puedes comprobar BOF o EOF antes de moverte, por eso modifica tus funciones de este modo:

Private Sub Anterior_Click()
Data1.Recordset.MovePrevious
If Data1.Recordset.BOF Then Data1.Recordset.MoveFirst

End Sub

Private Sub Siguiente_Click()
Data1.Recordset.MoveNext
If Data1.Recordset.EOF Then Data1.Recordset.MoveLast

End Sub

Primero te mueves y luego compruabas.

Saludos!!
l_island