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.
Partager