Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
533 / 9994 ←次へ　｜　前へ→
【12772】Re:複数条件での抽出
回答  hatena  - 15/3/25(水) 16:04 -
引用なし
パスワード
   　　　　▼木葉 さん：
>試しに「13/32」と入力してみたのですが、「おかしな日付です」は出ずに、
>「このフィールドに入力した値は正しくありません」と出ます。

書式プロパティに日付の書式を設定すると、日付/時刻型のValueを持つテキストボックスと判断されるようです。

ですので日付以外のデータを入力するとエラーメッセージが表示されます。このエラーは更新前イベントより前に発生するので更新前イベントでは補足できません。が、フォームのエラー時のイベントで補足できます。

Private Sub Form_Error(DataErr As Integer, Response As Integer)
　　Msgbox "エラー番号は" & DataErr
　　Response = acDataErrContinue '既定のエラーメッセージを表示しない
End Sub

として日付以外のデータを入力すると「エラー番号は2113」と表示されます。
そこで下記のように書き換えれば希望のメッセージに変更できます。

Private Sub Form_Error(DataErr As Integer, Response As Integer)
　　If DataErr = 2113 Then
　　　　MsgBox "おかしな日付です。"
　　　　Response = acDataErrContinue '既定のエラーメッセージを表示しない
　　End If
End Sub
817 hits
▼ 【12728】複数条件での抽出 木葉 15/3/13(金) 15:40 質問[未読]
【12729】Re:複数条件での抽出 木葉 15/3/13(金) 17:10 発言[未読]
【12730】Re:複数条件での抽出 かるびの 15/3/14(土) 0:46 回答[未読]
【12732】Re:複数条件での抽出 木葉 15/3/16(月) 16:34 発言[未読]
【12736】Re:複数条件での抽出 木葉 15/3/17(火) 16:25 質問[未読]
【12739】Re:複数条件での抽出 かるびの 15/3/18(水) 1:15 回答[未読]
【12740】Re:複数条件での抽出 木葉 15/3/18(水) 9:56 発言[未読]
【12742】Re:複数条件での抽出 木葉 15/3/18(水) 14:02 質問[未読]
【12744】Re:複数条件での抽出 かるびの 15/3/19(木) 0:52 回答[未読]
【12745】Re:複数条件での抽出 木葉 15/3/19(木) 9:54 発言[未読]
【12746】Re:複数条件での抽出 木葉 15/3/19(木) 10:02 お礼[未読]
【12747】Re:複数条件での抽出 かるびの 15/3/21(土) 0:57 回答[未読]
【12752】Re:複数条件での抽出 木葉 15/3/23(月) 14:33 質問[未読]
【12755】Re:複数条件での抽出 かるびの 15/3/24(火) 3:28 回答[未読]
【12757】Re:複数条件での抽出 木葉 15/3/24(火) 11:14 発言[未読]
【12759】Re:複数条件での抽出 木葉 15/3/24(火) 16:00 質問[未読]
【12763】Re:複数条件での抽出 かるびの 15/3/25(水) 0:54 回答[未読]
【12767】Re:複数条件での抽出 木葉 15/3/25(水) 11:19 質問[未読]
【12768】Re:複数条件での抽出 木葉 15/3/25(水) 11:24 発言[未読]
【12771】Re:複数条件での抽出 木葉 15/3/25(水) 15:13 質問[未読]
【12772】Re:複数条件での抽出 hatena 15/3/25(水) 16:04 回答[未読]≪
【12774】Re:複数条件での抽出 木葉 15/3/25(水) 17:21 お礼[未読]
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
533 / 9994 ←次へ　｜　前へ→
ページ：  ┃  記事番号：
1078190
(SS)C-BOARD v3.8 is Free