Discussion :

[robin148]

Bonjour,

j'ai un formulaire "contact" avec un champ "société" qui doit être obligatoirement rempli, et les autres champs sont les détails du contact, nom prénom email etc.

J'ai un bouton "enregistrer et fermer", et j'aimerais que lorsque l'on clique dessus, un message s'affiche si:

- le champ société n'est pas renseigné
- aucun autre champ n'est rempli


En gros, je veux qu'au moins une information (à part société qui est de toute façon obligatoire) soit remplie pour sauvegarder l'enregistrement.

Je suis débutant, j'ai essayé de coder ça en VBA, mais ça ne fait absolument rien lorsque je clique sur le bouton...

Voilà le code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub cmdClose_Click()
If (IsNull(Me.Nom.Value) Or (Me.Nom.Value) = "") _
And (IsNull(Me.Prénom.Value) Or (Me.Prénom.Value) = "") _
And (IsNull(Me.Téléphone.Value) Or (Me.Téléphone.Value) = "") _
And (IsNull(Me.Email.Value) Or (Me.Email.Value) = "") _
Then
    MsgBox "Veuillez renseigner au moins un champ.", vbExclamation, "Champs vides"
    Exit Sub
    End If
 
If IsNull(Me.Société.Value) Or (Me.Société.Value) = "" Then
MsgBox "Veuillez renseigner le champ société.", vbExclamation, "Champ obligatoire"
    Exit Sub
End If
DoCmd.Close
End Sub

Si quelqu'un peut valider/modifier la logique et/ou le code ce serait sympa!

Merci d'avance.

[zoom61]

Peut-être une piste : ici ?

@+.

[ClaudeLELOUP]

Bonjour,

Tu peux t'en sortir sans code VBA !

Il suffirait d'exprimer dans la propriété "Valide si"
soit de la table source
soit du contrôle Société du formulaire
que la valeur ne peut pas être Null (ou <> de zéro si c'est l'id d'une clé étrangère).

P.-S. Prends l'habitude de nommer tes objets, contrôles... sans utiliser de caractères spéciaux, espaces, de lettres accentuées.

[robin148]

Peut-être une piste : ici ?

@+.

C'est bon je viens de comprendre le problème! Le clic sur bouton était configuré en macro, voilà pourquoi il ne prenait pas en compte mon code (qui fonctionne donc, mais celui sur le lien a l'air plus pratique, donc je vais le modifier, merci!)

[zoom61]

Tu peux t'en sortir sans code VBA !

Cela ne devrait pas être possible vu qu'il veut qu'au moins un des champ soit rempli

Code :

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

MsgBox "Veuillez renseigner au moins un champ.", vbExclamation, "Champs vides"

@+.

[robin148]

Bonjour,

Tu peux t'en sortir sans code VBA !

Il suffirait d'exprimer dans la propriété "Valide si"
soit de la table source
soit du contrôle Société du formulaire
que la valeur ne peut pas être Null (ou <> de zéro si c'est l'id d'une clé étrangère).

Oui mais dans ce cas chaque champ sera obligatoire, non?

Alors que je veux juste qu'un seul champ (n'importe lequel) soit rempli au minimum.

Mais du coup vu que mon code semble fonctionner c'est bon
Merci quand même!