J'ai un formulaire qui sert à ajouter des données dans une table, à l'aide de 4 zones de texte et d'un bouton final.
Le formulaire fonctionne très bien, mais j'aimerais que si un champ est vide lorsqu'on valide l'ajout, l'enregistrement ne se fasse pas et qu'un message d'erreur s'affiche.
Voici mon code :
Private Sub btn_ajouter_Click()
Set db = CurrentDb Set rs = db.OpenRecordset("Stock_atelier")
MsgBox "Référence ajoutée avec succès " txt_reference = "" txt_fournisseur = "" txt_quantité = "" txt_outil = ""
Set rs = Nothing Set db = Nothing
End Sub
J'ai essayé d'ajouter les lignes suivantes :
If IsNull(Me.txt_reference) Then MsgBox ("Veuillez renseigner toutes les cases") ElseIf IsNull(Me.txt_fournisseur) Then MsgBox ("Veuillez renseigner toutes les cases") ElseIf IsNull(Me.txt_quantité) Then MsgBox ("Veuillez renseigner toutes les cases") ElseIf IsNull(Me.txt_outil) Then MsgBox ("Veuillez renseigner toutes les cases") End If
Mais rien n'y fait (peut-être que je ne les ai pas rentré au bon endroit ou que sait-je).
- Messages postés
-
15218
- Date d'inscription
- dimanche 25 novembre 2007
- Statut
- Membre
- Dernière intervention
- 13 mai 2020
1 281Mettre votre demande cote Access comme terminee