[Access] Default value datum op eerste donderdag

[Gangkast]

Ik ben nu bezig met een database aan het bouwen voor een klantenbestand.
Iedere donderdag gaan er direct-mail brieven de deur uit. Deze adressen worden op verschillende dagen in de week ingevoerd. Nu wil ik de datum van versturen als standaardwaarde op donderdag zetten. Hiervoor had ik het volgende opgesteld:

=DateAdd("d";5-Weekday(Date());(Date()))

Dit werkt perfect op de maandag t/m zondag, maar op vrijdag en zaterdag doet hij het niet(datum van donderdag ervoor).

Heeft een van jullie een suggestie, want ik kom er verder niet meer uit

[Boss]

Je kan toch ook de nieuwsbrieven versturen naar alle adressen waar de datum nog niet bekend is, of is ingesteld op 'de vorige donderdag'?

Anders is het misschien het makkelijkste om gewoon in VBA een functie te schrijven, en die als default waarde opgeven.