Access2007で令和表示

質問

Access2007を使用していますが、令和の表示は可能でしょうか。

ＯＳはwindows10pro　バージョンは1809　でございます。
アプリはAccess2007Professonal　でございます。

以上ですが、よろしくお願いいたします。

回答No.5

chayamati · ベストアンサー

VBAを生かすなら
.Format = "gggee\年mm\月dd\日" この部分です
確認していませんが
★.Format = "令和元年" & mm\月dd\日"

お礼

データベースの分類項目が約４０以上ありまして、項目ごとのフォームが２００以上になります。従いまして、一部のフォームのみ変更することにしました。スタートフォームとパスワードフォームのみ「西暦・和暦・月日」の個別テキストで作成していましたので、書式欄に記載の「gggee\年」記述に対して、アドバイスの「"令和元年"」に変更させて頂きました。来年は「"令和2年"」にいたします。ありがとうございました。

回答No.4

chayamati

フォームまたはレポートをデザインモードで開いて、
日付のボックのプロパティーで書式を記述します。
VBAはいりません,text25をクリックしない

お礼

アドバイスありがとうございました。

回答No.3

chayamati

癪でしょうが新ヴァージョンに切り替えるしかないでしょう
当面
今年："令和元年"mm\月dd\日
来年："令和2年"mm\月dd\日

お礼

アドバイスありがとうございました。

補足

ご面倒をお掛けしております。実は、以下の使い方をしております。どこをどの様に変更すれば宜しいでしょうか。どうか、教えて頂けませんでしょうか。

一つは、フォームに長めのテキスト窓を作って、コントロールソースへの記述とイベントの「クリック時」の記述を施し、和暦と西暦をクリック操作で切り替え表示させ、もう一つは、フォームに短めのテキスト窓を作って、和暦のみを表示させて使っています。

I、西暦と和暦をクリック動作で表示させる。

（１）コントロールソースの記述

=Date()

（２）イベントのクリック時の記述

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

II、和暦を表示させる。

（書式）gggee\年

（データ）=Date()

宜しくお願いします。

回答No.2

ricman

Windows10 の　Update　できていたら
format(date,"gggeemmdd")
で
令和010525
と表示されます

お礼

アドバイスを頂きましてありがとうございました。

補足

ご面倒をお掛けしております。実は、以下の使い方をしております。どこをどの様に変更すれば宜しいでしょうか。どうか、教えて頂けませんでしょうか。

一つは、フォームに長めのテキスト窓を作って、コントロールソースへの記述とイベントの「クリック時」の記述を施し、和暦と西暦をクリック操作で切り替え表示させ、もう一つは、フォームに短めのテキスト窓を作って、和暦のみを表示させて使っています。

I、西暦と和暦をクリック動作で表示させる。

（１）コントロールソースの記述

=Date()

（２）イベントのクリック時の記述

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

II、和暦を表示させる。

（書式）gggee\年

（データ）=Date()

宜しくお願いします。

回答No.1

Ohjo-Koita

Office2007（Access2007も含みます）は、2017年10月10日を以ってサポートが終了しています。よって、令和対応のパッチ（KB4469068）も対応されません。ご自身でプログラム（VBやマクロ）を作らない限り、表示は不可能と言う事になります。

お礼

アドバイス頂きまして本当にありがとうございました。