Discussion :

[trotters213]

Je me bats avec Access 2007 depuis ce matin pour essayer de remplir une liste déroulante avec les données contenues dans ma BD.
Je fais donc ceci :

Code :

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

1
2
3
query = "SELECT DISTINCT Type_Station FROM Stations_Base"
liste_inventaire.RowSource = query
liste_inventaire.Requery

mais le souci c'est que dans ma base je n'ai que des abréviations et je voudrais mettre dans la combo box les vrai noms des valeurs : par exemple dans ma base j'ai "H" mais dans la liste je veux faire apparaitre "Hydro".
Le souci c'est que je ne trouve rien pour modifier la combo box (ça déjà ça me )

Je me dis donc que je vais procéder différemment, je tente donc de remplir mes champs via une connexion ADODB.
Le problème c'est que je veux une connexion sur la base courante donc je ne vois pas quoi mettre dans ce champ à la place du Data source

Code :

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

cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=.\Comptoir.mdb;"

(je ne peux pas utiliser de connexion ADO car il faut coché une case dans outils -> référence et l'application est destinée à des gens n'ayant aucun niveau informatique donc il faut faire le plus simple possible).

Dernier point(je ne suis jamais arrivé jusqu'à ce point mais tant qu'à faire je pose la question comme ça ça sera déjà fait), lorsque j'aurais enfin réussi à me connecter, c'est avec un recordSet que l'on récupère les valeurs ?

Merci d'avance pour votre précieux aide.

PS : c'est ma première demi-journée de Access de ma vie donc soyez indulgent

PS : 2 au passage si quelqu'un connait un bon lien pour les classe VBA (style MSDN pour C#) je suis preneur

[Arkham46]

Bjr,

Si j'ai bien compris :
Pas besoin d'ADO à priori (au passage les références déclarées dans la Bd n'ont pas à être redéclarées par tous les utilisateurs, c'est sauvegardé dans le fichier)

- Prévoir un champ description dans la table
- Mettre la table en source de la liste (avec type de source : table/requête), ou alors une requête avec les deux champs clé + description, ex :select distinct Type_Station,Description_Station From Stations_Base
- changer le paramètre "nombre de colonne" de la liste (1 colonne clé + 1 colonne description = 2 colonnes)
- Mettre des tailles de colonne de manière à masquer la clé, par ex : 0cm;4cm
- vérifier que le numéro de colonne liée est bien celui de la clé : 1 à priori

Au mieux, faire ce paramétrage sur le champ clé dans la table, ainsi lors de l'ajout de ce champ dans un formulaire, la liste est automatiquement reprise.

[trotters213]

merci pour ton aide Arkham46.
Le problème c'est que je ne peux pas toucher la base, plusieurs personnes à travers le monde utilisent le même modèle de base (mais chacun on leur bases attention) donc si je modifie quelque chose chez moi, ça ne pourras pas fonctionner chez eux.
Je dois simplement réaliser un module et un formulaire qu'il n'auront qu'à intégrer à leur base.

Aucune des choses que je souhaite faire au-dessus est possible ?!?!

[trotters213]

J'ai trouvé une manière de faire différente mais ça plante à l'éxecution et je n'arrive pas à comprendre comment résoudre le problème.
je fais ça :

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 db As DAO.Database, rst As DAO.Recordset, fld As DAO.Field
    Dim query As String
    ' Ouverture de la base de données
    Set db = CurrentDb
    query = "SELECT DISTINCT Type_Station FROM Stations_Base"
    ' Ouverture du recordset
    Set rst = db.OpenRecordset(query, dbOpenForwardOnly, dbReadOnly)
 
    While Not rst.EOF
        Form_formulaire_export_hydraccess.liste_inventaire.AddItem rst.Fields(0).Value
        rst.MoveNext
    Wend
 
    ' Fermeture du Recordset
    rst.Close

mais ceci me met une "erreur d'éxecution 6014 : Le propriété d'OrigineSource ..."
Et si je fais ça

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
Dim db As DAO.Database, rst As DAO.Recordset, fld As DAO.Field
    Dim query As String
    ' Ouverture de la base de données
    Set db = CurrentDb
    query = "SELECT DISTINCT Type_Station FROM Stations_Base"
    ' Ouverture du recordset
    Set rst = db.OpenRecordset(query, dbOpenForwardOnly, dbReadOnly)
 
    Form_formulaire_export_hydraccess.liste_inventaire.RowSource = Form_formulaire_export_hydraccess.liste_inventaire.RowSource & rst.Fields(0).Value
    rst.MoveNext
    While Not rst.EOF
        Form_formulaire_export_hydraccess.liste_inventaire.RowSource = Form_formulaire_export_hydraccess.liste_inventaire.RowSource & ";" & rst.Fields(0).Value
        rst.MoveNext
    Wend
 
    ' Fermeture du Recordset
    rst.Close

ça compile tout nickel mais lorsque je clique sur le liste j'ai une erreur "La source d'enregistrement <hophophop> spécifié dans ce formulaire ou cet etat n'existe pas."
Que faire ? Je comprends d'où vient la première erreur mais je ne sais pas la résoudre et je n'ai aucune idée de la seconde par contre

[trotters213]

C'est bon j'ai enfin trouvé, il suffisait simplement de mettre l'attribut "Origine source" dans la fenêtre propriété à "Liste valeur".
J'suis un