Problem en Combo et la recherche
Bsr J'ai fé ce code pour quand je clique sur le Combo est je choisis un Nom il me donne le Matricule ainsi le Montant Mais le Probleme que sa marche pas Mais si j'charge le combo par le matricule sa marche tres bien Alors ou est l probleme:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
| Private Sub Form_Load()
Ouverture 'Ouverture du bdd
With E_Eleves
.MoveFirst
While Not .EOF
Combo1.AddItem !Nom 'Remplir Avec Nom de Client
.MoveNext
Wend
End With
End Sub
Private Sub Combo1_Click()
With E_Eleves
.Index = "eleve_ndx"
.Seek "=", Combo1
Label6 = !Mle 'Matricule
Label7 = !Mt 'Montant
End With
End sub |
