Discussion :

[Pierre-alain]

Bonjour à tous,

j'essaie de créer une fonction qui me permettrait de transférer un item sélectionné dans une liste vers une text box située dans un autre formulaire. en voici le code :

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
 
Public Sub CopySelected(ByRef frm As Form)
 
    Dim ctlSource As Control
    Dim ctlDest As Control
    Dim strItems As String
    Dim intCurrentRow As Integer
 
    Set ctlSource = Forms!frmSelectMaterial.lstMaterial
    Set ctlDest = Forms!frmBillOfMaterial!sfrmBillOfMaterialMaterials.Form.MaterialDescription
 
        If ctlSource.Selected(intCurrentRow) Then
            strItems = Me.lstMaterial.Column(1)
        End If
 
    ' Reset destination control's RowSource property.
    ctlDest.RowSource = ""
    ctlDest.RowSource = strItems
 
    Set ctlSource = Nothing
    Set ctlDest = Nothing

J'ai utilisé l'exemple fournit par l'aide d'access mais je ne suis pas sur que le intCurrentRow soit la bonne propriété a appliquer puisqu'il me met comme erreur que mon objet ne supporte pas cette propriété. Qqn saurait-il comment lui dire de copier l'item sélectionné dans la liste.
Merci à vous

[PapouDomi]

Bonsoir.
Pourquoi passer par une procédure, externe au formulaire, où tous les paramètres sont écrits en dur alors que le code suivant fait cela de manière toute simple

Code :

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

1
2
3
Private Sub lstMaterial_AfterUpdate()
  Forms!frmBillOfMaterial!sfrmBillOfMaterialMaterials.Form!MaterialDescription = lstMaterial
End Sub

Cordialement, Dominique

[pgz]

Bonsoir.

Si CtlDest est une textBox, elle n'a pas de propriété RowSource.
Tu veux faire quoi exactement?

PGZ

[Pierre-alain]

Bonsoir et merci pour vos réponses.
je t'explique pgz j'ai un formulaire qui me permet de créer des pack de matériels et j'y est associé un sous formulaire ou apparait tout les matériels sélectionnés. J'aimerais via un bouton de commande, qui ouvre un formulaire, permettre à un utilisateur de sélectionner un matériel dans une liste existante. une fois sélectionné celui-ci est ajouté au sous formulaire.
tu vois un peu ou je veux en venir?
je vais essayer ta solution demain PapouDomi
merci à vous

[Pierre-alain]

Merci PapouDomi j'ai essayé ta méthode et ça marche