Discussion :

[faraudch]

Bonjour,
Voici un bout de ma syntaxe :

Code :

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

1
2
3
4
Do While Not Rs.EOF
Forms![Requete].Liste_Mon_Champ.AddItem Rs.Fields("ma_colonne")
Rs.MoveNext
Loop

Liste_Mon_Champ est une zone de liste avec choix multiple.
ma_colonne est le résultat d'une requête paramétrable.

L'insertion marche bien s'il n'y a pas trop de lignes de résultat à insérer.
J'ai un résultat qui contient 1853 lignes et lorsque la macro est terminée dans mon formulaire, j'ai une lsite de choix grise sans aucun item affiché.

Une idée ?

[micniv]

Bonjour,
regarde du coté de l'option (onglet Modifier/Rechercher) : il y a une valeur par défaut à 1000

[faraudch]

Bonjour,
J'ai augmenté la valeur de la liste à 2000.
Ca ne marche toujours pas.
Dans ma macro, il y a un endroit où je vide ma liste pour remettre tout à zéro et en l'exécutatnt pas à pas je me suis aperçu qu'après avoir effacer le 1° item, la liste se réaffiche et donc elle est bien là.
J'ai donc rajouter à la fin de la syntaxe précédente après le loop :

Code :

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

Forms![Requete].Liste_Mon_Champ.AddItem "Fin"

et ca marche mais ca ne me dit pas pourquoi la liste ne s'affiche pas avant !
Si ca peut vous aider à trouver une vraie solution !
Cordialement.

[micniv]

Dans ton code, il manque sans doute la ligne

Code :

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

Forms![Requete].Liste_Mon_Champ.Requery

Bonne suite

[faraudch]

Merci pour votre réponse, mais je dois ajouter que ma solution marche une fois sur 2 ou quand elle veut.
Le requery ne marche guère mieux.
Par contre si je mets un point d'arrêt avant la fin de la macro ca marche !
N'y a-t-il pas un problème de temps d'éxécution ?

[Invité]

Bonjour

Par contre si je mets un point d'arrêt avant la fin de la macro ca marche !
N'y a-t-il pas un problème de temps d'exécution ?

A la place du point d'arrêt utilises l'instruction DoEvents dans ton code pour voir ce que cela donne.

Philippe

[faraudch]

Bonjour,
Je testerai ça mais lundi prochain seulement.
Congés...

[faraudch]

Bonjour,
J'ai testé avec le DoEvents et toujours l'ajout d'un item en fin de liste.
Avec les 2 ça marche.
Si on en commente un, ça ne marche plus. (Quel qu'il soit).
Le requery ne change rien.
Peux-t-on considéré que c'est résolu ?
Remerciements.