Puedes capturar el error. Con la instrucción
On Error Resume Next te sigue ejecutando las líneas de código siguientes a donde se produjo el error, así que después de que pase por esa línea donde se produciría dicho error podrías verificar si hubo error o no lo hubo.
Código:
'Si hubo error.
If Err.Number <> 0 Then
MsgBox "Ha ocurrido un error en el sistema." & vbCrLf & _
"Número de error: " & Err.Number & vbCrLf & _
"Descripción: " & Err.Description & vbCrLf & _
"Contacte al proveedor del sistema o al departamento de sistemas"
Err.Clear
Exit Sub
End if
O bien, si sabes el número del error que se producirá entonces puedes hacer lo siguiente:
Código:
If Err.Number = X Then
MsgBox "No se puede mostrar el siguiente registro debido a que..."
Err.Clear
Exit Sub
End if
Puedes crear una función para el manejo de errores, pero con estas líneas te bastará para poder personalizar tu mensaje de error.
Saludos