Message d'erreur si champ vide access
Résolu
Loic_7447
Messages postés
50
Statut
Membre
-
f894009 Messages postés 17413 Statut Membre -
f894009 Messages postés 17413 Statut Membre -
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.
A voir également:
- Valide si access
- Ethernet n'a pas de configuration ip valide - Guide
- Hns-self-wan-access-ipv6 ✓ - Forum Réseau
- Paiement validé mais pas la commande - Forum Consommation & Internet
- Url valide - Guide
- Acer quick access - Forum Logiciels
Mettre votre demande cote Access comme terminee