foutafhandeling

[gotcha123]

ik zit met een probleempje in mijn foutafhandeling.
Wanneer er voor een bepaalde persoon nog geen records ingegeven zijn in een formulier/tabel en de gebruiker wil toch op de knop "Vorige" drukken, dan geeft Access een foutmelding (da's logisch, lijkt mij).
Nu had ik graag dmv foutafhandeling die handeling willen negeren, maar VBA geeft foutmelding in de aard van "Compileerfout Sub of Function is niet gedefinieerd".

Hieronder staat de code, kan iemand me zeggen waar de fout zit?

Private Sub cmdVorige_Click()
On Error GoTo Foutafhandeling
    DoCmd.GoToRecord , , acPrevious

Foutafhandeling
    Select Case Err.Number
        Case 2105
           DoCmd.GoToRecord , , acFirst
        Case Else
           MsgBox "Er heeft zich een onverwachte fout voorgedaan." & Chr(10) & _
                    Err.Number & ": " & Err.Description & Chr(10) & Chr(10) & _
                    "Contacteer .... voor meer info.", vbCritical
    End Select
End Function

End Sub

Alvast bedankt!

 

[gotcha123]

heb het foutje ondertussen zelf al gevonden...het moest iets zijn in de trend van

Private Sub cmdVorige_Click()
On Error GoTo Foutafhandeling_Click
    DoCmd.GoToRecord , , acPrevious

Exit cmdVorige_Click
Exit Sub

Foutafhandeling
    Select Case Err.Number
        Case 2105
           DoCmd.GoToRecord , , acFirst
        Case Else
           MsgBox "Er heeft zich een onverwachte fout voorgedaan." & Chr(10) & _
                    Err.Number & ": " & Err.Description & Chr(10) & Chr(10) & _
                    "Contacteer .... voor meer info.", vbCritical
    End Select
Resume Exit_cmdVorige_Click

End Sub

er mag een slotje op...