VB - Tester les champs d'un form et emmetre un message
Résolu
SEB83200
Messages postés
34
Date d'inscription
lundi 16 juin 2008
Statut
Membre
Dernière intervention
11 juin 2013
-
9 août 2009 à 18:41
SEB83200 Messages postés 34 Date d'inscription lundi 16 juin 2008 Statut Membre Dernière intervention 11 juin 2013 - 12 août 2009 à 13:23
SEB83200 Messages postés 34 Date d'inscription lundi 16 juin 2008 Statut Membre Dernière intervention 11 juin 2013 - 12 août 2009 à 13:23
6 réponses
Calade
Messages postés
1207
Date d'inscription
dimanche 20 avril 2003
Statut
Membre
Dernière intervention
4 juin 2016
10
11 août 2009 à 08:40
11 août 2009 à 08:40
Bonjour,
Commences par déterminer un endroit commun pour sortir de ta form. Un bouton "Valider" par exemple chargé de valider (si si) les données et saisies et de mettre à jour le recordset sous-jacent.
Dans ce cas-là, dans l'évènement "Click" de ce bouton, tu fais tous les contrôles et au fur et à mesure que tu trouves une erreur tu modifies le texte de la msgbox:
Ex:
Private sub button1_click
strMessage = ""
if textbox1.text "" then strmessage "Textbox1 doit être saisie"
if textbox2.text "" then strmessage strmessage & vbcrlf & "Textbox2 doit être saisie"
A toi de modifier le nom des contrôles.
En espérant avoir été assez clair.
Calade
Commences par déterminer un endroit commun pour sortir de ta form. Un bouton "Valider" par exemple chargé de valider (si si) les données et saisies et de mettre à jour le recordset sous-jacent.
Dans ce cas-là, dans l'évènement "Click" de ce bouton, tu fais tous les contrôles et au fur et à mesure que tu trouves une erreur tu modifies le texte de la msgbox:
Ex:
Private sub button1_click
strMessage = ""
if textbox1.text "" then strmessage "Textbox1 doit être saisie"
if textbox2.text "" then strmessage strmessage & vbcrlf & "Textbox2 doit être saisie"
A toi de modifier le nom des contrôles.
En espérant avoir été assez clair.
Calade
Je suppose que tes champs sont des Textbox
Un test avec If Nom.text = "" then MsgBox "Le champ Nom est vide": Exit sub devrait suffire
Répète ce test pour chaque champ avec le Exit Sub et ensuite continue ton traitement
La théorie, c'est quand on sait tout et que rien ne fonctionne. La pratique, c'est quand tout fonctionne et que personne ne sait pourquoi.
GRENIER Alain
Un test avec If Nom.text = "" then MsgBox "Le champ Nom est vide": Exit sub devrait suffire
Répète ce test pour chaque champ avec le Exit Sub et ensuite continue ton traitement
La théorie, c'est quand on sait tout et que rien ne fonctionne. La pratique, c'est quand tout fonctionne et que personne ne sait pourquoi.
GRENIER Alain
Calade
Messages postés
1207
Date d'inscription
dimanche 20 avril 2003
Statut
Membre
Dernière intervention
4 juin 2016
10
10 août 2009 à 11:33
10 août 2009 à 11:33
Bonjour,
La solution de Galain est très bien mais deviendra vite galère pour le end user s'il y a beaucoup de champs à saisir. Je pencherais plutôt à un contrôle global (clic sur un bouton "Valider" par ex ou unload de la form) avec affichage d'un seul msgbox dont le contenu sera créé au dernier moment en fonction des champs non ou mal saisis.
Enfin c'est mon avis.
Calade
La solution de Galain est très bien mais deviendra vite galère pour le end user s'il y a beaucoup de champs à saisir. Je pencherais plutôt à un contrôle global (clic sur un bouton "Valider" par ex ou unload de la form) avec affichage d'un seul msgbox dont le contenu sera créé au dernier moment en fonction des champs non ou mal saisis.
Enfin c'est mon avis.
Calade
SEB83200
Messages postés
34
Date d'inscription
lundi 16 juin 2008
Statut
Membre
Dernière intervention
11 juin 2013
10 août 2009 à 19:50
10 août 2009 à 19:50
merci a tout les deux
cdlt
cdlt
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
SEB83200
Messages postés
34
Date d'inscription
lundi 16 juin 2008
Statut
Membre
Dernière intervention
11 juin 2013
10 août 2009 à 19:55
10 août 2009 à 19:55
Bonjour,
Par contre calade ta solution est celle que j'amerai mais comment faire ?
Merci
Par contre calade ta solution est celle que j'amerai mais comment faire ?
Merci
SEB83200
Messages postés
34
Date d'inscription
lundi 16 juin 2008
Statut
Membre
Dernière intervention
11 juin 2013
12 août 2009 à 13:23
12 août 2009 à 13:23
Bonjour,
EMrci Calade.
EMrci Calade.