Microsoft Access 掲示板

しばらく待てば、アップデイトで書式設定でも新元号に対応してくれるはずです。
ＯＳやOfficeのバージョンでは対応済みのものもあるようです。

まだ、対応済みでない場合は、それまでの、一時的な回避策として式で設定することになりますね。

申請日: Switch(テーブル名.申請日>=#2020/01/01#, "令和" & Year(テーブル名.申請日)-2018 & Format(テーブル名.申請日,"年m日d日"),テーブル名.申請日>=#2019/05/01#,Format(テーブル名.申請日,"令和元年m日d日"),True,Format(テーブル名.申請日,"ggge年m日d日"))

hatenaさまありがとうございます。早く令和のgggeに
代わるものが出されればいいのですが。
それまではhatena様の回避策を活用させていただきます。
ありがとうございました。

私のところやアドバイザー先でもまだ、未対応のようです。
しかたがないので、あちこち式で修正しています。
修正箇所が大量にあるので大変です。

hatena様この度はありがとうございました。
やっと書式設定で令和が対応できるようになりました。
ただ下記関数で求めたものが対応できないので
ご教示いただいた式で対応することとしました。
ありがとうございました。

Public Function 許可日(申請日 As Variant) As Variant
    Dim 営業日 As Long
    許可日 = 申請日
    If IsNull(許可日) Then Exit Function
    Do
        許可日 = 許可日 + 1
        Select Case Weekday(許可日)
        Case vbMonday To vbFriday
            If IsNull(DLookup("祝日名", "T_祝日", "日付=#" & 許可日 & "#")) Then
                営業日 = 営業日 + 1
            End If
        End Select
    Loop Until 営業日 = 2
End Function

クエリーで　出来上日:許可日(申請日)
　　　　　　出来日　: Switch([出来上日]>=#2020/01/01#,"令和" & Year([出来上日])-2018 &
                      Format([出来上日],"\年m\日d\日"),[申請日]>=#2019/05/01#,Format([出来上日],"""令和 1年""
                      m\日d\日"),True,Format([出来上日],"ggge\年m\日d\日"))

できる限り共通項は外に出したいなぁなどと

Format([日付],IIf([日付]>=#2019/05/01#,"令和" & IIf(Year([日付])=2018,"元",Year([日付])-2018),"ggge") & "年m月d日")

先日（2019/5/15）WindowsUpdateが入ってうちのも令和表示されるようになりました。
どうも元年対応は自前でやったほうがよさそうなので

Format([日付],"ggg" & IIf(Format([日付],"e")=1,"元","e") & "年m月d日")
Format([日付],IIf(Format([日付],"e")=1,"ggg元年m月d日","ggge年m月d日"))

このくらいだと無理に分解しない（下段の）ほうが読みやすそう