Discussion :

[BERCOVICI]

Bonjour.

J'ai dans un formulaire une série de contrôle dont une liste déroulante (mod_Type) dépendante d'une requête (rq_Type) qui récupère les valeurs possibles d'une table (tbl_Type).
Une fois complété le formulaire, j'enregistre le résultat dans une table (tbl_Main) avec, entre autres, la valeur choisie de mod_Type gardée dans un champ de type text ("Estado").

Jusque là tout va bien

Maintenant j'utilise le même formulaire pour éditer mes registres de tbl_Main et je n'arrive pas à visualiser dans la liste déroulante (mod_Type) la valeur récupérée du champ "Estado" (récupérée par requête).
J'essaye:

Code :

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

Me.mod_Type.Value = rs2.Fields("Estado").Value

mais çà ne marche pas..


Merci de votre aide!!

[BERCOVICI]

Bonjour.

Je rajoute un contrôle pour vérifier la valeur récupérée

Me.modEstado.Value = rs2.Fields("Estado").Value
Me.Texte191 = Me.modEstado.Value


Effectivement le problème ne se trouve pas dans la récupération de la valeur mais bien dans l'affichage.
Des pistes?

Merci par avance

[EBRAG]

Bonjour,

Si la liste déroulante a pour donnée source une autre information que le champ de la table, il y a peu de chance pour qu'elle affiche cette donnée.

Il faut effectivement passer par un second contrôle comme décrit dans le second message...

La liste déroulante n'intervenant que pour modifier le champ cible... (voir le code VBA associé à cette liste déroulante)

Bon courage...

[BERCOVICI]

Merci EBRAG pour ta réponse.

J'avoue ne toujours pas comprendre pourquoi ne pas pourvoir afficher une valeur qui est chargée dans la liste...
Effectivement, la liste déroulante (modEstado) est bien alimentée ou chargée par une requête.
Mais j'essaye de lui attribuer une valeur déterminée par une autre requête et j'y arrive : "Me.modEstado.Value = rs2.Fields("Estado").Value"
Si je consulte Me.modEstado.value je retrouve bien la valeur passée. Mais pourquoi ne veut-elle pas s'afficher...


J'aimerai juste comprendre le fond du sujet...
Encore merci.

[BERCOVICI]

Bon: ce n'est pas très joli mais si ça peut servir à d'autres... Solution pour contourner le problème..

Je superpose graphiquement une textbox (txtEstado) et une liste déroulante (modEstado).

Au chargement du formulaire, j'ai
1) la requête pour charger la liste
2) je rends visible la textbox et invisible la liste

Sur évènement 'click' de la textbox:

Code :

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

1
2
3
4
Me.modEstado.Visible = True
Me.modEstado.SetFocus
Me.txtEstado.Visible = False
Me.modEstado.Dropdown

Sur l'évènement 'change' de la liste:

Code :

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

1
2
3
4
Me.txtEstado.Visible = True
Me.txtEstado.SetFocus
Me.txtEstado = Me.modEstado.Column(1) 'Colonne à adapter en fonction de la source
Me.modEstado.Visible = False

J'aimerai quand même savoir pourquoi une liste ne peut pas afficher sa valeur!!

Joyeuses fêtes de fin d'année à toutes et à tous.

[tee_grandbois]

J'aimerai quand même savoir pourquoi une liste ne peut pas afficher sa valeur!!

bonsoir,
si j'ai bien compris ton souci, je pense que c'est parce qu'il s'agit du zone de liste indépendante qui n'a pas de source contrôle sinon une valeur s'afficherait. Sans cela, rien ne s'affiche puisque Source contrôle est Nul.
Pour afficher une valeur dans une zone de liste indépendante tu peux, soit mettre la première valeur de ta requête avec =Mindom("mod_Type";"rq_Type") dans la propriété valeur par défaut de ta zone de liste, soit le faire par code à l'ouverture du formulaire :

Code :

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

 Me.modEstado =  Me.modEstado.ItemData(0)

[BERCOVICI]

Merci de ton aide.
Je simplifie pour une meilleure compréhension.
La liste déroulante a bien une source: une requête qui récupère les valeurs A, B, C et D.
Sur l'ouverture du formulaire je construit une requête contre une autre table qui récupère la totalité d'un registre avec les valeurs PEPE, VOITURE, A
Je veux afficher dans la listbox cette valeur récupérée (A). L'usager pourra alors modifier cette valeur avec la liste déroulante.
Hors:
Me.modEstado.Value = "A" ne fonctionne pas.
Me.modEstado.DefaultValue = "A" ne fonctionne pas.
Et "A" est bien membre de la liste..

Encore merci.

[tee_grandbois]

Bonjour,
peux-tu me dire si ton formulaire est indépendant (c'est à dire que la propriété Source est vide) car cela voudrait dire que tous tes contrôles ou presque (y compris ta zone de liste déroulante ou listbox) sont indépendants et que par conséquent la propriété Source contrôle de tes contrôles sont vides. Le Contenu de ta zone de liste, par contre, elle contient une requête.

[BERCOVICI]

Effectivement la Source du contrôle est vide et son Contenu est bien le résultat d'une Requête.
Mais pourquoi dans ce cas ne pas pouvoir afficher une Valeur donnée (qui fait partie de la liste des Items chargés) alors qu'on arrive bien à attribuer au contrôle une Valeur donnée.
Conception? Je dois avoir un vrai soucis de compréhension du fonctionnement des textbox !!!
Encore merci!

[tee_grandbois]

pour charger ta listbox Je t'ai donné la solution dans le post #6.
Pour ce qui est du chargement d'une valeur dans un textbox indépendant, il est possible de charger une valeur dans la Source Contrôle (en mettant ="mavaleur" par exemple) mais elle ne sera pas modifiable. Donc pour une saisie de nouvelles données il faut une table, même temporaire.

[BERCOVICI]

Je récupère donc par une autre requête le nº de l'enregistrement et je l'assigne à modEstado.

Code :

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

1
2
3
strSQL2 = "SELECT tblESTADO.ID, tblESTADO.Nombre FROM tblESTADO WHERE tblESTADO.Nombre = '" & rs1.Fields("Estado").Value & "';"
Set rs2 = db1.OpenRecordset(strSQL2)
Me.modEstado = Me.modEstado.ItemData(rs2.Fields("ID") - 1)

Cela fonctionne.

Merci de ton aide et joyeuses fêtes!

[tee_grandbois]

Code :

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

Me.modEstado = Me.modEstado.ItemData(rs2.Fields("ID") - 1)

attention quand même à ne pas récupérer une valeur inappropriée car l'indice d'ItemData ne correspond pas à une valeur mais à une position dans un tableau. Donc à mon avis ce code est incorrect.

[BERCOVICI]

Oui.
Mais mon ID est toujours numérique et auto incrémenté.
Puisque le littéral recherché par la requête provient lui aussi de la même table en origine, je suis sûr à 100% de récupérer la même position (avec le -1 puisque la table commence à 1 et la position e la listbox à 0).
Encore merci.

[tee_grandbois]

Je t'en prie.
Passe une bonne fête de fin d'année.