Discussion :

[appadawan]

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.

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

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

à noter que j'ai remplacé par les deux lignes suivantes

Code :

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

1
2
3
type_entreprise.setFocus
type_entreprise.IndexItem = i

En vain. VB me retourne une erreur 2001

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

[appadawan]

C'est résolu, en fait la combobox était liée à un autre champs nommé " " (aucune idée de ce que ça voulait dire). Du coup je l'ai supprimée en mode design et en ai recréée un autre avec le même nom et la même requête pour le contenu.

Tout marche maintenant