Beste benikke,

Ik zou persoonlijk  de gegevens van vorig jaar niet koppelen aan het registratieformulier (desnoods maak je daar een ander  formulier doen).
Maar als je dat zou willen doen kan dat met een bijwerk-query.
Alleen wat moet er komen als waarde wanneer er geen waarde van vorig jaar is?

Ik zou je probleem voor dit formulier aanpakken door een filter uit te voeren.
"Bij aanwijzen" (openen) van het formulier
Private Sub Form_Current()
    'variabelen aanmaken
    Dim laatsteDagVanVorigeMaand As Date
    Dim huidigeDatum As String
    Dim maand  As String
    Dim jaar As String
    'haal de datum van vandaag op
    huidigeDatum = Now()
    maand = Month(huidigeDatum)
    jaar = Year(huidigeDatum)
    'haal de laatste dag van vorige maand op
    laatsteDagVanVorigeMaand = DateSerial(jaar, maand, 0)
    'Stel de filter in op de laatste dag van vorige maand
    DoCmd.ApplyFilter , "Registratiedatum =#" & laatsteDagVanVorigeMaand & "#"
   
End Sub

Een licht verbeterde versie van dit programma. Formulier wat duidelijker en dergelijke.

Topic opgelost gezet. Knop is al een tijdje zoek   

  SoftAid     

waar kan ik de vraag op opgelost zetten?

Je geloofd het niet maar opeens heeft excel er zit in  Jouw code werkt nu wel perfekt.
Ik heb jouw code gewoon opnieuw erin gezet en opnieuw toegewezen en werken met die hap.

Eerst 1 selecteren en op de knop drukken en alles staat er netjes. 5 geselecteerd en stond er weer netjes. Alles geselecteerd en alles stond er weer netjes. Let op alles alles zonder de filterknop      

Verder heb ik letterlijk niks anders gedaan. Het bestandsnaam is ook nog hetzelfde gebleven. Ja klopt dat de site er is om te helpen maar je doet het maar wel. Je hoeft het helemaal niet te doen. Het kost je tijd ondanks het je hobby kan zijn.

Nogmaals bedankt voor je tijd en geduld    Op naar de volgende missie en dat is email programma op je pc oproepen en dat het emailadres al ingevuld staat. Dat gaat ook wel een lastige worden voor mij denk ik, maar ik weet je te vinden