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

解決済みの質問

Access2007で令和表示

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

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

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

投稿日時 - 2019-05-24 15:25:19

QNo.9619615

困ってます

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

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

投稿日時 - 2019-05-26 07:56:36

お礼

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

投稿日時 - 2019-05-27 14:18:34

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

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

回答(5)

ANo.4

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

投稿日時 - 2019-05-26 07:42:05

お礼

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

投稿日時 - 2019-05-27 14:19:14

ANo.3

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

投稿日時 - 2019-05-25 23:40:41

補足

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

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



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

(1)コントロールソースの記述

=Date()

(2)イベントのクリック時の記述

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()

宜しくお願いします。

投稿日時 - 2019-05-26 05:40:09

お礼

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

投稿日時 - 2019-05-27 14:20:11

ANo.2

Windows10 の Update できていたら
format(date,"gggeemmdd")

令和010525
と表示されます

投稿日時 - 2019-05-25 09:33:03

補足

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

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



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

(1)コントロールソースの記述

=Date()

(2)イベントのクリック時の記述

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()

宜しくお願いします。

投稿日時 - 2019-05-26 05:40:31

お礼

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

投稿日時 - 2019-05-27 14:13:27

ANo.1

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

投稿日時 - 2019-05-24 16:15:04

お礼

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

投稿日時 - 2019-05-26 05:41:06

あなたにオススメの質問