Discussion :

[nonopower]

Bonjour,
je souhaite adapter un drag and drop sous access.
Je bloque sur un dernier point : il faut que je récupère la ligne d'un subform pour l'envoyer dans un autre form :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
 
Private Sub ListBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal y As Single)
    Dim MyDataObject As DataObject
    If Button = 1 Then
        Set MyDataObject = New DataObject
        Dim Effect As Integer
        MyDataObject.SetText Listbox1.Value
        Effect = MyDataObject.StartDrag
    End If
End Sub
Private Sub ListBox2_BeforeDragOver(ByVal Cancel As MSForms.ReturnBoolean, ByVal Data As MSForms.DataObject, ByVal X As Single, ByVal y As Single, ByVal DragState As Long, ByVal Effect As MSForms.ReturnEffect, ByVal Shift As Integer)
    Cancel = True
    Effect = 1
End Sub
 
 
Private Sub ListBox2_BeforeDropOrPaste(ByVal Cancel As MSForms.ReturnBoolean, ByVal Action As MSForms.fmAction, ByVal Data As MSForms.DataObject, ByVal X As Single, ByVal y As Single, ByVal Effect As MSForms.ReturnEffect, ByVal Shift As Integer)
    Cancel = True
    Effect = 1
    Listbox2.AddItem Data.GetText
    CleanReport 'effacer les valuers
 
End Sub

Pour l'instant, je n'ai pas de problèmes pour générer via des listbox.
Auriez vous une idée ?

Bonne journée et bonne fin de week end.

Arnaud

[helas]

Bonjour
avec ceci

Code :

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

1
2
 
MyDataObject.SetText Me!NomSousFormulaire.Form!Champ.Value

[nonopower]

Hello, merci pour ta réponse.
J'ai juste une question : le code sert à prendre du texte dans une image et/ou objet.
Par contre, il faut que j'active le code via mouseclick ou mouseclick quand il passe sur le sousformulaire.
C'est c epoint là que j'arrive à activer car le souos formulaire est indépendant et il n'est pas lié directement à une table).

Merci.