choix d'une valeur dans un zone de liste deroulante
Bonjour,
dans mon formulaire j'ai mis une zone de liste deroulante qui recupere ses valeurs d'une tables.
cette zone de liste "Reseaux" contient 4 types de reseaux (res1, res2, res3 res4) avec res4= res1+res2.
Mon soucis vient de ces res4 , vu que je peux pas afficher les informations le concernant.
je suis passé par du code , peut etre il y a quelquechose qui ne va pas , et j'ai besoin de votre coup de main .
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
Private Sub RESEAUX_BeforeUpdate(Cancel As Integer)
Dim SQL As String
Select Case RESEAUX
Case 1:
Me.RESEAUX.Value = "res1"
SQL = "Select * From FINAL where (LB_Reseaux= 'res1');"
Case 2:
Me.RESEAUX.Value = "res2"
SQL = "Select * From FINAL where (LB_Reseaux= 'res2');"
Case 3:
Me.RESEAUX.Value = "res3"
SQL = "Select * From FINAL where (LB_Reseaux= 'res3');"
Case 4:
Me.RESEAUX.Value = "res4"
SQL = "Select * From FINAL where (LB_Reseaux= 'res1' OR LB_Reseaux= 'res2');"
End Select
End Sub |
en vous remerciant
