Discussion :

[johnrando]

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

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
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

Code :

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

 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

[loufab]

Bonjour,

Tu as dépassé 1000 enregistrements le réglage par défaut ?

Options/Base de données active/Ne pas afficher les listes lorsque le nombre...

Attention à la rapidité de chargement.

Cordialement,

[johnrando]

merci pour ta réponse
je suis sous access 2013 et je ne trouve pas ton menu

Options/Base de données active/Ne pas afficher les listes lorsque le nombre...


??
merci encore

[loufab]

Fichier/Options...