年号表示を西暦と和暦のハイブリットにした

質問

フォーム上にテキストボックスを配して、西暦、和暦、曜日などを個別のテキストボックスで表示させています。これをひとつのテキストボックス又はふたつのテキストボックスで表示させたいと思っています。尚、テキストボックスは非連携「当日表示のみ」を前提とします。

［やっていること］
１，西暦表示は
テキストボックスのプロパティーで「コントロールソース」にて「式ビルダ」を起動させ、「関数」で「組み込み関数」を選び「日付/時刻」の「=Date()」を選択。

２，和暦表示は
上記「１」の操作後、プロパティーの書式タブの「書式」gggee\年mm\月dd\日をコピー＆ペーストしています。

３，曜日は
テキストボックスのプロパティーで「コントロールソース」で「式ビルダ」を起動させ、関数」で「組み込み関数」を選び「日付/時刻」の「=Date()」を選択。エディターで「=WeekdayName(Weekday(Date()))」を作成し「貼り付け」を選択する。

［やりたいこと（可能ならIIが希望）］
I，１（西暦）と２（和暦）をひとつのテキストボックスで表示させたい。例えば、テキストボックスをクリックする度に表示が変えられる。曜日は別のテキストボックスで表示させる。

II，１（西暦）と２（和暦）と３（曜日）をひとつのテキストボックスで表示させたい。例えば、テキストボックスをクリックする度に表示がループ式に変えられる。

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

回答No.2

m3_maki · ベストアンサー

No.1 です。

肝心なことが抜けていましたね。
テキストボックスのコントロールソースを「=Date()」にしてください。
ついでに タグ を「1」にしておけばベターです。

お礼

ありがとうございました。当方の勝手で引っ張ってしまって、ご返事が遅れてしまいました。問題なく動作しております。有難うございます。

補足

大変お手数をお掛けしております。早速、実施しましたところ希望通りに表示されました。折角教えて頂いているので、確り覚えたいと思います。アドバイスに「テキストボックスのコントロールソースを「=Date()」にしてください。（ついでに タグ を「1」）にしておけばベターです。」とありますが、タグ を「1」はどの様に設定すれば宜しいでしょうか。度々すいません。

回答No.3

m3_maki

「タグ」は、テキストボックスのプロパティの「その他」タブにあります。
そこに「1」と書いてください。
「タグ」プロパティはフォームやセクションなどにもありますので
設定場所を間違えないように。

一応、設定しなくてもそれなりに動くのですが
初期値がないと最初のクリックで １ になり yyyy/mm/dd で表示されます。
つまり１回目のクリックは無視されたようになってしまうのです。

お礼

ありがとうございます。手間の掛かる質問者で本当にすいませんでした。ご親切に対応頂きまして感謝いたしております。ありがとうございました。

回答No.1

m3_maki

Access のフォームでしょうか？

Private Sub テキスト1_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

こんな感じでは如何でしょうか。

補足

アドバイスを有難うございます。

早速、無地のフォームにテキストボックスを配して、テキストボックスのプロパティーで「イベント」タブの（クリック時）行の「コードビルダ」を選択。起動したエディターで教えて頂いた記述をペーストしたのですが、テキストボックスに何も表示されませんでした。どこか根本的に間違っている様な気がします。実際、コードビルダの利用では、コンボボックスの絞込検索でのrequeryや、コンボボックスの情報の消去記述程度の知識しかありません。ご面倒をお掛けしますが、間違いの個所のご指摘とアドバイスをお願いします。宜しくお願いします。