Discussion :

[diombo]

Bonjour
J'ai une liste déroulante alimentée par une table en vba. Le code marche bien et est le 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
Set oRS = New ADODB.Recordset
 
strSQL2 = "SELECT CODE, LIBELLE FROM PR_GESTION"
oRS.Open strSQL2, con, adOpenForwardOnly, adLockReadOnly, adCmdText
With Me.lst_gestion
  .RowSource = ""
  Do While Not oRS.EOF
    .AddItem oRS.Fields("LIBELLE").Value
    oRS.MoveNext
  Loop
End With
 
oRS.Close
Set oRS = Nothing

Lorsque j'ouvre mon formulaire, j'obtient effectivement la liste des gestions, mais uniquement les libellés. Ce qui est normal.
J'aimerais pouvoir associer à cette liste, le code sous la forme de champ clé caché. De ce fait, quand on sélectionne le libellé c'est le code associé qui est enregistré dans la base de données.
De même lorsque la valeur du code change d'un enregistrement à un autre, le libellé sélectionné change
Je rappelle que je suis en vba access (odbc) et non en visual basic 6.
Je vous remercie de votre aide

[Invité]

Bonjour

Tu peux mettre la requête SQL directement en source de ta liste (Contenu ou RowSource), cela mettra donc tes 2 champs.

Il faut régler le nombre de colonnes à 2, mettre les longueurs 0;2, pour n'afficher que la deuxième.

Ensuite dans la propriété Colonne liée, mettre 1.

Philippe

[diombo]

J'ai oublié de préciser que tous les objets de la base sont indépendantes.
Toutes les tables sont dans la base de données mysql (distante)
J'utilise access pour les interfaces.
En résumé : j'ai du access qui attaque une base mysql avec du vba + odbc

[Invité]

Re

Cela n'empêche en rien de tester ce que j'ai indiqué.

Philippe

[diombo]

J'ai testé cette méthode, ça ne marche pas.
J'ai le message suivant :

J'ai essayé également le rowsource dans le code vba et j'ai la requête toute entière qui est affichée dans la liste déroulante.

[Invité]

Re

Il faut modifier la propriété Origine Source et sélectionner Table/Requête (tu peux le faire en mode création) pour que ta requête soit interprété comme une requête.

Philippe

[diombo]

J'ai bien défini l'origine de la source, la colonne liée, le nombre de colonne et la largeur des colonnes (la colonne correspondant au code à 0).
Je vous précise que la table qui stocke les informations n'est pas sur access, mais sur mysql.
Dans ma base access, je n'ai que des formulaires : c'est un choix personnel

[Invité]

Re

Et avec tout cela tu as encore un message d'erreur ?

Le résultat n'est pas celui attendu ?

Je ne pense pas que ta méthode puisse avoir une influence sur ces erreurs.

Pourquoi ne pas avoir lié les tables ?

Philippe

[diombo]

Cela ne marche pas du tout.
Ca marcherait que si les tables étaient liées dans access. Alors que la solution que je tente de mettre en place ne voudrait pas que les tables soient liées.
Comme je l'ai expliqué dans le premier message avec mon code j'arrive avoir la liste déroulante, mais je n'arrive pas à lui associé une colonne cachée (boundcolumn).

[Jeannot45]

Si j'ai bien compris, tu remplis ta liste en lisant le résultat d'une requête.
Par contre je remplacerai l'Origine Source par Liste Valeurs au niveau des propriétés de la liste déroulante
Je pense qu'il faudrait compléter ton code comme suit

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
Dim oRS As ADODB.Recordset
Set oRS = New ADODB.Recordset
 
strSQL2 = "SELECT CODE, LIBELLE FROM PR_GESTION"
oRS.Open strSQL2, con, adOpenForwardOnly, adLockReadOnly, adCmdText
With Me.lst_gestion
  .RowSource = ""
  Do While Not oRS.EOF
    .AddItem oRs.Fields("CODE").value & ";'" & oRS.Fields("LIBELLE").Value & "'"
    oRS.MoveNext
  Loop
End With
 
oRS.Close
Set oRS = Nothing

Je n'ai pas testé mais je me base sur les propriétés de la liste renseignées par l'assistant création de liste qui peut être une piste de recherche

Bonne continuation

[jimbolion]

diombo bonjour,

Tu peux spécifier directement tes valeurs nombre de colonnes et largeur colonnes dans la feuille de propriétés de ton formulaire ou les transmettre dans ton code vba (comme le décrit mon exemple).
Afin de peupler ta zone de liste, tu vas concaténer tes deux valeurs (le code étant transmis dans la colonne masquée) en utilisant le séparateur ;

Ce code devrait répondre à tes attentes.

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
17
18
19
20
21
Dim oRS As ADODB.Recordset
Set oRS = New ADODB.Recordset
'
strSQL2 = "SELECT CODE, LIBELLE FROM PR_GESTION"
oRS.Open strSQL2, con, adOpenForwardOnly, adLockReadOnly, adCmdText
With Me.lst_gestion
  .RowSource = ""
    '
    ' Definir le nombre de colonnes et la largeur des colonnes
    ' Ces propriétés auranet pu être definis directement dans la feuille de propriétés de la listbox
    '
    .ColumnCount = 2                  ' nombre de colonnes =2
    .ColumnWidths = "0;6 cm"          ' la premiere colonne masquée, la deuxieme 6 cm
    Do While Not oRS.EOF
        .AddItem oRS.Fields("CODE").Value & ";" & oRS.Fields("LIBELLE").Value   ' concatene le code et libelle
        oRS.MoveNext
    Loop
End With
 
oRS.Close
Set oRS = Nothing

Bonne continuation

jimbolion

[diombo]

bonjour,
Un grand merci à la communauté et particulièrement à jimbolion et jeannot45.
Ca fonctionne!