Menu

Message d'erreur si champ vide access [Résolu]

Messages postés
3
Date d'inscription
jeudi 11 juillet 2019
Statut
Membre
Dernière intervention
12 juillet 2019
- - Dernière réponse : f894009
Messages postés
14593
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
16 juillet 2019
- 12 juil. 2019 à 10:58
Bonjour,

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")

rs.AddNew

rs!Référence = Me.txt_reference
rs!Fournisseur = Me.txt_fournisseur
rs!Quantité = Me.txt_quantité
rs!Type = Me.txt_outil

rs.Update

rs.Close
db.Close

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

Pourriez-vous m'aider ??
Merci d'avance.
Afficher la suite 

1 réponse

Meilleure réponse
Messages postés
14593
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
16 juillet 2019
1154
1
Merci
Bonjour,

Un champ formulaire n'est pas null mais vide car format texte:
If Me.txt_reference="" Then...........

Dire « Merci » 1

Heureux de vous avoir aidé ! Vous nous appréciez ? Donnez votre avis sur nous ! Evaluez CommentCaMarche

CCM 54207 internautes nous ont dit merci ce mois-ci

Loic_7447
Messages postés
3
Date d'inscription
jeudi 11 juillet 2019
Statut
Membre
Dernière intervention
12 juillet 2019
-
C'était donc juste ça, merci !!
f894009
Messages postés
14593
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
16 juillet 2019
1154 -
Re,

Mettre votre demande cote Access comme terminee
Commenter la réponse de f894009