ms-access - デフォルトのメッセージボックスを無効にする

Question

Access から既定のメッセージボックスを無効にしたい。これは私のコードです、

Private Sub textRequiredDate_AfterUpdate()

DoCmd.SetWarnings False

If Not IsDate(textRequiredDate.Value) Then
MsgBox "Please enter a date"

Else

End If

If textRequiredDate.Value < textOrderDate.Value Then
MsgBox "Required date must be after Order Date"
textOrderDate.SetFocus
textRequiredDate.SetFocus
textRequiredDate.Value = ""

Else

End If

End Sub

必要な日付に手紙を書くと、デフォルトの MS Access msgbox が表示されます。それを自分のメッセージ ボックスに変更したいと思います。

Answer 1

Form_Error イベントでカスタム エラーを作成できます。たとえば、これは検証規則エラー用です。

Private Sub Form_Error(DataErr As Integer, Response As Integer)
      If DataErr = 2107 Then
         MsgBox "There was an error."
         Response = acDataErrContinue
      End If
End Sub

その他のエラーは次のとおりです。

Private Sub Form_Error (DataErr As Integer, Response As Integer)
  Const REQUIREDFIELD_VIOLATION = 3314
  Const INPUTMASK_VIOLATION = 2279
  Const DUPLICATEKEY_VIOLATION = 3022
  If DataErr = DUPLICATEKEY_VIOLATION Then
     MsgBox "There was a key violation!"
     Response = acDataErrContinue
  End If
End Sub

Answer 2

これを試して：

DoCmd.SetWarnings false
Application.DisplayAlerts = false