Discussion :

[diombo]

Bonjour,
J'ai une liste déroulante sur un formulaire indépendant et une table sur une base mysql.
J'accède à la base en ODBC et ça marche bien.
Je veux alimenter une liste déroulante par le code suivant :

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
Dim oRS As ADODB.Recordset
Dim strSql as string
Set oRS = New ADODB.Recordset
strSql = "SELECT ge_code FROM pr_gestion"
 
'ici con est ma fonction de connection à la base de donnée et con marche nikel
oRS.Open strSql, con, adOpenForwardOnly, adLockReadOnly, adCmdText
 
With Me.lst_gestion ' avec lst_gestion le contrôle liste déroulante
  .Clear
  Do While Not oRS.EOF
    .AddItem oRS.Fields("ge_code").Value
    oRS.MoveNext
  Loop
End With

J'ai un message d'erreur "Erreur de compilation :membre de methode ou de données introuvable" et la ligne ".CLear" est sélectionnée
J'ai bien coché la référence Microsoft activeX Data objects 2.8 et Microsoft activeX Data objects recordset 2.8.
Par avance, je vous remercie de votre aide

[LedZeppII]

Bonjour,

Je pense que le problème n'a aucun rapport avec ODBC.
La méthode .Clear n'existe tout simplement pas.

Essaie de réinitialiser ta liste avec

Code :

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

Me.lst_gestion.RowSource = ""

A+

[diombo]

En utilisant

Code :

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

Me.lst_gestion.RowSource = ""

, j'ai un message d'erreur '6014' : la propriété originesource doit être définie à la valeur "liste valeurs" pour utiliser cette méthode. Et la méthode est

Code :

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

Me.lst_gestion.AddItem oRs.Fields("ge_code")

[diombo]

Bonjour,
J'ai trouvé le problème. Il fallait préciser origine de la source = Liste de valeur dans les propriétés (onglet données) du contrôle liste déroulante.
Merci pour votre aide.