Access - Funcion siguiente

Hola, estoy haciendo unas funciones siguiente y anterior para desplazarme por los resultados de las consultas. Este es el código:

Public Function SiguienteRegistro(ByVal Formulario As String) As AcRecord
On Error GoTo Err_Local

DoCmd.GoToRecord , Formulario, acNext

Exit_Local:
Exit Function

Err_Local:
Select Case Err.Number
Case 2105
MsgBox "Último registro", vbInformation
Case Else
MsgBox Err.Description, vbCritical, "Error N°: " & Err.Number
End Select
Resume Exit_Local
End Function

Cuando este código lo tenía como evento del propio formulario funcionaba correctamente, pero lo he sacado a un módulo para poder compartirlo con el resto de formularios y siempre entra por el case 2105: Último registro.

Alguna idea?

Gracias y un saludo!

Prueba a indicarle que donde quieres mover el registro es en un formulario. Si dejas el parámetro en blanco toma el valor predeterminado que es acdataobject.

docmd.GoToRecord acDataForm ,Formulario,acNext

Saludos
José Bengoechea Ibaceta

Pues no funciona. Siguie igual que antes (Último registro).

Gracias por tu interés y un saludo!