MS Access 2003/2007 VBA - Come posso fare un campo data da un set di record e la stringa di formato gg-MMM-yyyy?

Question

ho qualche VB che utilizza DAO per acchiappare i dati, un campo di essere un campo di data (come data di una transazione in). la sua non è data / ora, semplicemente data come gg / mm / aaaa.

così via una forma di accesso so come fare questo, ma in questo momento sto lavorando su alcuni automazione di Excel / ppt. io uso qualcosa di simile a questo semplice stringa SQL ad esempio DAO, OpenRecordset per ottenere i dati.

Quindi, diciamo i dati in questione è solo rs! Data.

Mi muovo a powerpoint in questo modo:

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

     oTextRange.Text = rs!Date

ora lascio tutti i tipi di roba, ma questa è la parte che i trasferimenti tale data che ho già nel set di record, al pres ppt bene, solo in questo formato

dd/mm/yyyy

E vorrei davvero come per sapere come ottenere semplicemente questo

"dd-MMM-yyyy"

come la mia stringa di output desiderato.

grazie justin

Answer 1

Forse:

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

I racchiuso il nome del campo tra parentesi quadre, perché data è una parola riservata. Ma io non credo che dovrebbe fare alcuna differenza in questo caso. Tuttavia, cercare di evitare parole riservate per il vostro campo, tavolo, e nomi degli altri oggetti.

Answer 2

Utilizzare la funzione Format.

Prova questo nella finestra di debug Msgbox Format (Now(), "dd-MMM'YYYY").

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

Answer 3

Ok, quindi questa è la prima volta che sto sempre rispondendo alla mia domanda, quindi se io non dovrei fare questo .... scuse.

I Figura vorrei mostrare quello che ho fatto in caso qualcuno vuole altro per conoscere

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

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

e che è stato. è stato abbastanza facile per me da capire me stesso.

EDIT: Ops .... scusate non ha avuto altre risposte quando ho postato questo