Opgelost Veld samenstellen op basis van datum

[jbusser]

Simpele vraag (denk dat het antwoord net zo simpel is...)
Als ik op een knop druk wil ik middels VBA dat een veld alsvolgt wordt gevuld:
jaar + maand (4 digits!)
dus momenteel (het is nu 16-1-2026) wil ik graag in het veld:
2601
bij voorbaat dank!

 

[xps351]

Ongetest:

Veld = Format(Date(), "yymm")

 

[jbusser]

Soms is het leven zo eenvoudig!
Dank je wel Peter

(had zelf de volgende bedacht, veel omslachtiger)
Dim ThisMonth As Date
ThisMonth = Date
NieuwNummer = Right(Year(ThisMonth), 2) & Format(Month(ThisMonth), "00")

Dus ik gebruik lekker die van jou!

 

[OctaFish]

Je hoeft de code helemaal niet te gebruiken, want waarom zou je dat doen? Je hébt vermoedelijk de datum al, dus je kunt die waarde altijd middels een query of tekstveld met formule opvragen. Nergens voor nodigen dat via VBA (en ook nog eens een knop) te doen, gewoon de Format formule in een queryveld zetten, en je hebt hem. De datum heb je, neem ik aan, uiteraard al in je tabel opgeslagen. Dus jengelt alleen bezig met dubbele informatie op te slaan.