Discussion :

[MatAllwhite]

Bonjour à tous,
Je travaille en ce moment sur un formulaire de type continu et je ne parviens pas à afficher le résultat d’un calcul dans une textbox, à noter que ce résultat dépend de la saisie de l’utilisateur dans chacune des lignes (enregistrement) du formulaire.
Je vais prendre un exemple simple pour illustrer mon problème.
Mon formulaire comporte 2 listes déroulantes et 1 textbox :
-lst_pays
-lst_ville
-txt_population

Je précise que ces informations sont toutes disponible dans une table unique (Tb_info) et que le formulaire doit enrichir une nouvelle table différente (Tb_bilan) ce qui signifie que la source de donnée de tous les éléments est vide de contenu au départ.
Lorsque l’utilisateur choisit un pays dans la première liste, la seconde liste des villes se met à jour (code sur événement « afterupdate »). Chaque ville a une population, et je voudrai que cette population apparaisse dans « txt_population, seulement il n’est pas possible de définir le contenu d’une textbox contrairement à une liste déroulante. Je rappelle que la source de la textbox fait référence à la table « Tb_bilan » et que l’info se trouve dans la table « Tb_info »
Comment faire ? J’ai pensé à jouer sur la valeur par défaut mais ça ne marche pas
La meilleur solution est sans doute de remplir la table « Tb_bilan » directement par une requête d’insertion qui s’ execute sur un événement afterupdate de lst_ville, mais comment faire cet ajout sur le bon enregistrement (celui qui a le focus) ?
J’espère avoir été clair,
Merci à ceux qui prendront la peine de me lire.

[Robert1957]

Bonjour MatAllwhite,

Je rappelle que la source de la textbox fait référence à la table « Tb_bilan »

Donc ton sous formulaire est lié à la table Tb_bilan. Si c'est le cas il doit y avoir un ID pour cette ligne. En te servant de ce ID si tu veux faire une requête insertion sur l'événement after update de la liste ville. Ou plus simplement en incluant la population dans la liste ville (colonne cachée) et sur l'événement after update de la liste:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

me.txt_population = me.lst_ville.Column(1)

En supposant que la liste ville a une colonne nom et une colonne population.

Bonne journée

[MatAllwhite]

Merci pour ton aide Robert1957,
Effectivement mon formulaire est lié à la table Tb_bilan; Je n'avais pas pensé à rajouter une colonne caché dans la liste des villes: c'est une bonne idée.
Je suis ravi, ta solution marche tres bien.

Je ne ferme pas la discussion car cela va peut être résoudre également un autre problème un peu similaire que j'expérimente cet après-midi. Hors je risque d'avoir encore une question. Je fermerai la discussion si c'est bon.

Merci beaucoup Robert1957

[MatAllwhite]

Bon alors effectivement j'ai d'autres questions:
1)Nous avons vu que j'ai rajouté le code suivant sur l'évenement "AfterUpdate de ma liste "lst_ville":

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

me.txt_population = me.lst_ville.Column(1)

Maintenant je voudrais aussi pouvoir créer moi même une ville (oui je suis comme ça moi, j'aime bien créer des villes! c'est pour illustrer évidemment); aucun problème il suffit de mettre la propriété "limiter à liste" sur "non" mais malheureusement mon code précédent fait planter.
Comment dans le code vérifier qu'aucune ville présente dans la liste "lst_ville" n'a été sélectionner pour éviter d'executer la suite du code vue précédemment?
J'ai tenté ça mais sans succès:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
If me.lst_ville.InSelection = true then
me.txt_population = me.lst_ville.Column(1)
end if

2) Autre problème plus complexe je pense, j'ai un 4 ieme élément dans mon formulaire continu: "lst_quartier" il s'agit d'une liste déroulante à choix multiple
(avec des cases à cocher). Voici le fonctionnement: lorsque je sélectionne une ville, ma liste des quartiers qui la compose se met à jour (ça c'est bon, ça marche). Mais si j'ai cocher un quartier et que finalement je veux changer après de ville, la liste se remet à jour mais en conservant en plus le quartier précédemment séléctionné; ce qui est logique finalement. Mais comment retirer cet élément?
On en revient donc encore une fois au sujet initial de la discussion, c'est à dire comment supprimer le "quartier" séléctionné de ma table tb_bilan pour que la liste des quartier soit réellement réinitialisé (autrement dit comment récuperer l'id de l'enregistrement ayant le focus et appliqué la requête de suppression sur cet enregistrement)? Je pense que je ne suis pas loin là.

Merci à ceux qui liront ce pavé et qui répondront. Help!

[Robert1957]

Bonjour MatAllwhite,

Maintenant je voudrais aussi pouvoir créer moi même une ville

Ça c'est impossible avec ce qui a été vu précédemment. En effet te ne peux alimenter la deuxième colonne donc tu te trouverais à créer une ville mais sans population.

2) Autre problème plus complexe je pense, j'ai un 4 ieme élément dans mon formulaire continu: "lst_quartier" il s'agit d'une liste déroulante à choix multiple
(avec des cases à cocher). Voici le fonctionnement: lorsque je sélectionne une ville, ma liste des quartiers qui la compose se met à jour (ça c'est bon, ça marche). Mais si j'ai cocher un quartier et que finalement je veux changer après de ville, la liste se remet à jour mais en conservant en plus le quartier précédemment séléctionné; ce qui est logique finalement. Mais comment retirer cet élément?

Là tu n'as pas le choix il faut que tu récupères ce qui sert à identifier ta ligne, clé primaire de la table bilan, et faire un requête Update en VBA pour enlever le quartier précédemment choisi.

Bonne journée

[MatAllwhite]

Bonjour Robert et merci pour ton aide.
1)

