hatena
hatena
2022/09/14 (水) 22:42:48
入力必須違反エラーは、フォームのエラー時イベントで拾えます。
Form.Error イベント (Access) | Microsoft Docs
Private Sub Form_Error(DataErr As Integer, Response As Integer)
If DataErr = 3314 Then
Response = acDataErrContinue '既定のエラーメッセージを表示しない
MsgBox "入力必須なので空欄にはできません"
Me.ActiveControl.Undo
SendKeys "{TAB}" '次のコントロールへ移動
End If
End Sub
通報 ...
早速のご回答、ありがとうございます。
私が記述したBeforeUpdate部をコメント化し、教えていただいたForm.Errorの記述を追加しましたが、それでも「値がフィールドまたはレコードの入力規則に違反しています。」のエラーが出てしまいました。