Discussion :

[jouf]

bonjour, je cherche à récupérer les champs selectionnés par l'utilisateur pour les mettre dans une autre table. J'ai effectivement trouver quelque chose qui correspondrai dans la FAQ,
http://vb.developpez.com/faq/?page=Controles#datalist

mais ca ne fonctionne pas.

quelqu'un a t'il une piste à suivre?

merci d'avance,
jouf

[khany]

bonjour, je cherche à récupérer les champs selectionnés par l'utilisateur pour les mettre dans une autre table. J'ai effectivement trouver quelque chose qui correspondrai dans la FAQ,
http://vb.developpez.com/faq/?page=Controles#datalist

mais ca ne fonctionne pas.

quelqu'un a t'il une piste à suivre?

merci d'avance,
jouf

Qu'est-ce qui ne fonctionne pas ? Ce code tourne dans mes applications depuis des années (enfin depuis l'ADO évidemment )

[jouf]

Excel me donne une erreur dès la ligne

Code :

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

Set DataCombo1.DataSource = rst

l'erreur est "membre de méthode ou de données introuvable"

[jouf]

oups, je voulais dire Access..

Edit
Just pour info : Pour corriger l'un de tes messages, tu as le bouton "Editer" en haut à droite

[jmfmarques]

J'ai des difficultés à voir, avec ce que tu nous "offres" ici généreusement, où et comment a été initialisée la base de données...
tu peux nous dire ?

[jouf]

lool,
voila,je résume:
j'ai deux tables: données_prix et estimation
un formulaire de recherche qui via une listbox "lstresults" m'affiche le résultat d'une recherche.
maintenant mon but et de rentrer dans ma table estimation l'enregistrement selectionné dans cette listbox.

j'ai donc parcouru les FAQ, et je cherche à utiliser le code de khany
http://vb.developpez.com/faq/?page=Controles#datalist

j'espere avoir ete plus clair

[jmfmarques]

j'espere avoir ete plus clair

hélàs non ! nous ne voyons toujours pas, avec cette explication, où a été mis et comment a éventuellement été rédigé le code d'initialisation de la base de données.

[jouf]

J'ai essayer ce code en creant un formulaire, mis un control listbox dessus et j'ai copié ce code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Private Sub DataCombo1_BeforeUpdate(Cancel As Integer)
Set rst = CurrentDb.OpenRecordset("select * from données_prix")
 
Set DataCombo1.DataSource = rst
Set DataCombo1.RowSource = rst
DataCombo1.ListField = "col1"     'nom du champ
'Si l 'on désire voir l'élément sélectionné en surbrillance, il faut ajouter au code précédent :
 
 
DataCombo1.DataField = "col1"
'Pour placer le recordset sur l'élément sélectionné et récupérer la valeur des autres champs de cet enregistrement :
 
End Sub
 
Private Sub DataCombo1_Click()
 
  If DataCombo1 <> "" Then
      rst.Bookmark = DataCombo1.SelectedItem
  End If
 
 End Sub

mais dès la ligne

Code :

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

1
2
 
Set DataCombo1.DataSource = rst

j'ai une erreur, et en effet, la méthode Datasource n'appartient pas à un object de type listbox

est ce enfin clair?

[ThierryAIM]

Dis-nous déjà si tu es sous VB6 ou VBA Access ?

parce que j'ai l'impression que tu mélanges tout , et surtout que tu ne sais pas ce que tu fais

le copier/coller n'est pas le meilleur moyen d'apprendre, et surtout de comprendre ce que tu fais

[jouf]

je suis d'accord avec toi. Le copier/coller c'est juste quand je n'arrive pas à trouver une solution, et je crois que celui-ci n'a pas été le meileur! Pour ce qui est de comprendre, je fais ce que je peut .

je suis sous VBA Access,

[ouskel'n'or]

Tu devrais regarder à Set, pour la syntaxe (F1). Tu verrais tout de suite au moins une de tes erreurs.

Set objectvar = {[New] objectexpression | Nothing}

Et donc, tes deux lignes là ont un pb

Set DataCombo1.DataSource = rst
Set DataCombo1.RowSource = rst

Je n'ai pas regardé la suite mais commence par là

A+