DLookUp関数を使ったACCESSの令和表示２

質問

［やりたいこと］
同じテキストボックスで「西暦」と「曜日」をマウスのクリック動作で変更表示させ、、「和暦（令和02年）」は別テキストボックスで関数を使って表示させたい。
「=DLookUp("和暦","T_和暦マスタ","開始年月日<= #"&txt日付&"#and 終了年月日>=#"&txt日付&"#")」使って表示させたい。

［やってみたこと］
・既存テキストボックスの名前変更：名前「txt日付」
・テキストボックスの追加：名前「txt和暦日付」
・データタブ：コントロールソース
　「=DLookUp("和暦","T_和暦マスタ","開始年月日<= #"&txt日付&"#and 終了年月日>=#"&txt日付&"#")」※参照先はテーブル「T_和暦マスタ」

「結果」追加のテキストボックスに令和表示「令和02年」はされますが、既存テキストボックスが「西暦」に固定されクリックしても曜日の表示もできません。

［現在の設定］
・テキストボックス：（名前：年月日曜日）コントロールソース「=Date()」
・イベントのクリック時に「以下の記述」を設定

Private Sub テキスト11_Click()
With Me.ActiveControl
Select Case .Tag
Case 1
.Tag = 2
.Format = "gggee\年mm\月dd\日"
Case 2
.Tag = 3
.Format = "aaaa"
Case Else
.Tag = 1
.Format = "yyyy/mm/dd"
End Select
End With
End Sub

［補足情報］
［令和対応紹介 ウェブサイト］
新元号は「令和」|マイクロソフトのパッチに頼らずにAccessで新元号を表示する方法
https://www.ait-labo.com/excel_access/2805/

以上ですが、宜しくお願いします。

回答No.1

kkkkkm · ベストアンサー

グッドアイデアですね。テストしたらちゃんと動作しました。
動かないとしたらテキスト11がtxt日付か年月日曜日じゃないのかなと思うくらいです。

お礼

ありがとうございます。Private Sub テキスト11_Click()の「テキスト11」をtxt日付に変更するのを忘れていました。お恥ずかしい限りです。アドバイスありがとうございました。