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

Signaler
Messages postés
32
Date d'inscription
jeudi 11 juillet 2019
Statut
Membre
Dernière intervention
18 mars 2020
-
Messages postés
15218
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
13 mai 2020
-
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.

1 réponse

Messages postés
15218
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
13 mai 2020
1 281
Bonjour,

Un champ formulaire n'est pas null mais vide car format texte:
If Me.txt_reference="" Then...........
Messages postés
32
Date d'inscription
jeudi 11 juillet 2019
Statut
Membre
Dernière intervention
18 mars 2020

C'était donc juste ça, merci !!
Messages postés
15218
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
13 mai 2020
1 281
Re,

Mettre votre demande cote Access comme terminee