Message d'erreur si champ vide access

Résolu/Fermé
Loic_7447 Messages postés 49 Date d'inscription jeudi 11 juillet 2019 Statut Membre Dernière intervention 17 novembre 2020 - 11 juil. 2019 à 14:18
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 - 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.

1 réponse

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
12 juil. 2019 à 06:44
Bonjour,

Un champ formulaire n'est pas null mais vide car format texte:
If Me.txt_reference="" Then...........
1
Loic_7447 Messages postés 49 Date d'inscription jeudi 11 juillet 2019 Statut Membre Dernière intervention 17 novembre 2020
12 juil. 2019 à 07:45
C'était donc juste ça, merci !!
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
12 juil. 2019 à 10:58
Re,

Mettre votre demande cote Access comme terminee
0