11
Access / Re: vragen
« Laatste bericht door dizzl Gepost op 19 mei 2024, 10:36:53 »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
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
Code: [Selecteer]
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