Discussion :

[jb.julien]

Bonjour à tous,

J'ai une zone de liste à sélection étendue ou multiple.
Je voudrais stocker les valeurs sélectionnées de cette de zone de liste dans un champ d'une table.

Dans mon formulaire, j'arrive bien à faire ma sélection multiple mais après enregistrement, je retrouve bien les infos de mes autres champs du formulaires mais pas mes valeurs de la zone de liste.

En espèrant avoir été clair (ce n'est pas sûr) et si quelqu'un a une solution.

Par avance
Merci
Julien

[helas]

Il y a plusieurs solutions pour une sélection multiple mais
les données sélectionnées sont
- soit stockées dans 1 champ alors il y a concaténation des sélections
- soit stockées dans une autre table, il faut alors une identification unique de l'enregistrement (NumeroAuto par exemple)
mais cela se fait avec du code

Avec une sélection unique, cela fonctionne parfaitement

[lafresheure]

Bonjour,
j'ai le même besoin que jb.julien, j'ai trouvé une solution qui me semble dans un certain contexte assez intéressante.

Description du principe
1 .Stoker les élément sélectionnés de la zone de liste sous forme elt1*elt2 ... *eltn
2. Sélectionner les lignes d'une zone liste correspondant aux valeurs stockées dans une table

Pour tester ma solution
créer
- une table : test, champ : idtest (texte)
- un formulaire (le nom importe peu): une zone de liste ayant pour nom liste0 et un bouton ayant pour nom enregistrer
dans la source de données du formulaire choisissez la table test,
le source controle de la zone de liste doit être idtest .
le contenu de la zone de liste est à votre discrétion.
copiez et coller le code suivant :


Option Compare Database
Option Explicit
Private circuitOk As Boolean

Private Sub enregistrer_Click()
On Error GoTo Err_enregistrer_Click

Dim varItm As Variant
Dim listeDeValeur As String

'Stockage des valeurs selectionnées séparées par le caractère '*'
For Each varItm In Me.Liste0.ItemsSelected
listeDeValeur = listeDeValeur & "*" & Me.Liste0.ItemData(varItm)
Next varItm

'Le premier caractere de la chaine n'est pas stocké
Me.idtest = Mid(listeDeValeur, 2, Len(listeDeValeur))

'l'utilisateur doit cliquer sur le bouton enregistrer pour valider
'sa modification
circuitOk = True
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

MsgBox "Modification enregistré"

Exit_enregistrer_Click:
Exit Sub

Err_enregistrer_Click:
MsgBox Err.Description
Resume Exit_enregistrer_Click

End Sub


Private Sub Form_Open(Cancel As Integer)
'Récupération des données stockées
'Ce procédé fonctionne pour un seul enregistrement

Dim tableauDeValeur() As String
Dim i, j As Integer

tableauDeValeur() = Split(Me.idtest, "*")
For i = 0 To UBound(tableauDeValeur)
For j = 0 To Me.Liste0.ListCount
If Me.Liste0.ItemData(j) = tableauDeValeur(i) Then
Me.Liste0.Selected(j) = True
End If
Next
Next

End Sub

Private Sub Form_BeforeUpdate(Cancel As Integer)

If circuitOk = False Then
MsgBox "La mise à jour de vos données ne sera pas validée, cliquer sur le bouton enregistrer.", vbExclamation, CurrentDb.Properties!AppTitle
Cancel = True
Exit Sub
End If

End Sub