Discussion :

[bb62]

Bonjour à tous,

J'ai un petit Probléme :

J'ai un Premier Formulaire avec :

- 3 Combobox ("Nom_Equipe", "Libellé_Vacation" et "Nom_Agent")
- un bouton entrée

La Combobox Nom_Equipe va chercher dans une base Access (2003) les noms Equipes disponibles. Dans Le Click de cette combobox, la combobox Nom_Agent est lié à cette combobox et lorsque je clique sur un Nom_Equipe cela me met les Agents correspondant à cette equipe.

La Combobox Libellé_Vacation va chercher dans Access les vacations disponible (Nb: Vacation = 6h00-14h00; 14h00-22h00 et 22h-6h00.

Dans la base de donnée, j'ai une table Avoir : les champs sont ajouter lorsque je click sur le couton Entrée. Dans cette table il y a les champs Code_Agent, Code_Equipe, et Code_Vacation.
Et quand je click sur le bouton entrée ça m'ouvre un formulaire 2.

Formulaire2 :
Dans ce formulaire j'ai un bouton renvoyer formulaire 1,

J'aimerai que lorsque je click sur ce formulaire l'equipe que javait selectionner au debut, et la vacation que j'avait selectionner restent (par exemple j'avait selectionné "A" et "14h00-22h00", quand je click sur le bouton le "A" et le "14h00-22h00" restent selectionner.

Mais par contre que la combobox nom_agent se rafaichi car il mankera un agent dans la liste et c'est la que ça coince. Car quand je click sur le bouton "revenir form1" l'agent que j'avait selectionner au debut est toujours la. Comment pourrais-je faire? J'ai deja essayer de mettre form1.nom_agent.clear mais la ça m'efface tout ce qu'il y a dans nom_agent.

J'espere avoir été le plus clair possible.

Merci d'avance.

Ps our le code je travaille en VIsual Basic 6.0

[ouskel'n'or]

Il me semble que jpeg.marques a donné la réponse la semaine dernière, un truc comme
Combo.selected(0) = true

Sans garantie, je n'ai pas le code sous le coude, tu vérifies

A+

[bb62]

On ne peux pas faire de .selected dans une combobox en VB6

[jmfmarques]

Salut à toi Usqul'nour (je suis jmfmarques et pas jpeg.marques). Pourquoi pas marques.wmf (j'adore les vecteurs...) ?

Jmfmarques dit :

Code :

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

1
2
3
Private Sub Command1_Click()
  Combo1.ListIndex = 0
End Sub

0 pour aller au 1er, ... n pour aller ai énième..

Ciao, OUZLELNAUR

[méphistopheles]

c'est vrai qu'ouskel' à desproblèmes avec les noms...

[jmfmarques]

Je rigolais !!!!