Discussion :

[nicolas2603]

Bonjour, dans la version 2007 d'Access nous avons la possibilité de créer des contrôles Zone de Liste déroulante à choix multiple. Tout comme il est possible de créer une variable String et de lui associer la valeur d'une Textbox.value, est-il possible de créer une variable contenant l'ensemble des valeurs d'une zone de liste déroulante ? Merci

[Maxence HUBICHE]

j'adore ces questions ...

"Est-ce qu'on peut..... ?"

A part répondre : "as-tu essayé et qu'as-tu essayé? ", j'ai une réponse toute faite : oui

[nicolas2603]

salut !

Et bien j'ai essayé d'associer ma valeur comme je fais pour des variables classiques, du genre :

Code :

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

1
2
dim text as string
text = me.chkbox.value

Sauf que lorsqu'il s'agit d'une liste déroulante multi-valuée, j'ai une incompatibilité de type. J'ai essayé en déclarant ma variable sous d'autres formes (Long, Byte, Variant ...), mais pour l'instant je n'ai pas trouvé comment faire !

[Maxence HUBICHE]

tu seras obligé de boucler sur SelectedItems.
Après ta variable, ca peut être un tableau ou une collection.

C'est normal que tu ne puisse faire directement

Variable = Valeur, puisqu'il y a plusieurs valeurs

[nicolas2603]

Oui j'étais parti un peu dans cette direction, je déclare ma variable en tant que tableau, mais lorsque je fais un test pour voir ce que me retourne mon code, mon MsgBox ne me donne rien :

Code :

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

1
2
3
4
5
Dim txtINI_3(6) As String ' variable qui va recevoir les multi-valeurs
Dim nT As Variant
    For Each nT In Me.Fonction.ItemsSelected
        MsgBox Me.Fonction.Selected(nT)
    Next nT

[Maxence HUBICHE]

et en remplacent Seleccted par ItemData ?

[nicolas2603]

J'avais essayé, mais ça me met Argument non facultatif.

Code :

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

1
2
3
For Each nT In Me.Fonction.ItemData
    MsgBox Me.Fonction.ItemData(nT)
Next nT

J'ai essayé en rajoutant (nT), en l'enlevant pour le msgbox, etc ... mais idem !

[Maxence HUBICHE]

Code :

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

1
2
3
4
5
6
    Dim i As Long
    Dim t() As String
    ReDim t(Me.Fonction.ItemsSelected.count - 1)
    For i = LBound(t) To UBound(t)
        t(i) = Me.Fonction.ItemData(Me.Fonction.ItemsSelected(i))
    Next

ou

Code :

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

1
2
3
4
5
6
7
 
    Dim v As Variant
    Dim c As Collection
    set c = new collection
    For Each v In Me.Fonction.ItemsSelected
        c.add Me.Fonction.ItemData(v )
    Next

[nicolas2603]

Salut ! Merci pour ton aide, je ne connaissais pas la gestion des collections, j'ai potassé la chose. Par contre, j'ai voulu vérifier le nombre d' ItemData que cette fonction me sélectionnait pour mon enregistrement, et j'obtiens toujours le résultat nR = 0 :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function initialisationTexte()
Dim nC As Collection
Dim nV As Variant
Dim nR As Integer
 
    nR = 0
 
    Set nC = New Collection
    For Each nV In Me.Fonction.ItemsSelected
        nC.Add Me.Fonction.ItemData(nV)
        nR = nR + 1
    Next
    MsgBox nR
End Function

Sachant que ma zone de liste déroulante Fonction contient 6 valeurs et que 2 par défaut sont cochées, je me suis dis comment se fait-il que mon compteur repère m'indique 0 ? J'ai testé un MsgBox nC.Count à la fin et j'ai également 0 ! C'est bizarre non ?