Discussion :

[Tofidou]

Bonjour,

Dans un formulaire, j'ai une liste de choix modifiable ListeDesig qui est vérouillée à l'ouverture.
Lors de la saisie du TextBox Desig, la liste de choix se dévérouille et affiche les choix possibles.
Ensuite, quand on en sélectionne un, il s'insère automatiquement dans le textbox et la liste de choix se revérouille.

Mon problème est que lorsque la liste de choix se revérouille, la valeur sélectionnée reste affichée. J'ai donc ajouté la ligne :

Code :

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

Me.ListeDesig.value=""

Mais là, en plus de la liste de choix, c'est le textbox qui s'efface aussi...

Voici mon code dans la liste de choix :

Code :

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

1
2
3
4
5
6
7
8
Private Sub ListeDesignation_Click()
 
    Me.Desig.Value = Me.ListeDesignation.Value ' Insère la valeur sélectionnée dans Desig dans le textbox
    Me.ListeDesignation.RowSource = ""            ' Efface la liste de ListeDesig
    Me.ListeDesignation.Value = Null                 ' Met la valeur à Null
    Me.ListeDesignation.Enabled = False            ' Vérouille la ListeDesig    
 
End Sub

Besoin d'aide!!! ça me rend folle!

[Taylorised]

Bonjour,

Lorsque tu demandes à Access de changer la valeur de la textbox en fonction du changement de valeur de la liste déroulante, si après avoir sélectionné une valeur tu met la valeur de la liste déroulante égale à "" alors la valeur de ta textbox sera "".

Essaie de stocker la valeur de la liste déroulante que tu choisis dans une variable, et ensuite de dire que la valeur de ta textbox est égale à la variable.

Sinon, essaie de faire une autre textbox. Soit une textbox pour modifier le contenu de la liste, la liste pour choisir un critère, et la seconde textbox pour contenir le critère sélectionné.

Dis moi si ca fonctionne

[Tofidou]

Parfait ça marche nickel ^^

Donc si ça intéresse quelqu'un, j'ai rajouté au début de mon code:

Code :

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

1
2
3
4
Dim strDesig as String
 
strDesig=Me.ListeDesig.Value
Me.Desig.Value=strDesig

Comme quoi, les solutions les plus simples fonctionnent toujours!

Merci beaucoup

[Taylorised]

Aucun problèmes, n'oublies pas de mettre le sujet en résolu