Bonjours tous,
dans un combobox je veux afficher la liste des clients que j'ai sur access
j'applique ce code
par contre je n'arrive pas a afficher toute la liste et je ne sais pas comment faire
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![]()
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
Partager