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/
以上ですが、宜しくお願いします。
