datoberegning i formular

Jeg har ikke testet, det men det skulle virke:


Dim d as date
If me!chk1=true OR me!chk2=true OR me!chk3=true Then
  d = dateadd("m",3,date)
  If weekday(d,vbMonday)=6 then
    d = dateadd("d",2,d)
  End if
  If weekday(d,vbMonday)=7 then
    d = dateadd("d",1,d)
  End if
  Me!dato_ny_test=d
End if

du kan f.eks. køre det på checkboxenes EfterOpdatering / AfterUpdate hændelse.

Hvis der ikke kan testes i weekends, kan der så testes 2. Juledag eller Påskedag?

kanon! der skulle lige rettes til men i bund og grund virker det. :-)

takker for hjælpen

Det var så lidt. Held og lykke med det :-)