Discussion :

[nextros]

Bonjour à tous,

Je connais actuellement un petit soucis et je vous avoue ne pas vraiment voir la solution !

Dans un formulaire je dois créer 2 zones de liste.
La 1ère (FAMILLE) la 2ème (POSITION)

Le but pour moi serait que lorsqu'on sélectionne une famille (1ère zone de liste)
la 2ème zone affiche TOUTES les positions existantes mais seul les positions contenues dans cette famille seraient sélectionnées par défaut !

Et quand on veut enlever une position de cette famille on la déselectionne ou le contraire pour en ajouter une !

Je ne vois pas vraiment si je dois obligatoirement passer par du VBA ou si une requête peut me résoudre mon problème...

Je vous remercie d'avance de votre aide.

[Marc_27]

Bonjour nextros.

Je ne sais pas si j'ai vraiment compris le soucis, mais je pense qu'il faut passer par le VBA. Je supose qui t'as dans ton formulaire les deux listes et un bouton pour supprimer des positions:

Dans ta requete du RowSource de la liste FALILLE:

Code :

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

SELECT POSITION FROM maTable WHERE FAMILLE='" & Me.FAMILLE.Value & "'"

Dans l'événement AfterUpdate de ta liste FAMILLE:

Code :

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

Me.POSITION.Requery

Tu peux aussi regarder ce tuto

ça doit remplir la liste POSITION avec les positions de la famille selectioné
Pour enlever une POSITION, tu peux faire une requete de suppresion à fin d'effacer l'enregistrement selectioné de la table POSITION.

Bonne continuation

[nextros]

Merci à toi Marc,

Pour te donner un exemple supposons qu'il y est 4 famille (la 1, la 2,... et la 4)
et 8 positions (la 1, la2,... et la 8)

quand tu selectionne la famille 1 dans la premire listbox tu vois les 8 positions existantes dans la deuxième listbox mais seules celles appartenant à cette famille sont comment dire soulignées ? (enfin deja selectionnées quoi...)

pour rajouter une position j'aimerais selectionner celle que je veux et pour en enlever une d'une famille la déselectionner.

Je ne sais pas si c'est plus clair ?

En tout cas merci à toi

[Marc_27]

Je ne sais pas s'il y a un moyen plus facille, mais je crois qui c'est un début:

Faire un tableau (monTableau) avec les positions dont cette famille les pocede (via ADO ou DAO).
Par exemple (FAMILLE=1 donc monTableau=(1, 3, 5))

Après tu peux faire un boucle FOR NEXT:

Code :

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

1
2
3
For i=0 to Me.POSITION.ListCount - 1
    If monTableau.Contains(Me.POSITION.ItenData(i)) Then Me.POSITION.Selected(i) = True
Next i

Pour l'enlever pareil:

Code :

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

1
2
3
For i=0 to Me.POSITION.ListCount - 1
    If Me.POSITION.Selected(i) = False) Then DoCmd.runSQL "DELETE FROM maTable WHERE ..."
Next i

C'est pas testé, mais cette une idée pour commencer...

[nextros]

Bonjour,

Merci pour ta réponse encore une fois Marc !

Cependant excuse mon peu d'experience mais je ne vois pas très bien comment faire la création d'un tableau ?

Quelqu'un pourrait-il m'aider à ce sujet ?

[Marc_27]

Bonjour nextros.

Par tableau je disais une variable Array. On va dire que la famille 1 a des positions 1, 3 et 5. Dans ce cas tu dois créer le tableau suivant:

Code :

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

1
2
3
4
Dim arrPositions() as Integer
arrPositions(0)=1
arrPositions(1)=3
arrPositions(2)=5

Là t'auras le tableau arrPositions=(1, 3, 5) et tu pourras (en suivant le premier code) les selectioner dans ta liste. Ton soucis maintenant va être de remplir le tableau avec les bonnes positions... (tu dois avoir ces donnés dans une table, non?)

[nextros]

plusieurs problème se posent pour moi, ce que je n'ai pas signalé (je m'en excuse) c'est qu'il y a une table qui fait le lien entre la table FAMILLE et la table POSITION !

Ensuite je ne vois pas comment faire le lien entre le tableau et la zone de liste (ListePosition ou ListeFamille)

de toute façon tout se joue sur l'évenement sur clic de ListeFamille !




Encore merci de ton aide...

[Marc_27]

Voilà, c'est bien ça
Je n'ai pas trop du temps maintenant, mais je peux essayer de t'ecrire quelque code plus tard...

Pour le moment, tu peux chercher un tuto sur ADO (ou DAO) à fin de recuperer les donnés (les positions) de ta table par rapport à la famille choisi.

Bonne continuation et A+