プロが教えるわが家の防犯対策術!

テキストボックスに日付を入力したいのですが、今日と過去の日付はエラーは出ず、未来、将来の日付は入力したら、エラーメッセージが出るようにしたい。が出て、テキストボックスの日付はクリアになる様にしたいです。

よろしくお願いします

A 回答 (1件)

こんにちは!



テキストボックス → TextBox1 とします。
ごく簡単に・・・

 Dim myDate As Date
  myDate = DateValue(TextBox1)
   If myDate > Date Then
    MsgBox "日付が不正です!"
    TextBox1 = ""
   End If

こんな感じではどうでしょうか?m(_ _)m
    • good
    • 0
この回答へのお礼

助かりました

tom04さん
早々の回答ありがとうございました!
うまく出来ました。
助かりました。

お礼日時:2020/06/09 12:19

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています


このQ&Aを見た人がよく見るQ&A