Tutoriel pour Drag and Drop entre deux formulaires Access

Salut à tous!

Je viens de réaliser un petit tutoriel qui explique comment on peut réaliser un joli Drag and Drop entre deux formulaires Access!
Je l'utilise dans mes applications et ca fait tout de suite son effet.

Vous pourrez le trouver sur mon site:
http://www.gylsolutions.fr/fr/blog/7...cess-drag-drop

C'est le premier article que je fais mais je compte bien vous livrer d'autres secrets dans les mois à venir :P

Et surtout, n'hésitez pas à me faire part de vos commentaires!

En espérant vous avoir aidé...

Bonjour yonnel,

joli tuto... je cherchais un truc dans ce genre... merci de l'avoir fait.:ccool:

Curt

Avec plaisir! J'ai beaucoup utilisé les tutos de Développez.net, donc à mon tour de partager mes connaissances :D

Là, c'est la base du drag and drop, mais avec un peu d'imagination ça peut se décliner de plein de manières et beaucoup de fonctionnalités peuvent être ajoutées...
Par exemple, ordonner les listes, faire une "preview" lors du survol, utilisation pour un système de gestion de fichier/de personnel, utilisation dans un planning...

J'ai encore pas mal d'astuce du genre à faire partager dans les semaines/mois à venir!
Je viendrais vous faire signe quand de nouveaux tutos seront en ligne :ccool:

Bonjour,

Très bon, très beau, un tutoriel qui me servira.

Respects ! :ave:


Cordialement

Bonjour,

J'ai adapté la solution ci-dessus afin de pouvoir associer l'information de deux tables différentes (dans 2 sous-formulaires différents) via un drag-n-drop.

Dans cet exemple, la position du "drop" est très importante sur le sous-formulaire de destination. Donc, il faut identifier, via la position du curseur, la ligne de la table survolée.

J'ai aussi dû modifier la classe de Stephen Lebans (http://www.lebans.com/conformscurcontrol.htm) qui permet d'identifier la ligne d'un formulaire continu survolée par le curseur. Originalement, la classe était basée sur un textbox, je l'ai adapté pour fonctionner sur un Label. Donc, quand on survol le Label, on peut identifier la ligne.

Particularités :

1. Dans les 2 sous-formulaires, tous les contrôles doivent être locked=true et enabled=false.
2. Ensuite, on place un "Label" vide qui couvre toute la surface où l'on veut pouvoir cliquer (Généralement, tous les autres contrôles). De plus, on doit s'assurer qu'il soit sur le dessus de tout (Bring to front).
3. Dans le formulaire principale, on initialise différentes propriétés des deux sous-formulaires
4. Dans chaque sous-formulaire, la ligne eLabel.datafieldToDisplay doit représenter la clé primaire respective de chaque table source du formulaire. S'il y a plusieurs champs, entrer le nom de chacun des champs séparer par des point-virgules.
5. Dans chaque formulaire, dans la fonction associate(Byval infosToAssociate as string), on doit implémenter les actions à prendre pour associer les deux informations.

Pièce jointe 95120

Par contre, je ne sais pas comment l'application peut réagir sur une requête complexe. Je le test et je vous reviens!!!

J'espère que cette source va servir a plusieurs d'entre-vous!
Bonne journée.

P.S.: J'espère avoir cité toutes mes sources. Et si vous voyez une façon de simplifier cette application, faites-moi signes. merci.

Salut it-worker!

J'utilise aussi une variation de ce code ou des lignes sont attachées à d'autres. Je crois que c'est plus ou moins ce que tu veux faire.

Dans ce tutoriel j'ai livré les bases mais la suite viendra peut être dans un prochain tuto ;)

Mais en attendant, voilà quelques pistes:

