1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
| Private Sub Form_Error(DataErr As Integer, Response As Integer)
Select Case DataErr
Case 3162, 3314 '3162 Vous avez essayé d'affecter la valeur nulle à une variable qui n'est pas de type variant
'3314 Le champ 'xxx' ne peut pas contenir une valeur nulle car la propiété 'required' pour ce champ est True. Saisissez une valeur.
With Me.ActiveControl
Select Case .Name
Case "lstN2Action", "lstLibelléAction"
MsgBox "Vous devez indiquer une Action.", vbCritical, flapp.Title
Case "txtDateInsc"
MsgBox "Vous devez indiquer la Date de la demande.", vbCritical, flapp.Title
Case "lstCléStatut3"
MsgBox "Vous devez indiquer un Statut, ou (Aucun) s'il n'est pas connu.", vbCritical, flapp.Title
Case "lstCléService"
MsgBox "Vous devez indiquer un Etablissement, ou (Aucun) s'il n'est pas connu.", vbCritical, flapp.Title
End Select
If .ControlType = acComboBox Then
.Dropdown
End If
End With
Response = acDataErrContinue
'Case xxxx autres erreurs
End Select
End Sub |
Partager