salut je developpe en vb6 Mon Probleme c'est faire une Liste de libellé des Depot ainsi quand je clique sur l'un de ces dernier il doit m'afficher tous les champs
Remarque
Pour faire une liste des Numero Depot Sa Marche 100% avec ce code Mais quand je change (dans form load )list1.additem !lib_depot il me donne libellé depot dans text1 vous pouvez voir l image pour mieux comprendre
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 -Private sub form_load() Ouverture 'Ouverture du bdd With E_client 'chargement du List1 List1.Clear If Not .EOF Then .MoveFirstWhile Not .EOF List1.AddItem !num_depot 'remplit moi list1 Par n°depot If Not .EOF Then .MoveNext Wend End With End sub -Private Sub Text1_LostFocus() If Text1 <> "" Then With E_depot .Index = "depot_ndx" .Seek "=", Text1 If Not .NoMatch Then Text2 = !lib_depot Text3 = !adr_depot Toolbar1.Buttons(2).Enabled = 1 Toolbar1.Buttons(3).Enabled = 1 Else Call Effacer End If Toolbar1.Buttons(1).Enabled = 0 End With Else Call Effacer Toolbar1.Buttons(1).Enabled = 0 Toolbar1.Buttons(2).Enabled = 0 Toolbar1.Buttons(3).Enabled = 0 End If End Sub -Private Sub text1_change() text1_lostfocus End sub -Private sub List1_clique() text1=list1 text_lostfocus End sub
Partager