Controles de Base de datos 2º parte, controles Siguiente y Anterior
2
Case Is = 2 ‘PREGUNTO SI NO LLEGO AL ÚLTIMO REGISTRO If Not Adodc1.Recordset.EOF Then ‘SI NO LLEGO, QUE PASE AL SIGUIENTE Adodc1.Recordset.MoveNext 'Siguiente Else ‘CASO CONTRARIO ‘MUESTRO UN MENSAJE MsgBox "LLEGO AL ÚLTIMO REGISTRO“ , vbCritical ‘MUEVO EL RECORDSET AL ÚLTIMO REGISTRO Adodc1.Recordset.MoveLast End If BOTÓN SIGUIENTE Prof.: Ricardo Viqueira
-
Upload
ricardo-viqueira -
Category
Education
-
view
367 -
download
0
Transcript of Controles de Base de datos 2º parte, controles Siguiente y Anterior
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