Discussion :

[Brasileiro]

Bonjour à tous,

Comment puis-je faire pour créer une table contenant les éléments Sélectionnés UNIQUEMENT d'une zone de Liste?

Exemple:
ma zone de liste contient des semaines:

2012/S13
2012/S12
2012/S11
2012/S10
2012/S09
2012/S08 etc...

Supposons que l'utilisateur séléctionne les semaines S08, S10, S13. Comment faire pour créer une table avec 1 champ uniquement, contenant les enregistrement ci-dessous:
2012/S13
2012/S10
2012/S09

J'ai pensé la chose suivante:

- Créer une table vide en SQL ( utiliser Create table )
- Boucler sur chaque éléments séléctionnés de la ZOne de liste
- Ajouter à travers Recordset dans la table.

Y a-t-il quelque chose toute prête ou plus simple? je suis preneur

En vous remerciant,

JPhuet

[Brasileiro]

oops je me suis trompé,

c'est bien S08

"...dessous:
2012/S13
2012/S10
2012/S08"

[Brasileiro]

bon, voilà ce que je fais, ça marche en tout cas

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
'***** Stockage des Semaines séléctionnées  *****
        'Création d'une table de stockage des semaines séléctionées par requête de création de table
        'Execute la requête
        DoCmd.OpenQuery "RL01 CRT ZZ_03_SEM_SELECTED"
 
        'Pour chaque valeur séléctionnée, ajouter dans la table ZZ_03_SEM_SELECTED
        Dim SEMSelect As Variant, SEMSelectName As String
        'Début de boucle sur les valeurs séléctionnées dans Zonne de Liste
        For Each SEMSelect In Me!Liste01.ItemsSelected
            SEMSelectName = Me!Liste01.ItemData(SEMSelect)
            'Ajout dans le champ Semaines de la table ZZ_03_SEM_SELECTED
            DoCmd.RunSQL "INSERT INTO ZZ_03_SEM_SELECTED ( Semaines ) SELECT """ & CStr(SEMSelectName) & """ AS [Semaine Séléctionnés]"
        Next SEMSelect

à preciser:
1-Mes données sont de type "text" d'où le CStr()