requete fondée sur une zone de liste

bonjour a tous,
voici mon soucis:
j'ai une première zone de liste alimentée par une requête avec quatre colonnes;
lorsque je double-clique sur une ligne de cette zone de liste, cela transfert la ligne de la colonne liée (par du code vb) dans une deuxième zone de liste qui me permet de stocker ces données;

ma première question: est il possible de transférer 2 colonnes de ma première zone de liste vers la deuxième?

et deuxième question: comment puis -je utiliser cette deuxième zone de liste pour paramétrer une requête?

par avance merci

un oubli :j'utilise access 2003:oops:

Bonsoir,
bienvenue sur DVP :salut:

tu as à ta disposition une :faq:, dans laquelle tu trouveras bon nombre de solutions, notamment celle-ci : http://access.developpez.com/faq/?page=zdl#DepZdl

bonsoir,
j'avais déjà regardé dans les faq et tuto mais sans y trouver mon bonheur...

ce que je voudrais obtenir c'est un formulaire avec:

une zone de liste affichant le résultat d'une requête me donnant donc 4 colonnes : n°auto; désignation; série; n° de série

transférer, par double clic sur cette zone de liste, les enregistrements a sélectionner ( n°auto; n° de série) vers la deuxième zone de liste (en les retirant de la première). En fait le n°auto serait dans une colonne cachée ( utilisé pour paramétrer la requete a venir) et seul le numéro de serie serait visible pour l'utilisateur pour controler la bonne selection. Je tiens a utiliser le n°auto car il existe des doublons dans les numéros de serie seuls.

ensuite utiliser la sélection de cette deuxième zone de liste pour paramétrer une requête qui me servirait a ouvrir un autre formulaire

je ne sais pas si c'est tres clair tout ca et si cette solution existe mais pour l'instant c'est celle que j'envisage.
merci de votre aide

re-bonjour,

je viens de trouver le moyen de transferer 2 colonnes vers ma seconde liste:

Code:

---

1 2 3 4 5

Private Sub Liste0_DblClick(Cancel As Integer) Me.Liste2.RowSource = IIf(Me.Liste2.RowSource = "", Me.Liste0.Column(1) & ";" & Me.Liste0.Column(2), Me.Liste2.RowSource & ";" & Me.Liste0.Column(1) & ";" & Me.Liste0.Column(2))   End Sub

---

en revanche j'ai toujours besoin d'aide pour l'utiliser dans la requete...

bonsoir a tous
quelqu'un pourrait il me dire si le code suivant correspond a mes besoins de recuperation de données pour une requete ?? :roll:
merci beaucoup

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Dim VarI as Variant Dim monFiltre as string If me.maliste.selected.count>0 then For Each VarI in Me.maliste.itemsselected Si le champ est Numerique Monfiltre=Monfiltre & Me.maliste.column(0,VarI)&"," Si c'est alpha Monfiltre=monfiltre & chr(34) &Me.maliste.column(0,VarI)& Chr(34) & "," Next VarI Monfiltre=left(monfiltre,len(monfiltre)-1)) Currentdb.querydefs("larequete").sql="Select .... from .... where Monchamp in (" & Monfiltre & ");") end if

---

bonsoir,
je viens relancer mon appel a l'aide...
je coince toujours sur la récupération des données de ma seconde liste pour une utilisation dans une requête.

je ne connais que tres peu le code vba donc si quelqu'un peut m'expliquer cette démarche, ce serait vraiment sympa

bonne soirée

probleme enfin résolu...
je donne ici la methode retenue pour ceux qui pourraient se retrouver dans mon cas :( :

pour effectuer le transfert de la Liste0 vers la Liste2:

Code:

---

1 2 3 4 5

Private Sub Liste0_DblClick(Cancel As Integer)   Me.Liste2.RowSource = IIf(Me.Liste2.RowSource = "", Me.Liste0.Column(3) & ";" & Me.Liste0.Column(2) & ";" & Me.Liste0.Column(1), Me.Liste2.RowSource & ";" & Me.Liste0.Column(3) & ";" & Me.Liste0.Column(2) & ";" & Me.Liste0.Column(1))   End Sub

---

ce qui est necessaire avec la methode de LedZeppII dans mon cas est de selectionner tous les enregistrements de la liste2:

Code:

---

1 2 3 4

Dim i As Long For i = 0 To Me.Liste2.ListCount - 1 Me.Liste2.Selected(i) = True Next i

---

ensuite tout est expliqué ici par LedZeppII que je remercie enormement:
http://www.developpez.net/forums/d29...-vers-requete/

voila, c'est résolu :yaisse2: