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)
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
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
