Voor 15 formulieren dezelfde functie maken en aanroepen

[Dirkenheidi]

Ik heb volgende code in een opdrachtknop staan om naar vorig record te gaan.
Kan er iemand zeggen hoe ik er een functie van maak en hoe ik deze aanroep
in de 15 verschillende formulieren.

Private Sub VORIG_Click()
On Error GoTo Err_Vorig_Click


DoCmd.GoToRecord , , acPrevious

Exit_Vorig_Click:
Exit Sub

Err_Vorig_Click:
Err.description = " U staat nu op het eerste record ! "
MsgBox Err.description, , " Attentie ! "
Resume Exit_Vorig_Click

End Sub

 

[OctaFish]

Ik heb daar wel functies voor; ik zal ze vanavond wel posten.

 

[OctaFish]

Zoiets bijvoorbeeld:

Function GotoFirstRecord()
    DoCmd.GotoRecord , , acFirst
End Function

Function GotoLastRecord()
    DoCmd.GotoRecord , , acLast
End Function

Function GotoNextRecord()
    On Error GoTo Eerste
    DoCmd.GotoRecord , , acNext
    Exit Function
    
Eerste:
    DoCmd.GotoRecord , , acFirst
End Function

Function GotoPrevRecord()
    On Error GoTo Laatste
    DoCmd.GotoRecord , , acPrevious
    Exit Function

Laatste:
    DoCmd.GotoRecord , , acLast
End Function

En de knoppen krijgen dan de functie <Bij klikken>: =GotoFirstRecord() etc