Datum automatisch aanpassen

[The_Lion]

Ik wil een database hebben, dat als ik in het ene kolom een datum invul, dat er in de kolom ernaast automatisch een datum komt te staan van 2 jaar later.

Voorbeeld: ik vul in kolom 1 in : 25-02-2005
dan moet er in kolom 2 automatisch: 25-02-2007 komen te staan, dus elke keer 2 jaar erbij

Wie kan mij hiermee helpen.

BvD.

 

[evdbrink]

Private Sub Aanvraagdatum_Change()

If IsNull(Aanvraagdatum) Then
Aanvraagdatum = Date+720
End If
End Sub

 

[Japsur]

Geplaatst door evdbrink
Private Sub Aanvraagdatum_Change()

If IsNull(Aanvraagdatum) Then
Aanvraagdatum = Date+720
End If
End Sub

Maak er eerst 730 van! > 2x 365 = 730. Maar er moet wel een schrikkeljaar in verwerkt zijn, dus 730,25!

 

[Bartuls]

Ook dat is niet goed, want dan gaat het fout bij schrikkeljaren.

Gebruik de volgende code om een functie te maken die 2 jaar bij de aangeboden datum opteld en roep vervolgens deze functie aan op de plek waar je hem nodig hebt.

Public function fnDatePlusTwoYear(mDate as date) as Date
If IsNull(mDate) Then
fnDatePlusTwoYear = NULL
exit function
end if

if not isdate(mdate) then
fnDatePlusTwoYear = NULL
exit function
end if

fnDatePlusTwoYear= dateadd("yyyy",2,mdate)
End If
End function

 

[The_Lion]

Waar moet ik deze code invullen dan?

De eerste tabel waar je een gewone datum intypt heet: Datum Inspectie
De tweede tabel waar het automatisch moet komen te staan met 2 jaar erbij opgeteld heet: Volgende PI

Waar en hoe moet ik dit allemaal invullen?

Gr.

 

[The_Lion]

Ik denk eerlijk gezegd dat jullie het anders begrijpen.

Want het is misschien gewoon een eenvoudige code.

Want het enige wat er moet gebeuren, is in de kolom ernaast, 2 jaartallen erbij doen.

Dus de ene kolom heet "Datum Inspectie"
En die andere kolom heet "Volgende PI"

Voorbeeld:
Ik vul bij de kolom "Datum Inspectie" 13-02-2005, in
Dan wil ik dat er in de kolom "Volgende PI" automatisch 2 jaar erbij komt, dus dan moet er in de kolom "volgende PI" 13-02-2007 komen te staan.

Alvast bedankt.
M.v.G.