OVH Cloud OVH Cloud

Sélection multiple

1 réponse
Avatar
Bauwens François
Bonjour,

Dans une zone de lsite, j'ai une dizaine de personnes. Je peux en
selectionner plusieurs. J'enregistre ceux-ci dans le champ "participants" de
ma table. Il y note donc les clef primaires (numérique) !

Private Sub Liste94_AfterUpdate()
Dim var_part As String, x As Long
For x = 0 To Me.Liste94.ListCount - 1
'parcourir tous les items de payements
If Liste94.Selected(x) = True Then
var_part = var_part & Me.Liste94.ItemData(x)
'var_part=var_part & ";"

End If
Next
participants.Value = var_part
End Sub

Ce qui se trouve dans ma table est donc une suite de chiffre (ex:710256 pour
les enregistrements 7 10 2 5 6).
Meis je ne parviens pas à réupérer ces données pour dans une requête par
exemple retrouver les noms des personnes qui y sont associé. J'ai tenté de
mettre un séparateur ";" mais alors ce n'est plus un format numérique.

Comment puis faire pour indiquer que plusieurs personnes étaient des
participants et pouvoir récupérer ces données pour faire des requête. Par
exemple la liste de toutes les participations d'une personne ?

Merci
François

1 réponse

Avatar
Jessy Sempere [MVP]
Bonjour

Je pense qu'il faut peut être revoir la façon de faire...
Il te faudrait une table supplémentaire où tu enregistrerais les
participants et la personne concernée
Personne Participants
x a
x b
x c
y a
y d

Perso je ferais plus ça...

Sinon si tu veux garder la même façon de faire, tu es obligé
de stocker la suite de chiffre de tes participants en utilisant
un séparateur, sinon tu ne seras jamais comment couper
ta suite de chiffre pour déterminer les numéros de chaque participants.

--
@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Bauwens François" a écrit dans le message de
news:
Bonjour,

Dans une zone de lsite, j'ai une dizaine de personnes. Je peux en
selectionner plusieurs. J'enregistre ceux-ci dans le champ "participants"
de

ma table. Il y note donc les clef primaires (numérique) !

Private Sub Liste94_AfterUpdate()
Dim var_part As String, x As Long
For x = 0 To Me.Liste94.ListCount - 1
'parcourir tous les items de payements
If Liste94.Selected(x) = True Then
var_part = var_part & Me.Liste94.ItemData(x)
'var_part=var_part & ";"

End If
Next
participants.Value = var_part
End Sub

Ce qui se trouve dans ma table est donc une suite de chiffre (ex:710256
pour

les enregistrements 7 10 2 5 6).
Meis je ne parviens pas à réupérer ces données pour dans une requête par
exemple retrouver les noms des personnes qui y sont associé. J'ai tenté de
mettre un séparateur ";" mais alors ce n'est plus un format numérique.

Comment puis faire pour indiquer que plusieurs personnes étaient des
participants et pouvoir récupérer ces données pour faire des requête. Par
exemple la liste de toutes les participations d'une personne ?

Merci
François