• Pour repérer quelle zone est survolée, je calcule le numéro de l'enregistrement du sous formulaire en me basant sur la position de la souris. Tu auras donc besoin d'utiliser la hauteur des sections en tête, détail et pied.
• Pour gérer les cas où il y a une barre de défilement, j'utilise la fonction GetScrollBarPos de Lebans (http://www.lebans.com/setgetsb.htm) + une petite astuce pour ne pas pouvoir descendre en dessous de la dernière ligne (je te livrerais l'astuce si besoin!)
• Pour faciliter la navigation, je fais une mise en forme conditionnelle de l'enregistrement survolé. Pour ça, à chaque fois que l'outil détecte qu'un enregistrement est survolé, je met son flag à 1 et celui des autres à 0 (et la MEF est liée à ce champ).

Donc il y a un peu de boulot mais ça marche! :ccool:
N'hésite pas à me recontacter si tu bloque quelque part

Bonjour,
je suis entrain de développer une application internet riche permettant aux utilisateurs de construire des diagrammes de classes comme avec starUML et j'ai besoin d'aide svp. Je voulais savoir comme faire un drag and drop entre deux panel l'un contient les composants à dragger(rectangle, cercle, liens simples, liens de compositions....)et l'autre contient les composants du diagramme de classe (qu'ils sont des instances des composants dans le premier panel).
Cordialement.

Bonjour Saifesprit,

Si je comprends bien tu veux placer tes différents composants dans un formulaire (en mode simple). Et ces composants sont contenus dans une sorte de Toolbox (qui est en fait un autre formulaire).

C'est tout à fait envisageable mais ça demande de revoir le code en profondeur! Ca me donne d'ailleurs une bonne idée de tutoriel pour la suite :D

Tu peux cependant t'en inspirer. Mais je pense que tu devras sûrement recréer le code pour chaque composant. Voilà comment je pense que tu devrais procéder:

• Tu places tes différents composants dans le formulaire 1
• Tu créés autant de sous formulaires "drag" que de composants
• Tu ajoutes un évènement mouse_down par contrôle comme dans le tutoriel
• Lorsque l'outil détecte que le bouton est relaché:
• Tu contrôles si on est sur le formulaire 2
• Si oui, tu crée une nouvelle forme correspondante à la sélèction dans le formulaire 2 à la dernière position de la souris

Voilà, et dis moi si tu bloques quelque part :ccool:

Bonjour yonnel,

Je travaille actuellement sur le même type d'application : drag and drop de ligne à ligne entre 2 formulaires. J'utilise la méthode de compter le nombre de ligne pour repérer l'enregistrement du second formulaire.
Cependant, j'aurais voulu que pour améliorer l'ergonomie, qu'un format particulier apparaisse sur l'enregistrement survolé, mais je n'y arrive pas.
En effet, avec les mises en forme conditionnelle, celles-ci s'applique que lorsque je déclic la souris, mais pas en "temps réel".
Existe-t-il une méthode pour y parvenir?

En vous remerciant par avance.

----
Meilleurs voeux

Salut pabisiakm,

Il est tout à fait possible de mettre en évidence l'enregistrement survolé (je l'ai fait dans quelles unes de mes applications!).

Dans la table liée à ton formulaire, rajoute un champs Oui/Non (appelle le "IsOver" par exemple).
Dans la boucle liée à l’évènement mouse_down, il faut que tu mettes à jour le champs IsOver à Vrai pour l'enregistrement survolé.
Pour ce faire, il faut que tu calcule lequel est survolé puis que tu fasse une mise à jour avec un petit Docmd.RunSQL.
our adapter la mise en forme, tu n'as alors qu'a faire une mise en forme conditionnelle liée à ce champs "IsOver"...


Voilà le principe de base!

C'est bon, cela fonctionne.
En fait, après la modification je ne faisais pas de "Recalc" du form pour actualiser..

Merci en tout cas!

Salut,

J'ai supprimé le contenu de mon site, donc l'article en question n'existe plus!
Mais si vous voulez, je vous met les sources ci joint!

Je vais tenter de voir si je retrouve le tuto complet...