Salut, dans mon formulaire je souhaite que , lorsque je selectionne un produit dans une liste, toutes ses infos apparaissent des des champs texte sauf une qui en fait apparait dans une liste.

Pour ce qui est de remplir les champs textes, aucun soucis mais pour la liste là ca coince.

voici le code deja :
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
23
24
25
26
27
28
29
Private Sub lesProduitsModif_Click()
   Dim procStock As ADODB.Command
    Set procStock = CreateObject("ADODB.Command")
    procStock.ActiveConnection = CurrentProject.Connection
    procStock.CommandType = adCmdStoredProc
    procStock.CommandText = "retourProduitX"
    Dim param As Parameter
    Dim titre As String
    Dim soustitre As String
    Dim auteur As String
    Dim prix As Double
    Dim marge As Double
    Dim id As Integer
    Dim rs As ADODB.Recordset
    id = lesProduitsModif.Value
          Set param = procStock.CreateParameter("@id", adInteger, adParamInput, , id)
          procStock.Parameters.Append param
          'procStock.Execute
 
 
     Set rs = procStock.Execute
 
     titreModif.Value = rs!titre
     soustitreModif.Value = rs!soustitre
     auteurModif.Value = rs!auteur
     prixModif.Value = rs!prix
     margeModif.Value = rs!marge
     lesTypesModif = rs!codeType
     lesProduitsModif.Requery

En fait a la selection d'un produit il faudrait que ca selectionne dans la liste des TypeProduits le type lui correspondant , mais ceci j'y arrive pas .


voici la procédure stockée aussi:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
create procedure retourProduitX
  @id as int
 
as
	select * from produit p,type t
	where p.codeType=t.code


Merci de m'aider.