Discussion :

[texas2607]

Salut à tous,
je cherche à faire un Drag&Drop entre 2 listes.
J'ai trouvé ca : http://www.developpez.net/forums/d70...-zones-listes/ et http://www.gylsolutions.fr/fr/blog/7...=1&limitstart=

en fait j'ai 2 listes (Lst_participants et Lst_Nonpartant) dans un formulaire (Chrono) basé sur une table (Participants)

1ère liste :
Lst_participants
--> Num_unique (Num)
--> Nom-participant (texte)
--> Prenom_participant (texte)
--> Non_partant (oui/non)
la condition pour être dans la liste est : Non_partant = Faux

2éme liste
Lst_Nonpartant (basée sur la meme table)
--> Num_unique (Num)
--> Nom-participant (texte)
--> Prenom_participant (texte)
--> Non_partant (oui/non)
la condition pour être dans la liste est : Non_partant = Vrai

Je voulais adapter ces codes de DragDrop (ou un autre) mais

Si vous pouvez m'aider...

D'avance merci
Fred

[FreeAccess]

Bonjour,

Je viens de regarder vite fait, la base exemple de Lionel Garnier (yonnel) http://www.gylsolutions.fr/fr/blog/7...=1&limitstart=

... quel est ton problème d'adaptation
... car pratiquement sans rien changer, cet exemple répond déjà à ton besoin

Comme l'explique l'auteur de cette Base, le principe est relativement simple (hormis la gestion du D&D...)

- deux sous-formulaires affichant soit les enregistrements dont le champ [ProductIsSelected] est coché ou non (vraie ou faux / 0 ou -1) ...... qui ici s'apparente à ton champ [Non_partant]

- sur l'événement "Sur souris relâchée" de la Zone détail du sous-formulaire, il modifie la valeur du champ [ProductIsSelected].

Code :

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

1
2
3
...
Me.ProductIsSelected = -1 ' Ou valeur = 0
...

... rien de bien compliqué

[texas2607]

Bonjour FreeAccess,
merci de t’intéresser à ma question.

En fait, l'exemple de Lionel Garnier est nickel par contre l'avantage de l'autre est le changement de place au sein du même formulaire. on peut faire soit un changement de liste soit modifier l'ordre de la liste Et c'est exactement ca que je recherche.

Je voulais conserver le "design" de Lionel Garnier mais rajouter la fonction de changement de place.

Fred