MS Access2003/2007VBA-我怎么可以采取的一个新领域，从记录集和串dd-嗯-yyyy格式？

Question

我有一些VB使用的道以抓住一些数据，一个领域是一个新领域(如中期的一个事务)。它不是日期/时间，只是简单的日期如日/月/年.

因此在访问的形式，我知道如何做到这一点，但是现在我工作的一些excel/ppt自动化。我用这样简单的例子岛sql串，openrecordset获得的数据。

所以可以说，问题的数据只是rs!日期。

我把它移到powerpoint像这样：

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

     oTextRange.Text = rs!Date

现在我要离开了各种各样的东西，但这是部分转让这个日期，我已经有记录集中到ppt pres只是罚款，只有在这种格式

dd/mm/yyyy

我真的只是想知道如何简单地得到这个

"dd-MMM-yyyy"

因为我期望输出的串。

感谢 贾斯汀

Answer 1

也许：

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

我封闭领域的名字在方括号中，因为日期是一个保留词。但我认为这不应有任何区别，在这种情况。然而，尽量避免保留的话对你的领域，表和其他对象的姓名。

Answer 2

使用 Format 功能。

在调试窗口中尝试一下 Msgbox Format (Now(), "dd-MMM'YYYY").

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

Answer 3

好的，所以这是我第一次回答自己的问题，所以如果我不应该这样做。

我认为我会展示我所做的，而不是其他任何人都想知道的

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

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

就是这样。我很容易弄清楚自己。

编辑：糟糕....对不起，当我发布此信息时，没有其他答案！