Discussion :

[24071959]

Bonjour,

J’aimerais de l’aide s’il vous plait, il s’agit d’écrire du code dans Access version 2016.

Un formulaire nommé F_Compositions affiche un par un les enregistrements d’une table T_Compositions qui contient notamment un champ nommé Compositions.

Une autre table nommée T_Compo_prod_Qté est sous-feuille de données de T_Compositions. Cette table a 3 champs : Compo ; Produit ; Quantité.

La jonction entre les deux tables se fait par les champs « Compositions » et « Compo »

F_Compositions contient un sous-formulaire nommé Fille29 qui affiche la table T_Compo_Prod_Qté. Plus précisément Fille 29 affiche les champs « Produit » et « Quantité »

Toujours dans le formulaire principal F_Compositions, il y a une zone de liste qui affiche des propositions de texte.

Je voudrais cliquer sur une des propositions de la liste pour que le texte choisi soit copié et collé dans le champ « produit » de Fille29 en tant que nouvel enregistrement.

D’avance un grand merci à qui m’aidera.

[argyronet]

Bonjour,

Il suffit de sélectionner le contenu pour le copier, ici par exemple quand clic dans le champ :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Compositions_Click()
    If Not IsNull(Me.Compositions.Value) Then
        With Me.Compositions
            .SetFocus
            .SelStart = 0
            .SelLength = Len(.Value)
        End With
        DoCmd.RunCommand acCmdCopy
        MsgBox "C'est copié..." & vbCrLf & "Cliquez sur la zone où coller le texte..., et appuyez sur Ctrl+V.", vbOKOnly
    End If
 
End Sub

Mais on peut aussi faire exécuter ce bout de code depuis un bouton, ou un clic droit seulement sur la zone...

Argy

[24071959]

merci Argy,

je vais appliquer votre proposition et je reviendrai au rapport

J'aurais dû vous donner le nom de la zone de liste, qui est Filtre_Produits. J'ai corrigé les deux occurrences et j'ai testé le code, qui a déclenché le débogueur.

J'ai supprimé le If, et le With, j'ai gardé ceci:

Code :

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

1
2
3
4
5
Private Sub Filtre_Produits_Click()
 
DoCmd.RunCommand acCmdCopy
 
End Sub

cela fonctionne. La copie du texte se réalise bien. je vous remercie déjà pour ce premier résultat.

Ainsi que vous le dites, je pourrais maintenant aller manuellement vers la zone où je veux coller le texte. ce que je ferai faute de mieux.

Si cependant vous savez placer le focus sur le champ visé au moyen d'un code, cela serait encore mieux.