Bonjour à vous tous
J'avais un code qui marchait correctement avec des entrées de clients
Mais mon nombre de client ayant augmenté , mon combo box est plein mais je voudrais bien garder cette méthodes pour mon formulaire (liste des clients )
voici mon code
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
|
'Remplir le combo box des clients avec "tous"
If RBTypeClient.Value <> 4 Then
Requete = "SELECT T_Client.NomClient, T_Client.NoClient FROM T_Client WHERE (((T_Client.TypeClient)=" + CStr(RBTypeClient.Value) + ")) ORDER BY T_Client.NomClient;"
Else
Requete = "SELECT T_Client.NomClient, T_Client.NoClient FROM T_Client ORDER BY T_Client.NomClient;"
End If
CBNomClient.RowSource = "Tous"
Set BaseDonnee = CurrentDb
Set rst = BaseDonnee.OpenRecordset(Requete)
Do Until rst.EOF
CBNomClient.RowSource = CBNomClient.RowSource + ";" + rst.Fields("NomClient").Value
rst.MoveNext
Loop
rst.Close |
la ligne
CBNomClient.RowSource = CBNomClient.RowSource + ";" + rst.Fields("NomClient").Value
pose problème maintenant car le nombre de client est trop important
connaissez vous une autre méthode pour faire la même chose ??
merci de votre aide
Partager