Discussion :

[r.mehdi]

Salut je travaille avec vb6 et je veux charger un combo par sql a condition que je choisis Le n°Depot 01
Exemple
j'ai 3 Combo
Le Combo1 Pour le N°Depot ,Le Combo2 pour Le Code Article, Le Combo3 Pour Designation) je veux Charger le Combo2 et Combo3 Selon Le n°Depot = 01 ou 02 ou 03 etc (chaque clique sur le n°depot il doit Me charger les Code articles et les designation qui Se trouvent Uniquement Dans Le Depot Selectionnée Es Ce Possible? Voila Mon Code
Mon 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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
 
Private Sub form _Load()
SQL = "select distinct stock.numd_stock from stock order by stock.numd_stock"
Set E_sql = base.OpenRecordset(SQL)
With E_sql                              'Chargement du N°Depot
If Not E_sql.EOF Then .MoveFirst
While Not .EOF
combo1.AddItem !numd_stock
.MoveNext
Wend
End With
 
''''''''''''''''''''
SQL = "select distinct codea_stock from stock order by codea_stock ASC"
Set E_sql = base.OpenRecordset(SQL)
With E_sql      'chargement du Code Article
If Not .EOF Then .MoveFirst
While Not .EOF
Combo2.AddItem !codea_stock
.MoveNext
Wend
End With
'''''''''''''''
SQL = "select distinct desig_stock from stock order by desig_stock"
Set E_sql = base.OpenRecordset(SQL)
With E_sql      'chargement du Designation
If Not .EOF Then .MoveFirst
While Not .EOF
Combo3.AddItem !desig_stock
.MoveNext
Wend
End With
 
End Sub
Private Sub Combo1_click()
SQL = "select stock.libd_stock, stock.qts_stock, stock.codea_stock" &  _  
", stock.desig_stock from stock where stock.numd_stock='" & combo1 & "'"
Set E_sql = base.OpenRecordset(SQL)
With E_sql
.MoveFirst
while not .Eof
combo2.AddItem !codea_stock 'chargement Code Article selon le N°depot selectionnée 
Combo3.AddItem !Desig_stock  'Chargemen du Designation selon le N°Depot selectionnée
.MoveNext
Wend
End With
End Sub

[sovo]

D'après ton code tu n'affiches pas les elements en fonction du combo1, mais tu ajoute a chaque fois de nouveau. Ce que tu doit faire, c'est de vider le combobox avant d'ajouter de nouveau element. ta procedure deviendrais donc :

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
 
 
Private Sub Combo1_click()
  SQL = "select stock.libd_stock, stock.qts_stock, stock.codea_stock" &  _  
           ", stock.desig_stock from stock where stock.numd_stock='" & combo1  & "'"
  Set E_sql = base.OpenRecordset(SQL)
 
  Combo2.Clear   'Nouvel ajout
  Combo3.Clear   'Nouvel ajout
 
  With E_sql
    .MoveFirst
    while not .Eof
       combo2.AddItem !codea_stock 'chargement Code Article selon le N°depot selectionnée 
       Combo3.AddItem !Desig_stock  'Chargemen du Designation selon le N°Depot selectionnée
       .MoveNext
    Wend
  End With
End Sub