All'evento "su errore" del form associa questo codice:

codice:
Private Sub Form_Error(DataErr As Integer, Response As Integer)
Const data_errata = 2113
    If DataErr = data_errata Then
       MsgBox "La data non è valida"
       Response = acDataErrContinue
    Else
       Response = acDataErrDisplay
    End If
End Sub