Microsoft Access 掲示板

日付入力時、西暦/和暦を選択できるようにする / 3

6 コメント
views
4 フォロー
3
hiroton 2020/11/07 (土) 08:26:45 e2316@f966d

単票フォームですよね?

TextBox.Text property (Access)

入力中の文字列はTextプロパティで参照できるので1文字目が数字かそうでないかで書式を変更すればいいかな?

Private Sub 日付_AfterUpdate()
    With Me.日付
    If IsNumeric(Left(.Text, 1)) Then
        .Format = "yyyy年m月"
    Else
        .Format = "ge年m月"
    End If
    End With
End Sub
通報 ...
  • 5
    亞紀姐 2020/11/09 (月) 11:23:02 3a4ba@2da9b >> 3

    hirotonさん>
    ありがとうございます!
    希望通りの挙動になりました。
    助かりました。

    また何かありましたらどうぞよろしくお願いします。
    ありがとうございました。