Problema con On Error

[gasuton]

Buenas a todos, estoy depurando la aplicacion que cree, y me di cuenta que cuando tengo la base de datos limpia sin registros y me quiero mover con unas funciones de navegacion que tengo en unos boton me da un error:

Run-time error '3021':

El valor de BOF o EOF es true, o el actual registro se elimino; la operacion solicitada requiere un registro actual.

hasta ese momento mi codigo era el siguiente:

Código:

Private Sub anterior_Click()

Adodc1.Recordset.MovePrevious (Aqui es donde me da el error)
If Adodc1.Recordset.BOF Then
Adodc1.Recordset.MoveFirst
End If

End Sub

Por lo que me dije bueno este error se debe a que mi tabla esta vacia, puedo poner un on error con una mensaje que diga que no hay registros y ahi se termine todo.

Despues de probar con varias opciones termine dejando el siguiente codigo, pero este no funciona bien ya que por cada registro que me mueva me muestra el mensaje del error y solo deberia ser cuando no tengo registros para mostrar.

Código:

Private Sub siguiente_Click()

Dim mensaje As String

Adodc1.Recordset.MoveNext
If Adodc1.Recordset.EOF Then
Adodc1.Recordset.MoveLast
End If

On Local Error GoTo error1
error1:
   mensaje = MsgBox("No hay mas registros en el sistema", vbInformation, "ABM Clientes")
Exit Sub

End Sub

espero me puedan ayudar, gracias y saludos.

[Insomnia]

Hola

El error1 tiene que ir después del exit sub, es decir, entre el Exit Sub y el End Sub. De la forma que lo tienes puesto, se ejecuta siempre

P.D.: No se si influye, pero el on error yo lo pongo arriba.

--Saludos--