Discussion :

[accro-macro]

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

[AlainTech]

Si tu développes sur Access, tu serais mieux dans le forum correspondant.
Si tu veux, je déplace ton message.

[accro-macro]

non en fait je developpe en VBA word , mais je connecte mon application a une base de donnée access ,et via l'application je pioche ds les tables access pour remplir mes documents word

en fait j'ai cette boucle qui me permet d'afficher tout les numero de client que j'ai ds ma base de donnée

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Private Sub cmdRechercheParNumClient_Click()
Do Until rs.EOF
ComboBoxRechercheParNumClient.AddItem rs.Fields("NumClient").Value
rs.MoveNext
Loop
End Sub

encore pour faire une selection suivant un autre critere:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Private Sub cmdRechercheParNomClient_Click()
Do Until rs.EOF
ComboBoxRechercheParNomClient.AddItem rs.Fields("NomClient").Value
rs.MoveNext
Loop
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Private Sub cmdRechercheParDate_Click()
Do Until rs.EOF
ComboBoxRechercheParDate.AddItem rs.Fields("DateCommande").Value
rs.MoveNext
Loop
End Sub

le probleme qui se pose maintenant c'est que je ne peux faire qu'une selection et pas les trois en même temps c-à-d quand je click sur le bouton cmdRechercheParNumClient il m'affiche la liste ds mon combobox (ComboBoxRechercheParNumClient), par contre si je click sur les deux autre bouton ne se passe rien et rien ne s'affiche sur mes deux autres combobox (ComboBoxRechercheParNomClient et le ComboBoxRechercheParDate) , je ne sais pas comment palier a ce probleme !

j'espere que j'etais claire, je m'excuse de vous deranger encore une fois, mais je suis debutante et y'a personne pour m'aider et du coup je reste bloqué

[dadavyvy]

Il y a des chances, si ton recordset rs est public, qu'il soit déjà au dernier enregistrement, càd rs.EOF, à la fin de ton premier click.
Donc tu dois repartir sur le premier enregistrement ou relancer la requête.

[accro-macro]

oh merci tu m'a donné une idée , j'ai déclaré 3 recordsets pour repondre a mes besoins, moi je pensais en fait qu'avec un seul ca devait marcher pour les trois ! mais c'est pas le cas sinon il ne faut faire qu'une selection
merci pour ton aide c'est tres gentil a toi