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
通報 ...
hirotonさん>
ありがとうございます!
希望通りの挙動になりました。
助かりました。
また何かありましたらどうぞよろしくお願いします。
ありがとうございました。