Message d'erreur si champ vide access
Résolu
Loic_7447
Messages postés
49
Date d'inscription
Statut
Membre
Dernière intervention
-
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
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 :
J'ai essayé d'ajouter les lignes suivantes :
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.
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.
Mettre votre demande cote Access comme terminee