accessフォームで和暦と西暦を切り替えたい

Question

accessのテキストボックスについて質問です。

単票フォームで社員の個人情報を表示させています。
生年月日や入社年月日など日付を入れることが多いです。
今は西暦で表示しているのですが、書類作成時入社年月日を記入しなくてはならずその書式が和暦だと
いちいち調べに行かなくてはいけません。

できればフォーム内で日付の表示を切り替えたいのですがこういったことはできるのでしょうか？

私が実装してみたのは、日付が書いているテキストボックスの下に非連結のテキストボックスを配置し
非連結のテキストボックスのコントロールソースに

=DLookUp("和暦","和暦変換表","開始日 <=[入社年月日] and 終了日 >= [入社年月日]")

このような関数を入れ表示させました。

しかしフォーム内のすべての日付にこれをすると見栄えが悪くとても見づらいです。

そのためフォーム内で「日付変換」のようなコマンドボタンがありそれを押すと西暦から和暦、和暦から西暦のように簡単に切り替えられたら
とても使いやすいものになると考えました。

もしこのようなことができるのなら方法や、類似サイトなど教えて頂ければ幸いです。
またこのようなことでなくてもいいアイデアなどありましたら是非教えて

Answer 1

フィールドのデータ型が日付/時刻型なら、
入力時に、西暦でも和暦で入力することも可能です。

例えば、今日の日付なら、

2021/2/18
R03/2/18
令和3年2月18日

などと入力できます。日付と解釈できるものなら、たいてい入力可能です。

表示書式も「書式」プロパティで西暦でも和暦でもお好みに設定できます。

日付と時刻のフィールドの書式を設定する - Access

Comments

[jennieruby]

回答ありがとうございます。
hatena様の回答だと表示の変更をするときはデザインビューにはいりプロパティから変更することになるのでしょうか？

[hatena19]

設計時の話でしょうか。ならば、そうなりますね。

運用時にユーザーが好みで変更できるようにする場合は、VBAで日付のテキストボックスの書式を変更するようにします。チェックボックスかとトグルボタンのクリック時に設定するといいでしょう。