Discussion :

[carembase]

bonjour,

j'ai réalisé un formulaire contenant des listes déroulantes qui me permettent de réaliser un filtrage. Le résultat de ces filtrages est envoyé
dans une ListBox (appelée: " lstResults" ). Cette ListBox se trouve dans le formulaire. cela me permet de vérifier l'efficacité du filtrage. (Jusque là tout fonctionne)

Pourriez-vous me dire comment envoyer le résultat de mes filtrages dans une table nommée: Results_Filtrage par exemple, de façon à pouvoir créer des états se rattachant à cette table.

merci d'avance

[podz]

Bonjour
Une idée comme ça : Sur l'evenement mise à jour de ta liste box, tu parcours ta liste en VB et tu ajoutes dans ta table.
J'espere que ça peut t'aider...
Podz

[carembase]

tu pourrais être plus explicite Stp

[podz]

Sur l'évèment mise à jour de ta listbox càd qd tes filtres sont réalisés, tu peux faire qqch du genre :

Code :

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

1
2
3
4
For Each varI In Me!zdl.ItemsSelected
req = "INSERT INTO Table VALUES ....
cnc.Execute req
Next varI

Podz

[FabienN]

Pour parcourir ta listBox:
http://access.developpez.com/faq/?pa...#ListBoxColumn

ET ensuite tu passe par une requete INSERT INTO
http://sql.developpez.com/sqlaz/dml/

Code :

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

sSQL = "INSERT INTO dbo_tbNumeros (Numero) VALUES (110);"

[Faw]

Salut,
Un exemple qui ajoute un enregistrement dans Tab en mettant dans
les champs C1 et C2 les valeurs des colonnes (0) et (1) de ListX.
C1 est numérique, C2 de type texte.

Code :

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

1
2
3
4
5
6
7
8
9
DoCmd.SetWarnings False
 
For I = 0 To (Me.ListX.ListCount - 1)
DoCmd.RunSQL "INSERT INTO [Tab] ( C1,C2) VALUES (" & _
Me.ListX.Column(0, Me.ListX.ItemData(I)) & ",'" & _
Me.ListX.Column(1, Me.ListX.ItemData(I)) & "')"
Next
 
DoCmd.SetWarnings True

Il y a peut-être moyen de boucler sur les colonnes à l'intérieur de
la boucle For I = 0 To (Me.ListX.ListCount - 1) (les lignes)

[carembase]

je comprend pas ces ligne de code.

For Each varI In Me!zdl.ItemsSelected
req = "INSERT INTO Table VALUES ....
cnc.Execute req
Next varI

je comprends les boucle For Next varI.
mais pas le reste

[podz]

Code :

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

For Each varI In Me!zdl.ItemsSelected

C'est à dire que tu fais une boucle uniquement pour les éléments de ta liste que tu as sélectionné.
Maintenant si tu veux enregistrer ds ta table tous les éléments de ta liste, utilise le code de Faw, il me semble plus pratique

Code :

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

1
2
3
4
5
6
7
8
9
DoCmd.SetWarnings False
 
For I = 0 To (Me.ListX.ListCount - 1)
DoCmd.RunSQL "INSERT INTO [Tab] ( C1,C2) VALUES (" & _
Me.ListX.Column(0, Me.ListX.ItemData(I)) & ",'" & _
Me.ListX.Column(1, Me.ListX.ItemData(I)) & "')"
Next
 
DoCmd.SetWarnings True

[carembase]

pour info ma listBox contien 44 colonnes et 13000 lignes (le nombre de ligne est variable)

[Heureux-oli]

Es-tu certain que c'est un combo que tu dois utiliser.
Généralement, dans un combo on a une, deux, trois ou quatre colonnes.
Mais là avec 44 colonnes
Et 13000 lignes j'espère que tout n'est pas affiché en une seule fois à l'écran

[Faw]

Tu l'a dit "ravi-oli"...
Bon toujours est-il que si le but est d'éditer un état avec le contenu de
ta liste, il y a la solution qui consiste à appliquer le RowSource de
ta liste au RecordSource de l'état.
Tu peux t'inspirer des exemples de ce tuto
http://access.developpez.com/sources...EtatFormulaire

Mais dans l'absolu, 44 champs dans une table! c'est pas un peu trop?

[carembase]

j'ai saisi le code:

Code :

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

1
2
3
4
5
6
7
8
9
DoCmd.SetWarnings False 
 
For I = 0 To (Me.lstResults.ListCount - 1) 
DoCmd.RunSQL "INSERT INTO [Tab] ( C1,C2) VALUES (" & _ 
Me.lstResults.Column(0, Me.lstResults.ItemData(I)) & ",'" & _ 
Me.lstResults.Column(1, Me.lstResults.ItemData(I)) & "')" 
Next 
 
DoCmd.SetWarnings True

(lstResults: 13000 lignes * 44 colonnes)

ca marche pas.

Par contre avec le code:

Code :

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

1
2
3
4
5
DoCmd.SetWarnings False 
For I = 0 To (Me.ListX.ListCount - 1) 
DoCmd.RunSQL "INSERT INTO [Tab] ( [AZER]) VALUES (lstResults)"
Next I
DoCmd.SetWarnings True

ca me copie X fois la valeur (Ligne 1; Colonne 1) de lstResults dans la table: [Tab]

[Modération, cafeine : Pensez à utiliser la balise [CODE] qui améliore la lisibilité, merci]

[Faw]

Ca ne marche pas...Qu'est ce qui ne marche pas?
Pour ton 2ème code, le résultat est normal car tu n'utilise pas
les index de lignes (I).
essaye de comprendre ce que tu utilises...

[carembase]

J'ai trouvé une solution,

Je cré une requete qui me récupère mes valeurs.

[podz]

Salut
N'oublies pas le tag si tu as trouvé une solution...
A+
Podz

[Tofalu]

Bon, je n'ai lu que le début

Mais s'il s'agit uniquement d'état, pourquoi créer une nouvelle table ? Autant attribuer à l'état la même source de données que la zone de liste tout simplement non ?

[Faw]

Tu l'a dit "ravi-oli"...
Bon toujours est-il que si le but est d'éditer un état avec le contenu de
ta liste, il y a la solution qui consiste à appliquer le RowSource de
ta liste au RecordSource de l'état.
Tu peux t'inspirer des exemples de ce tuto
http://access.developpez.com/sources...EtatFormulaire

Mais dans l'absolu, 44 champs dans une table! c'est pas un peu trop?

Merci pour le rappel Tofalu.