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.