MS Access 2003/2007 VBA - ¿Cómo puedo tener un campo de fecha a partir de un formato dd-mmm-aaaa conjunto de registros y la cadena?

Question

tengo un poco de VB que utiliza DAO para agarrar algunos datos, siendo un campo de un campo de fecha (como la fecha de la transacción en). no es de fecha / hora, simplemente como fecha dd / mm / aaaa.

así sucesivamente una forma de acceso sé cómo hacer esto, pero en este momento estoy trabajando en algo de automatización de Excel / PPT. yo uso algo como esta simple cadena SQL ejemplo DAO, openrecordset para obtener los datos.

Así que digamos que los datos en cuestión es sólo rs! Fecha.

lo muevo a PowerPoint, así:

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

     oTextRange.Text = rs!Date

Ahora estoy dejando de lado todo tipo de cosas, pero esta es la parte que transfiere esta fecha que ya tengo en el conjunto de registros, a los pres ppt muy bien, sólo en este formato

dd/mm/yyyy

Y me gustaría realmente como para saber cómo conseguir simplemente esta

"dd-MMM-yyyy"

como mi cadena de salida deseada.

Gracias Justin

Answer 1

Tal vez:

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

I delimitada el nombre del campo entre corchetes porque la fecha es una palabra reservada. Pero no creo que se debe hacer ninguna diferencia en este caso. Sin embargo, tratar de evitar las palabras reservadas para su campo, tabla, y otros nombres de objeto.

Answer 2

Utilice la función Format.

Probar en el Msgbox Format (Now(), "dd-MMM'YYYY") ventana de depuración.

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

Answer 3

La autorización así que esta es la primera vez que estoy respondiendo a mi propia pregunta, así que si yo no tengo que hacer esto .... disculpas.

Calculo que mostraría lo que hice en caso que alguien quiere más lo sepa

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

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

y eso fue todo. era bastante fácil para mí de entender a mí mismo.

EDIT:! Vaya .... lo siento no tener otras respuestas cuando me envió este