Access 2010 Datenbank. Objekt Me!txt_erfuellungsdatum, Datum erhöhen

Computer: Software & Programmierung Microsoft Access
#1

Hallo,
Ich komm einfach nicht weiter… hoffe ihr könnt mir helfen
Ich müsste ein Objekt TypeText Me!txt_erfuellungsdatum welches einen Wert über ein Formular bekommt. Zum bsp den 17.06.2013 wurde eingetragen, dann müsste aber der
17.06.2015 an das Word Dokument übergeben werden, mein Problem ist das ich nicht weiß wie ich das datum um 2 Jahre erhöhen kann.
hier mal ein ausschnitt aus meinem Code:

Dim rs As DAO.Recordset
Dim qd As DAO.QueryDef

Set qd= CurrentDB.QueryDefs(„qry_produkt“)
qd(0)= Me!txt_pnr
Set rs = qd.OpenRecordset(dbOpenDynaset)

Dim datum As Variant

datum= Me!txt_erfuellungsdatum
Whit doc.Selection
GoToBookmark, , , „name“
.TypeText Me!txt_vorname & " " & Me!txt_pname

GoToBookmark, , , „datum“
.TypeText Me!txt_erfuellungsdatum ’ jetzt müsste es +2

Do While Not rs.EOF
…
qd.Close:Set qd =Nothing
rs.Close:Set qd =Nothing
…

Ich hoffe ihr könnt mir weiterhelfen sollten noch infos fehlen dann einfach fragen :smiley:
Vielen dank im vorraus und bis bald

Mfg Andreas

#2

Hallo,

dafür gibt es die Dateadd-Funktion…

Gruß
Franz, DF6GL

#3

Hallo,
vielen dank für deine schnelle antwort,
ahh okay das sieht ja gut aus, aber ich bin noch sehr unerfahren in der Programmierung
Wenn ich das Datum in einer variable hätte wüsste ich glaube ich wie es mit adddate -funktion klappen würde aber ich habe probleme mit dem ausdruck : Me!txt_erfuellungsdatum, wie soll ich das jetzt mit adddate verknüpfen?
hoffe du kannst mir nochmal weiterhelfen, vielen dank und bis später

#4

Hi ich nochmal :smiley:

ich hab es jetzt hinbekommen das datum um zwei jahre zu erhöhen…

Dim IntervallTyp As String
Dim test As Variant
test = Me!txt_erfuellungsdatum
MsgBox „“ & test
IntervallTyp = „yyyy“ ’ „y“ gibt Jahre in Intervall an
test = DateAdd(IntervallTyp, 2, test)
MsgBox „“ & test

jetzt weiß ich aber nicht wie ich die variable test auf mein word doc bekomme, siehe code ersten post. hoffe ihr könnt mir weiterhelfen, ich probier mein glück solang weiter, bis dann und vielen dank im vorraus

Mfg
Andreas

#5

Hallo,

na, einfach so:

’
’
.TypeText DateAdd(„yyyy“,Me!txt_erfuellungsdatum ,2)

Evtl:

.TypeText Format(DateAdd(„yyyy“,Me!txt_erfuellungsdatum ,2),„dd.mm.yyyy“)
’

Gruß
DF6GL, Franz

#6

Ahh okay danke dir super hat alles geklappt, habs zwar mit einer zwischen variable getan aber sein zweck erfuelt es alle male :d

Vielen dank und bis zum nächsten mal

Mfg

Andreas