Få dato til at hoppe frem til den næste måned

du lægger bare månedens længde til. Snuppet fra immediate vinduet:

d1=cvdate("01/08-2011")
?d1+array(31,28-(((year(d1) mod 4)=0) and ((year(d1) mod 100)<>0))-((year(d1)mod 400)=0),31,30,31,30,31,31,30,31,30,31)(month(d1)-1)
01-09-2000

hmm er lidt grøn så må ærligt indrømme det ikke siger mig meget :)

Du kan benytte en lille funktion:
(smid nedenstående ind i et modul)

Funktionen kan du kalde fra din formular ved at skrive kaldet i Kontrolelementkilde/Control Source, f.eks.:
  =FindNæsteFørste(Me.DitFelt,1)

----

'Test: Placer cursoren i testrutinen og tryk F5
Private Sub Test_NæsteFørste()
  Debug.Print FindNæsteFørste(Date, 1)
  Debug.Print FindNæsteFørste(Date, 2)
  Debug.Print FindNæsteFørste(Date, 3)
End Sub

Function FindNæsteFørste(Dato As Date, n As Integer) As Date
  Dim d As Date
  d = DateAdd("m", n, Dato)
  FindNæsteFørste = DateValue("01-" & Month(d) & "-" & Year(d))
End Function

kigger på det i morgen kan ikke lige se hoved eller røv i det lige nu

Hvis du ved at den dato du har tastet ind altid er den 1. i måneden så er der ingen grund til at gøre det så besværligt.
Access har en indbygget funktion der hedder DateAdd

DateAdd("m", 1, "1-5-2011") giver således 1-6-2011 som resultat

På dine felter på formen burde du således kunne skrive
= DateAdd("m"; 1; [NavnetPåDitInputFelt])
= DateAdd("m"; 2; [NavnetPåDitInputFelt])
= DateAdd("m"; 3; [NavnetPåDitInputFelt])
for at få lagt 1, 2 eller 3 måneder til din indtastning.

Hej hugo hvor er det lige jeg skal skrive det er det i kontrolelement eller ?

Ja

hej Hugo
læg et svar det spiller bare ;)

OK - det var godt