Ça c'est impossible avec ce qui a été vu précédemment. En effet te ne peux alimenter la deuxième colonne donc tu te trouverais à créer une ville mais sans population.

Je sais bien que ma deuxieme colonne ne sera plus alimenté, c'est justement l'appel de cette colonne en programmation qui fait planter le programme. En gros je veux pouvoir selectionner une ville dans une liste et voir apparaitre ça population dans une autre textbox, mais je veux aussi pouvoir créer ma ville et renseigner sa population manuellement. Il n'existe pas d'instruction VBA permettant de savoir si aucun élément d'une liste n'a été selectionné (afin de bloquer le programme vu précédemment)?
2)

Là tu n'as pas le choix il faut que tu récupères ce qui sert à identifier ta ligne, clé primaire de la table bilan, et faire un requête Update en VBA pour enlever le quartier précédemment choisi.

Oui c'est ça que j'essai de faire justement, j'ai rajouté une textbox liée à l'ID de ma table Tb_bilan, et je récupère cet ID pour le mettre en condition dans une requête, mais je dois me planter quelque part dans la syntaxe ou alors ce n'est pas possible; voici l'erreur:

Une requête UPDATE ou DELETE ne peut contenir un champ à plusieurs valeurs

Hors justement le champs que je veux supprimer contient plusieurs valeur (je rapelle qu'il est alimenté par une liste déroulante à choix multiples , c'est une option possible depuis Access2007, j'ai donc bien plusieur "quartier" dans une même case que je voudrai réinitialisé.
Voici ma requête au cas où:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
DELETE Tb_Bilan.Population
FROM Tb_Bilan
WHERE (([Tb_Bilan]![ID]=[Formulaires]![nomDuFormulaire]![txt_ID]));

[MatAllwhite]

Oups ! Autant pour moi je viens de trouver la bonne syntaxe ; qui est spécifique aux champs à plusieurs valeurs ; il faut rajouter « value » ; voici du coup ma requête si cela peut servir à certains :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
DELETE Tb_Bilan.Population.value
FROM Tb_Bilan
WHERE (([Tb_Bilan]![ID]=[Formulaires]![nomDuFormulaire]![txt_ID]));

Bon sinon, ma première question sur mon message précédent est toujours valable :
Quelle instruction VBA permet de savoir si un élément a été sectionné dans une zone de liste ?
Je viens de me refaire toute la liste des instructions pour les zones de listes , mais je ne vois pas, et pourtant ça doit bien exister. Sinon va falloir que lancer une procédure un peu lourde qui parcours tout les élément de liste et la compare à la valeur dans la table......oulala je vais me perdre là.

[Robert1957]

Bonjour ,

Je sais bien que ma deuxieme colonne ne sera plus alimenté, c'est justement l'appel de cette colonne en programmation qui fait planter le programme.

Remplace par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

me.txt_population = Nz(me.lst_ville.Column(1),"")

Bonne journée

[MatAllwhite]

ouhah, tu as réponse à tout Robert!
Et à chaque fois la réponse est loin de ce que j'imaginais.
Bon effectivement la fonction Nz ne fait plus planter le programme lorsque je ne choisi aucun élément dans la liste des villes (Tb_ville) mais curieusement la fonction me permet même d'écrire n'importe quoi, ce qui m'arrange bien.
Par contre un 2ième probleme apparait, (même si je ne rentre rien à la place de la liste): impossible de renseigner l'enregistrement suivant du formulaire continu; voici le message d'erreur:

Le moteur de base de données Microsoft Office Access ne peut pas trouver d'enregistrement dans la table "Tb_listeVille" avec le(s) champ(s) "vil_code" correspondant à la clé.

Donc finalement Access n'est pas content!!! Il cherche désespérement une ville (vil_code) dans la liste......

Je crois que je suis un peu mauvais

[Robert1957]

Bonjour MatAllwhite,

Le moteur de base de données Microsoft Office Access ne peut pas trouver d'enregistrement dans la table "Tb_listeVille" avec le(s) champ(s) "vil_code" correspondant à la clé.

Je ne connais pas la structure de ta table mais je crois que c'est parce que tu crées un nouvel enregistrement et il te manque la clé qui est "vil_code". Donc on revient au point de départ, ne pas permettre l'ajout d'une ville dans ta liste déroulante étant donné que tu ne peux remplir les champs nécessaires par cette liste.

Bonne journée

[MatAllwhite]

Ok bon j'abandonne la modif des villes alors....
Un grand merci malgré tout pour toutes ces infos