Controles de Base de datos 2º parte Siguiente completo s

Post on 27-Jun-2015

210 views 3 download

description

Código para evitar el error de principio y fin de archivo de una base de datos.

Transcript of Controles de Base de datos 2º parte Siguiente completo s

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