Bonjour à tous,
Je n'arrive pas à sélectionner une ligne dans une combobox, alors que quasiment le même bout de code marche très bien dans une autre combobox.
J'ai un formulaire pour saisir des informations sur une entreprise et qui sert en même temps à les modifier. J'ai un bouton "Modifier" pour pré-remplir des champs texte et sélectionner une ligne particulière dans une combobox type_entreprise (le contenu est chargé par requête sql sur une table type_entreprise). Pour ce faire, je compare la valeur retournée par une autre requête avec les ligne de la combobox et je sélectionne la ligne quand elle est présente, puis sort de la boucle.
C'est la ligne en gras qui pose problème, j'ai une erreur d'exécution '-2147352567 (80020009) Impossible d'attribuer une valeur à cet objet
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7 For i = 0 To type_entreprise.ListCount - 1 If type_entreprise.Column(0, i) = CStr(rs!Type) Then type_entreprise = type_entreprise.Column(0, i) Exit For End If Next
à noter que j'ai remplacé par les deux lignes suivantes
En vain. VB me retourne une erreur 2001
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 type_entreprise.setFocus type_entreprise.IndexItem = i
Pourtant, j'ai pratiquement le même bout de code qui fonctionne très bien dans un autre formulaire. Google ne donne absolument rien pour l'instant.
Auriez-vous une solution svp.
Merci d'avance et bonne journée
Partager