ms-access - MS Access 2003/2007 VBA - レコードセットから日付フィールドを取得し、dd-MMM-yyyy 形式を文字列にするにはどうすればよいですか?

Question

DAOを使用してデータを取得するVBがあり、1つのフィールドは日付フィールドです（トランザクションの日付のように）。日付/時刻ではなく、単に dd/mm/yyyy のような日付です。

アクセスフォームでは、これを行う方法を知っていますが、現在、Excel/ppt の自動化に取り組んでいます。この単純な例のDAO SQL文字列、openrecordsetのようなものを使用してデータを取得します。

したがって、問題のデータは単に rs!Date であるとしましょう。

次のようにパワーポイントに移動します。

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

     oTextRange.Text = rs!Date

今、私はあらゆる種類のものを除外していますが、これは、レコードセットに既にあるこの日付を ppt pres に転送する部分であり、この形式でのみ問題ありません

dd/mm/yyyy

これを簡単に取得する方法を知りたいだけです

"dd-MMM-yyyy"

私の希望する出力文字列として。

ありがとうジャスティン

score 3 · Accepted Answer

多分：

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

Date は予約語であるため、フィールド名を角かっこで囲みました。しかし、この場合、それは何の違いもないと思います。ただし、フィールド、テーブル、およびその他のオブジェクト名には予約語を使用しないようにしてください。

score 1 · Accepted Answer

機能を使用してくださいFormat。

デバッグウィンドウでこれを試してくださいMsgbox Format (Now(), "dd-MMM'YYYY")。

score 1 · Accepted Answer

わかりましたので、私が自分の質問に答えるのはこれが初めてです。

他の誰かが知りたい場合に備えて、私が何をしたかを示すと思います

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

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

それだけでした。自分自身を理解するのは簡単でした。

編集：おっと....申し訳ありませんが、これを投稿したときに他の回答がありませんでした!

3 に答える 3