Access 2003 Boite MSGBOX
Résolu/Fermé
Joss0109
Messages postés
137
Date d'inscription
dimanche 17 août 2008
Statut
Membre
Dernière intervention
26 septembre 2016
-
22 févr. 2013 à 14:44
Le Pingou Messages postés 12042 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 24 avril 2024 - 4 avril 2013 à 14:11
Le Pingou Messages postés 12042 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 24 avril 2024 - 4 avril 2013 à 14:11
A voir également:
- Access 2003 Boite MSGBOX
- Se connecter à ma boite hotmail - Guide
- Boite gmail saturée - Guide
- Boîte mail française gratuite - Guide
- La boite a couleur - Télécharger - Divers Photo & Graphisme
- Boite gmail bloquée - Guide
8 réponses
Le Pingou
Messages postés
12042
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
24 avril 2024
1 426
22 févr. 2013 à 23:16
22 févr. 2013 à 23:16
Bonjour,
Un peu difficile sans connaitre la structure de fonctionnement personnalisé de votre BD !
Un peu difficile sans connaitre la structure de fonctionnement personnalisé de votre BD !
Le Pingou
Messages postés
12042
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
24 avril 2024
1 426
23 févr. 2013 à 10:43
23 févr. 2013 à 10:43
Bonjour,
Une possibilité, utiliser la procédure événementielle [sur changement], ce qui permet de créer le message désiré : exemple pour le champ [Nom] :
Dans les propriétés, onglet [Evénement], sous [sur changement], mettre [Procédure événementielle] et ensuite dans l'éditeur VBA compléter la procédure avec votre message, soit:
Une possibilité, utiliser la procédure événementielle [sur changement], ce qui permet de créer le message désiré : exemple pour le champ [Nom] :
Dans les propriétés, onglet [Evénement], sous [sur changement], mettre [Procédure événementielle] et ensuite dans l'éditeur VBA compléter la procédure avec votre message, soit:
Private Sub Nom_Change() MsgBox "Vous n'avez pas renseigné le nom de la personne!" End SubRépéter la marche à suivre pour chaque champ concerné !
Le Pingou
Messages postés
12042
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
24 avril 2024
1 426
2 avril 2013 à 16:22
2 avril 2013 à 16:22
Bonjour,
Je vous renvoie ici : https://forums.commentcamarche.net/forum/affich-27197443-access-2003-boite-msgbox#4
Je vous renvoie ici : https://forums.commentcamarche.net/forum/affich-27197443-access-2003-boite-msgbox#4
Le Pingou
Messages postés
12042
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
24 avril 2024
1 426
2 avril 2013 à 20:46
2 avril 2013 à 20:46
Bonjour,
Petite erreur ...!
Je vous renvoie ici : https://forums.commentcamarche.net/forum/affich-27197443-access-2003-boite-msgbox#1
Petite erreur ...!
Je vous renvoie ici : https://forums.commentcamarche.net/forum/affich-27197443-access-2003-boite-msgbox#1
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Joss0109
Messages postés
137
Date d'inscription
dimanche 17 août 2008
Statut
Membre
Dernière intervention
26 septembre 2016
53
27 mars 2013 à 10:17
27 mars 2013 à 10:17
Bonjour
Merci pour cette proposition, ça fonctionne !
Joss
Merci pour cette proposition, ça fonctionne !
Joss
Joss0109
Messages postés
137
Date d'inscription
dimanche 17 août 2008
Statut
Membre
Dernière intervention
26 septembre 2016
53
2 avril 2013 à 15:34
2 avril 2013 à 15:34
Pingou
J'ai un problème avec ta proposition, parce que si chaque champs n'est pas sélectionné automatique, la procédure ne sert à rien...
En cherchant un peu, voilà ce que je propose :
"
Private Sub Form_BeforeUpdate(Cancel As Integer)
If IsNull([LIEN_AVEC_LA_PA]) Or [LIEN_AVEC_LA_PA] = "" Then
MsgBox "Sélectionnez le lien avec la PA"
Cancel = True
ElseIf IsNull([PRISE_DE_CONNAISSANCE_CLIC]) Or [PRISE_DE_CONNAISSANCE_CLIC] = "" Then
MsgBox "Indiquez la Prise de connaissance du CLIC"
Cancel = True
ElseIf IsNull([DEMANDE_INITIALE]) Or ([DEMANDE_INITIALE]) = "" Then
MsgBox "Indiquez la demande initiale"
Cancel = True
ElseIf IsNull([PROPOSITION_INITIALE]) Or [PROPOSITION_INITIALE] = "" Then
MsgBox "Indiquez la proposition initiale"
Cancel = True
ElseIf IsNull([CIVILITE_PA]) Or [CIVILITE_PA] = "" Then
MsgBox "Précisez la civilité de la PA"
Cancel = True
ElseIf IsNull([NOM_PA]) Or [NOM_PA] = "" Then
MsgBox "Entrez le Nom de la PA"
Cancel = True
ElseIf IsNull([TRANCHE_AGE]) Or [TRANCHE_AGE] = "" Then
MsgBox "Sélectionnez la tranche d'âge de la PA"
Cancel = True
ElseIf IsNull([VILLE_PA2]) Or [VILLE_PA2] = "" Then
MsgBox "Sélectionnez la Ville de la PA ***** Si pas d'information, séléectionnez dans la liste : -Hors Secteur- ou -Non Localisé-"
Cancel = True
ElseIf IsNull([SITUATION_FAMILIALE]) Or [SITUATION_FAMILIALE] = "" Then
MsgBox "Sélectionnez la Situation Familiale de la PA"
Cancel = True
End If
End Sub
"
Le probleme que je rencontre, c'est qu' il ne vérifie que 3 champs sur 9....., il me zappe les 3 premiers, la tranche d'âge et la situation familiale, donc si les 3 concernés sont remplis, il valide la fermeture du formulaire... et c'est pas ce que je veux...
Pourquoi ? aurais-tu une réponse à m'apporter
Merci à toi
Joss
J'ai un problème avec ta proposition, parce que si chaque champs n'est pas sélectionné automatique, la procédure ne sert à rien...
En cherchant un peu, voilà ce que je propose :
"
Private Sub Form_BeforeUpdate(Cancel As Integer)
If IsNull([LIEN_AVEC_LA_PA]) Or [LIEN_AVEC_LA_PA] = "" Then
MsgBox "Sélectionnez le lien avec la PA"
Cancel = True
ElseIf IsNull([PRISE_DE_CONNAISSANCE_CLIC]) Or [PRISE_DE_CONNAISSANCE_CLIC] = "" Then
MsgBox "Indiquez la Prise de connaissance du CLIC"
Cancel = True
ElseIf IsNull([DEMANDE_INITIALE]) Or ([DEMANDE_INITIALE]) = "" Then
MsgBox "Indiquez la demande initiale"
Cancel = True
ElseIf IsNull([PROPOSITION_INITIALE]) Or [PROPOSITION_INITIALE] = "" Then
MsgBox "Indiquez la proposition initiale"
Cancel = True
ElseIf IsNull([CIVILITE_PA]) Or [CIVILITE_PA] = "" Then
MsgBox "Précisez la civilité de la PA"
Cancel = True
ElseIf IsNull([NOM_PA]) Or [NOM_PA] = "" Then
MsgBox "Entrez le Nom de la PA"
Cancel = True
ElseIf IsNull([TRANCHE_AGE]) Or [TRANCHE_AGE] = "" Then
MsgBox "Sélectionnez la tranche d'âge de la PA"
Cancel = True
ElseIf IsNull([VILLE_PA2]) Or [VILLE_PA2] = "" Then
MsgBox "Sélectionnez la Ville de la PA ***** Si pas d'information, séléectionnez dans la liste : -Hors Secteur- ou -Non Localisé-"
Cancel = True
ElseIf IsNull([SITUATION_FAMILIALE]) Or [SITUATION_FAMILIALE] = "" Then
MsgBox "Sélectionnez la Situation Familiale de la PA"
Cancel = True
End If
End Sub
"
Le probleme que je rencontre, c'est qu' il ne vérifie que 3 champs sur 9....., il me zappe les 3 premiers, la tranche d'âge et la situation familiale, donc si les 3 concernés sont remplis, il valide la fermeture du formulaire... et c'est pas ce que je veux...
Pourquoi ? aurais-tu une réponse à m'apporter
Merci à toi
Joss
Joss0109
Messages postés
137
Date d'inscription
dimanche 17 août 2008
Statut
Membre
Dernière intervention
26 septembre 2016
53
2 avril 2013 à 17:09
2 avril 2013 à 17:09
?????
Ton lien me renvoie sur cette page... est-ce normal ?
Merci
Joss
Ton lien me renvoie sur cette page... est-ce normal ?
Merci
Joss
Joss0109
Messages postés
137
Date d'inscription
dimanche 17 août 2008
Statut
Membre
Dernière intervention
26 septembre 2016
53
2 avril 2013 à 23:40
2 avril 2013 à 23:40
Bonsoir,
Ok je te transmets ma base demain via ci-joint.fr histoire de voir a quoi elle ressemble
Merci
Bonne soirée
Ok je te transmets ma base demain via ci-joint.fr histoire de voir a quoi elle ressemble
Merci
Bonne soirée
Le Pingou
Messages postés
12042
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
24 avril 2024
1 426
2 avril 2013 à 23:53
2 avril 2013 à 23:53
Bonjour,
Merci, pensez à la compresser en ZIP ou RAR avant de la mettre sur cjoint.
Merci, pensez à la compresser en ZIP ou RAR avant de la mettre sur cjoint.
Joss0109
Messages postés
137
Date d'inscription
dimanche 17 août 2008
Statut
Membre
Dernière intervention
26 septembre 2016
53
4 avril 2013 à 10:56
4 avril 2013 à 10:56
Merci Pingou pour ton aide précieuse, il s'avère que j'ai trouvé la solution, concernant les champs qui n'était pas pris en compte, c'est tout simplement parce que c'est champs sont des listes déroulantes basées sur des requêtes et la valeur par défaut était "zero", donc forcément la condition en question était remplie, donc pas prise en compte... J'ai modifié la valeur par défaut de ces champs par la valeur "Null", ce qui fait que tout est rentré dans l'ordre.
En tout cas merci à toi, je n'y serai pas arrivé sans ton soutien
Joss
En tout cas merci à toi, je n'y serai pas arrivé sans ton soutien
Joss
Le Pingou
Messages postés
12042
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
24 avril 2024
1 426
4 avril 2013 à 14:11
4 avril 2013 à 14:11
Merci pour l'information.
Bonne suite.
Salutations.
Le Pingou
Bonne suite.
Salutations.
Le Pingou