Discussion :

[Croweus]

Bonjour, je vous presente mon probleme :
J'ai une table produit dans laquelle se trouve la famille du produit ( Processeur, Carte graphique...), le nom du produit et son prix.
Dans une premier liste deroulante l'utilisateur selectionne la famille et ensuite affiche tous les produits de cette famille dans une zone de liste. Toutefois j'aimerai que dans cette liste se trouve dans la premier colonne le nom et dans la suivante le prix. Voici mon code actuel, le seul souci est que je ne peut pas ajouter de variable dans une colonne mais seulement une chaine.

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
 
Private Sub Liste14_AfterUpdate()
   Dim famille As String
   famille = Liste14
   Set db = OpenDatabase("C:\Documents and Settings\Michaël\Bureau\AP modif\PJC.mdb")
   Set r = db.OpenRecordset("PRODUIT")
   r.MoveFirst
   While Not r.EOF
      If r!FAMPRO = famille Then
         Prod.AddItem ("r!DESPRO;r!PRIPRO")
      End If
   r.MoveNext
   Wend
   r.Close
End Sub

Le ligne qui me pose soucis est celle ci :

Code :

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

Prod.AddItem ("r!DESPRO;r!PRIPRO")

[Tofalu]

Bonjour,

Code :

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

Prod.AddItem (r!DESPRO & ";" & r!PRIPRO)

[Croweus]

Je me sent tres faible, un grand merci a toi.