Discussion :

[gbzmt]

Bonjour,

Je voudrais remplacer le message suivant:
"Le champ "Form.Champ" ne peut pas contenir une valeur Null car la valeur de la propriété Required pour ce champ est True ........",par un message personnalisé.

Est-ce possible ???

[giragu03]

Salut,
Tu peux essayer de voir du côté de l'intruction "On Error" et dans ton traitement d'erreur utiliser une msgBox.

[Domi2]

Bonjour,

Tu peux essayer de voir du côté de l'intruction "On Error"

Cette erreur peut-être traitée uniquement dans l'événement Sur erreur du formulaire (erreur 3314, de mémoire) mais ce n'est forcémment très pratique.

Le mieux étant qu'elle ne se produise pas.

Dans l'événement Avant MAJ (BeforeUpdate) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Form_BeforeUpdate(Cancel As Integer)
 
    'Test de saisie de la zone de texte nom
    If IsNull(Me.txtNom) Then
 
        MsgBox "Attention...."        
 
        Me.txtNom.SetFocus
 
        Cancel = True
 
    End If
 
End Sub

Cancel = True a pour effet d'annuler l'événement. L'utilisateur peut donc compléter sa saisie.

On peut naturellement multiplier ce genre de test.

Domi2

[gbzmt]

Merci Domi2 mais,

Cela ne marche pas car, le champ est vide par défaut, et donc si je passe à l'enregistrement suivant sans l'avoir rempli puis effacé, l'événement Avant_MAJ n'est pas déclenché.

[Domi2]

Re,

donc si je passe à l'enregistrement suivant sans l'avoir rempli puis effacé, l'événement Avant_MAJ n'est pas déclenché.

Effectivement, si tu ne modifies aucune donnée, le fait de passer à un autre enregistrement ne déclenche pas l'événement Avant MAJ.

L'événement sur Erreur du formulaire non plus sauf erreur.

Comme solution, je ne vois qu'interdire le déplacement entre enregistrements et de déclencher l'événement Avant MAJ sur click d'un bouton "Valider" par exemple.

Domi2