MS Access 2003/2007 VBA - Comment puis-je prendre un champ de date à partir d'une chaîne d'enregistrements et le format dd-MMM-aaaa?

Question

i ai de VB qui utilise DAO pour saisir des données, un champ étant un champ de date (comme dans la date d'une transaction). sa non date / heure, tout simplement comme la date jj / mm / aaaa.

ainsi de suite une forme d'accès, je sais comment faire, mais en ce moment je travaille sur une automatisation Excel / ppt. j'utiliser quelque chose comme ce simple exemple OAC chaîne SQL, OpenRecordset pour obtenir les données.

permet de dire que les données en question est juste rs! La date.

Je déménage à powerpoint comme ceci:

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

     oTextRange.Text = rs!Date

maintenant je pars toutes sortes de choses, mais cela est la partie qui transfère cette date que je l'ai déjà dans le recordset, sur les ppt pres très bien, seulement dans ce format

dd/mm/yyyy

et je voudrais vraiment juste savoir comment obtenir simplement ce

"dd-MMM-yyyy"

comme ma chaîne de sortie désirée.

Merci justin

Answer 1

Peut-être:

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

Je joint le nom du champ entre crochets parce que la date est un mot réservé. Mais je ne pense pas qu'il devrait faire une différence dans ce cas. , Essayez néanmoins d'éviter les mots réservés pour votre champ, table, et d'autres noms d'objets.

Answer 2

Utilisation de la fonction Format.

Essayez ceci dans la fenêtre de débogage Msgbox Format (Now(), "dd-MMM'YYYY").

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

Answer 3

Ok, donc c'est la première fois que je suis toujours répondre à ma propre question, donc si je ne suis pas censé le faire .... excuses.

je me dis que je montrerais ce que je faisais quelqu'un d'autre Incase veut savoir

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

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

et était-ce. il était assez facile pour moi de comprendre moi-même.

EDIT: Oops .... désolé n'a pas eu d'autres réponses quand je posté