Format dato til at finde bestemt dato

Du bør ikke ændre fakturadatoen, den er jo en betydende faktor til posten.

I stedet kan du i en forespørgsel anvende funktionen DateAdd, som lægger et bestemt antal dage til en anden dato. Denne f.eks. lægger 30 dage til feltet fakturadato:

Udtryk1: DateAdd("d";30;[fakturadato])

Jeg har læst, at du vil have sidste dag i fakturadato + 10 dage. Der findes en funktion der finder den sidste dato indenfor aktuel måed. Den er i VBA, om den findes i SQL er jeg ikke klar over. Jeg prøver lige at finde noget om det.

DateAdd("d";30;[fakturadato]), kan jeg desværre ikke bruge, da den bare tilføjer 30 dage til fakturadatoen. Jeg bruger bruge funktionen i VBA.

http://www.mvps.org/access/datetime/date0007.htm

http://www.aspenres.com/Documents/AspenGraphics4.0/LastOfMonth().htm

http://www.eksperten.dk/spm/848579

http://database.ittoolbox.com/groups/technical-functional/access-l/produce-end-of-month-date-274834

Tak for hjælpen mugs

Selv tak - Og tak for point. Hvad brugte du?

Nå - Jeg ser nu, at du endnu ikke har fået det løst.

Den havde gemt sig godt, indsæt denne i et modul og overfør feltet fakturadato fra formularen:

Function LastOfMonth(fakturadato)
LastOfMonth = DateSerial(Year(fakturadato), Month(fakturadato) + 1, 1) + 9
MsgBox LastOfMonth
End Function

Funktionen skal jo nok sende resultatet til et felt i en formular. Her sendes resultatet til feltet Tekst5 i formularen frm1. funktionen modtager variablen falturadato fra formularen:

Function payday(fakturadato)
Dim ctl As Control
payday = DateSerial(Year(fakturadato), Month(fakturadato) + 1, 1) + 9
MsgBox payday
Set ctl = Forms![frm1].Controls![Tekst5]
ctl = payday
End Function

Kald funktionen med denne, der sender variablen fakturadato til funktionen:

Private Sub fakturadato_BeforeUpdate(Cancel As Integer)
payday fakturadato
End Sub