Discussion :

[morobaboumar]

Bonsoir membres du forum !
Très heureux d'être avec vous !
Permettez moi de me pencher sur cette discussion https://www.developpez.net/forums/d1.../#post10814537.
En effet, j'aimerais savoir ce que sont les expressions suivantes:

Et les 3 codes places sur les evenements up down et move de la souris dans le formulaire
=SelRecord([Formulaire];"down")
=SelRecord([Formulaire];"up")
=SelRecord([Formulaire];"move")

que j'ai trouvées dans la discussion du lien ci dessus.

Dans quels évènements les place t on ?

Cordialement.

[tee_grandbois]

bonsoir,
comme cela:



ou beaucoup mieux, comme cela:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call SelRecord(Me, "down")
End Sub
 
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call SelRecord(Me, "move")
End Sub
 
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call SelRecord(Me, "up")
End Sub

J'ai essayé d'appliquer les 3 codes dans un sous formulaires

et dans quel but veut-tu utiliser ce code ?

[morobaboumar]

Bonjour tee_grandbois !
J'ai placé une commande sur le formulaire
pour savoir comment fonctionne le code.
Je vais le tester encore plus d'avantage voir
la suite.
A+

[morobaboumar]

Salut membres du forum !
Au depart, je me suis appuyé sur ce titre:

multiselection dans formulaire

Bonjour , on peut sélectionner pls enregistrements contigus pour faire une suppression ou un copie colle ds un formulaire.
Existe t'il un moyen en vba de récupérer la clé des enregistrements selectionnes
Merci

dans le but que les codes pourraient permettre une multi-selection de lignes dans un formulaire.
Après votre réponse j'ai placé votre code derriere la cmd "cmdSelectedCompanyNames", pour tester tous les codes mais je constate
que rien ne se passe après clique sur cette commande créée sur le formulaire.



Je vous demande, si vous voudrez bien me donner votre avis sur le fonctionnement de ces codes:
https://www.developpez.net/forums/d1.../#post10814537

Cordialement.

[tee_grandbois]

bonjour,
tu continues à copier du code et l'utiliser sans savoir ce qu'il fait ... ce code ne fait qu'afficher les identifiant sélectionnés dans une boîte message.

Je t'ai posé une question dont j'attends toujours la réponse

et dans quel but veut-tu utiliser ce code ?

Je te la repose autrement : dans quel but veux-tu récupérer les identifiants des lignes en multi-sélection ?

[morobaboumar]

bonjour,
tu continues à copier du code et l'utiliser sans savoir ce qu'il fait ... ce code ne fait qu'afficher les identifiant sélectionnés dans une boîte message.

Je t'ai posé une question dont j'attends toujours la réponse
Je te la repose autrement : dans quel but veux-tu récupérer les identifiants des lignes en multi-sélection ?

Salut tee_grandbois!
Personnellement, aucune importance pour moi dans ce domaine.
Néanmoins, cette discussion fut utile pour moi car elle m'a permis de comprendre où et comment
placer les codes suivants:
Merci infiniment.

[morobaboumar]

bonsoir,
comme cela:



ou beaucoup mieux, comme cela:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call SelRecord(Me, "down")
End Sub
 
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call SelRecord(Me, "move")
End Sub
 
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call SelRecord(Me, "up")
End Sub

et dans quel but veut-tu utiliser ce code ?

Salut tee_grandbois!
Personnellement, aucune importance pour moi dans ce domaine.
Néanmoins, cette discussion fut utile pour moi car elle m'a permis de comprendre où et comment
placer les codes ci dessus.
Merci infiniment.
Cordialement.