1
Access / Re: vragen
« Laatste bericht door Della Jordan Gepost op Gisteren om 17:54:40 »Citaat
Inderdaad wat heb je aan die rapportjes?De oplossing op je tweede vraag.
Veel succes
Inderdaad wat heb je aan die rapportjes?De oplossing op je tweede vraag.
En die 'spielerei' is in feite geheugen gymnastiek, ik ben 76 jaar, zit in een rolstoel en de tijd die me nog rest@ benikke, dat was zeker niet de bedoeling, maar het kan toch alleen maar een meerwaarde zijn om het uit te zoeken ,ik kan die rapportjes maken voor jou.
(want er zijn kosten aan) breng ik met 'spielerei' door, dus kom niet te heftig uit je hoek.
ziet er goed uit, het mooiste zou zijn als je over het rode cel gaat dat je de benaming van de afspraak zietJe krijgt genoeg info via de userform , alleen heeft @mvdvlist een klein foutje gemaakt.
Klik op een gebeurtenis (rood veld) om alle gebeurtenissen van deze dag te zien.Moet dubbelklik zijn
Op dit ogenblik ben ik enkel geïnteresseerd, hoe het formulier op datum op te starten.Welke datum zou dat moeten zijn? Zoals ik het zie heeft dizzl perfect geantwoord op je vraag, nl:
Hoe kan het formulier opstarten op eind vorige maand
Tweede vraag: Is het mogelijk om [Dit jaar Electriciteit FL] in te laten vullen bijVoor je tweede vraag, daar zijn rapporten voor in access, leg de twee rapportjes naast elkaar, klaar.
[Vorig jaar Electriciteit FL] maar dan 12 maanden eerder, dus dezelfde maand,
maar een jaar eerder,
Dit om te kunnen vergelijken met de huidige maand.'
Heel eenvoudig en uit spielereiNieuwe spielerei, bestudeer rapporten in acces.
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