Post on 27-Jun-2015
description
Case Is = 2‘PREGUNTO SI NO LLEGO AL ÚLTIMO REGISTROIf Not Adodc1.Recordset.EOF Then‘SI NO LLEGO, QUE PASE AL SIGUIENTEAdodc1.Recordset.MoveNext 'SiguienteElse ‘CASO CONTRARIO‘MUESTRO UN MENSAJEMsgBox "LLEGO AL ÚLTIMO REGISTRO“ , vbCritical‘MUEVO EL RECORDSET AL ÚLTIMO REGISTROAdodc1.Recordset.MoveLastEnd If
BOTÓN SIGUIENTE
Prof.: Ricardo Viqueira
Case Is = 3
If Not Adodc1.Recordset.BOF ThenAdodc1.Recordset.MovePrevious 'Anterior
Else
MsgBox "LLEGO AL PRIMER REGISTRO“ , vbCriticalAdodc1.Recordset.MoveFirst
End If
BOTÓN ANTERIOR
Prof.: Ricardo Viqueira