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.
Partager