MS Access2003/2007VBA-我怎么可以采取的一个新领域,从记录集和串dd-嗯-yyyy格式?
-
29-09-2019 - |
题
我有一些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"
因为我期望输出的串。
感谢 贾斯汀
解决方案
也许:
oTextRange.Text = Format(rs![Date], "dd-MMM-yyyy")
我封闭领域的名字在方括号中,因为日期是一个保留词。但我认为这不应有任何区别,在这种情况。然而,尽量避免保留的话对你的领域,表和其他对象的姓名。
其他提示
使用 Format
功能。
在调试窗口中尝试一下 Msgbox Format (Now(), "dd-MMM'YYYY")
.
http://office.microsoft.com/en-ca/access-help/format-function-ha001228839.aspx
好的,所以这是我第一次回答自己的问题,所以如果我不应该这样做。
我认为我会展示我所做的,而不是其他任何人都想知道的
Set oShape = oSlide.Shapes("S1_Date")
Set oTextRange = oShape.TextFrame.TextRange
oTextRange.Text = Format(rs!Date, "dd-MMM-yyyy")
就是这样。我很容易弄清楚自己。
编辑:糟糕....对不起,当我发布此信息时,没有其他答案!
不隶属于 StackOverflow