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

解決済みの質問

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

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

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

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

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

[やりたいこと(可能ならIIが希望)]
I,1(西暦)と2(和暦)をひとつのテキストボックスで表示させたい。例えば、テキストボックスをクリックする度に表示が変えられる。曜日は別のテキストボックスで表示させる。
 
II,1(西暦)と2(和暦)と3(曜日)をひとつのテキストボックスで表示させたい。例えば、テキストボックスをクリックする度に表示がループ式に変えられる。

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

投稿日時 - 2017-01-07 08:25:30

QNo.9277990

困ってます

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

No.1 です。

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

投稿日時 - 2017-01-08 17:28:15

補足

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

投稿日時 - 2017-01-09 15:17:15

お礼

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

投稿日時 - 2017-01-11 18:46:24

ANo.2

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

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

回答(3)

ANo.3

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

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

投稿日時 - 2017-01-11 00:00:42

お礼

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

投稿日時 - 2017-01-12 12:28:28

ANo.1

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

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

投稿日時 - 2017-01-07 17:51:29

補足

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

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

投稿日時 - 2017-01-07 21:21:03

あなたにオススメの質問