Bonjours tous,

dans un combobox je veux afficher la liste des clients que j'ai sur access

j'applique ce 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
 
Private Sub UserForm_Initialize()
 
  Set ws = DBEngine.Workspaces(0)
  Set db = ws.OpenDatabase("C:\BD\BaseDeDonnee.mdb")
  Set rs = db.OpenRecordset("Clients", dbOpenTable)
 
ComboBoxRechercheParNumeroClient.AddItem rs.Fields("NumClient")
 
End Sub 
 
Private Sub ComboBoxRechercheParNumeroClient_Change()
ComboBoxRechercheParNumeroClient.Style = fmStyleDropDownList
ComboBoxRechercheParNumeroClient.AddItem rs.Fields("NumClient").Value
End Sub
par contre je n'arrive pas a afficher toute la liste et je ne sais pas comment faire
Je débute en VBA, soyez indulgent
avant tout je vous remercie , grace a ce site j'ai pu trouver des sources qui m'ont permis de comprendre certains fonctionnements de VBA et avancer un peu.

merci de votre reponse