こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

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/

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

投稿日時 - 2020-01-26 11:17:48

QNo.9705754

困ってます

質問者が選んだベストアンサー

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

投稿日時 - 2020-01-26 12:21:56

お礼

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

投稿日時 - 2020-01-26 12:59:56

ANo.1

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問