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

A voir également:Message d'erreur si champ vide accessMessage d'erreur si valeur vide PHP ✓ - Forum - PHP Access si champ vide alors - Forum - Logiciels Message d'erreur access violation at address ✓ - Forum - Logiciels Erreur lors d'un champs vide ✓ - Forum - PHP Requete Access et champ vide ✓ - Forum - Access

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.

Forum

A voir également:Message d'erreur si champ vide accessMessage d'erreur si valeur vide PHP ✓ - Forum - PHP Access si champ vide alors - Forum - Logiciels Message d'erreur access violation at address ✓ - Forum - Logiciels Erreur lors d'un champs vide ✓ - Forum - PHP Requete Access et champ vide ✓ - Forum - Access

Web: www.shapebootstrap.net

1 réponse

Marsh

NOVEMBER 9, 2013 AT 9:15 PM

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 53205 internautes nous ont dit merci ce mois-ci

Reply
réponses:
  • auteur

    C'était donc juste ça, merci !!

  • auteur

    Re,

    Mettre votre demande cote Access comme terminee

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed