[AC-2010] Critère d'une zone de liste dans une requête [Résolu]

[electrosat03]

Salut,

Je dois récupérer la sélection qui se trouve dans une zone de liste à choix multiple à l'aide d'une requête, comment puis-je faire cela.

Merci
A+

[Stef999]

Bonjour,

Si la demande est : comment mettre en critère le choix d'une liste dans une requete :

Dans la zone critère : il faut saisir formulaires!NomDuformulaire!NomDeLaListe
Le générateur (bouton baguette magique) permet de construire l'expression.

Cordialement,

[electrosat03]

Salut,

Il s'agit d'une ZL pas d'une ZL modifiable et le critère que je place dans ma requête est

Code :

[forms]![F_Cmd_Consommables].[Lst_Reference]

Je démarre la requête ajout avec le ! mais il me met qu'il copie 0 ligne.

Je ne vois pas pourquoi.

A+

[Stef999]

Ce ne serait pas parce que la selection multiple est activée ?

Si c'est le cas une solution (vba) est de construire une chaine sql pour ta requete ajout :

Passe en mode sql pour recupérer le code sql de ta requete

dans vba :
remplace les .... par ton code sql

Code :

1
2
3
4
5
6
sub ajoutREF()
For Each varItem In Me.Lst_Reference.ItemsSelected
    strSQL =".... ..... " & Me.Lst_Reference.ItemData(varItem) & "....."
    Docmd.runsql strSQL
Next varItem
End Sub

Cordialement,

[electrosat03]

Merci pour ta réponse, j'essaye demain et on se dit quoi.

A+

[electrosat03]

Salut,

Bon, j'ai essayé ceci mais il m'ajoute 0 ligne.

Pourtant quand je regarde le code en pas à pas, il prend bien les lignes sélectionnées 1 à 1.

Code :

1
2
3
4
5
6
7
For Each varitem In Me.Lst_Reference.ItemsSelected
    StrSql = "INSERT INTO T_Tempo_Cmd_Conso ( Reference, Product_type, Description )" & _
    " SELECT R_Cmd_Conso.Reference, R_Cmd_Conso.Product_type, R_Cmd_Conso.Description" & _
    " FROM R_Cmd_Conso" & _
    " WHERE (R_Cmd_Conso.Reference)='" & Me.Lst_Reference.ItemData(varitem) & "';"
    DoCmd.RunSQL StrSql
Next varitem

Et aucun message d'erreur.

Merci pour l'aide
A+

[Stef999]

Est ce que la liste possède plusieurs colonnes ? Dans ce cas c'est ça qu'il faut mettre dans la requête ... le numéro de la première colonne étant 0

Me.Lst_Reference.ItemData(NuméroDeColonne,varitem)

Cordialement,

[electrosat03]

Bon, ça fonctionne, le seul hic c'est que qq fois la dernière sélection est ajoutée 2 fois ou 4X ou 8X ???

[electrosat03]

Salut,

OK, j'ai résolu tous les problèmes du post, à bientôt pour d'autres questions.

A+