DLookUp関数を使ったACCESSの令和表示2
[やりたいこと]
同じテキストボックスで「西暦」と「曜日」をマウスのクリック動作で変更表示させ、、「和暦(令和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/
以上ですが、宜しくお願いします。