MS Access 2003/2007 VBA - Wie kann ich ein Datumsfeld aus einem Re-Cord und Zeichenfolge des dd-MMM-yyyy-Format?

Question

Ich habe einige VB dass Verwendungen DAO einige Daten zu packen, ein Feld ein Datumsfeld zu sein (wie im Zeitpunkt einer Transaktion). seine nicht Datum / Zeit, einfach nur Datum wie tt / mm / jjjj.

so auf einer Zugangsform ich weiß, wie dies zu tun, aber im Moment arbeite ich auf einige excel / ppt Automatisierung. Ich benutze so etwas wie diese einfache Beispiel DAO SQL-Zeichenfolge, OpenRecordset die Daten zu erhalten.

So kann sagen, die in Frage stehenden Daten sind nur rs! Datum.

Ich bewege es zu Powerpoint wie folgt:

Set oShape = oSlide.Shapes("S1_Date")
Set oTextRange = oShape.textFrame.TextRange

     oTextRange.Text = rs!Date

Jetzt verlasse ich alle möglichen Dinge, aber das ist der Teil, dass Transfers dieses Datum, dass ich schon in dem Re-Cord haben, auf den ppt pres ganz gut, nur in diesem Format

dd/mm/yyyy

, und ich würde wirklich wie wissen, wie einfach diese bekommen

"dd-MMM-yyyy"

als mein gewünschten Ausgabe-String.

Dank justin

Answer 1

Vielleicht:

oTextRange.Text = Format(rs![Date], "dd-MMM-yyyy")

ich eingeschlossen die Feldnamen in eckigen Klammern, weil Datum ein reserviertes Wort ist. Aber ich glaube nicht, dass es in diesem Fall keinen Unterschied machen sollte. Trotzdem versuchen reservierte Wörter für Ihren Bereich, Tabellen- und andere Objektnamen zu vermeiden.

Answer 2

Verwenden Sie die Format Funktion.

Versuchen Sie dies im Debug-Fenster Msgbox Format (Now(), "dd-MMM'YYYY").

http://office.microsoft.com /en-ca/access-help/format-function-HA001228839.aspx

Answer 3

Ok, so ist dies das erste Mal, dass ich meine eigene Frage zu beantworten bin, also wenn sollte mich nicht, dies zu tun .... Entschuldigungen.

Ich denke, ich würde zeigen, was ich Incase jemand anderes will tat

wissen

Set oShape = oSlide.Shapes("S1_Date")
Set oTextRange = oShape.TextFrame.TextRange

     oTextRange.Text = Format(rs!Date, "dd-MMM-yyyy")

und das war es. es war leicht genug für mich, um herauszufinden, mich selbst.

EDIT: Oops .... sorry hatte keine andere Antworten, wenn ich dieses geschrieben