Discussion :

[othke]

Bonjour,

Je cherche à remplir une liste déroulante à partir du nom de mais table.
Seulement je ne souhaite intégrer que certaines tables.

Or lorsque je fait:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim db as Database
Dim Tables As TableDefs
Dim lstbox As ComboBox
 
Set db = CurrentDb
Set Tables = db.TableDefs
Set lstbox = lboxNomTables
 
lstbox.RowSource = ""
 
For i = 0 To Tables.Count - 1
lstbox.AddItem (Tables(i).Name)
Next i

Je récupère des tables de travail plus les tables systèmes.

Les tables sur lesquelles je souhaite travailler se trouve dans un groupe personnalisé que j'ai appelé DONNEES_BD.

Y aurait il un moyen de récupérer ces tables avec le nom du groupe?

Merci.

[Tofalu]

Sous Access 2010, la requête système suivante retourne la liste des éléments contenu dans mongroupe

Cette requête peut etre directement affectée à la propriété contenu de la zone de liste

EDIT : il manque la requête

Code :

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

1
2
3
SELECT MSysNavPaneGroupToObjects.Name
FROM MSysNavPaneGroups INNER JOIN MSysNavPaneGroupToObjects ON MSysNavPaneGroups.Id = MSysNavPaneGroupToObjects.GroupID
WHERE MSysNavPaneGroups.Name="MonGroupe"

[othke]

Merki

J'ai essayé mais ça n'a pas l'aire de marcher sous 2007.
Il n'y a pas de bug
J'ai mis une msgBox pour le premier Recordset et j'obtiens un message avec la requête.

En fait avec la propriété RecordCount j'ai pu vérifier que j'avais bien le même nombre d'enregistrement que de table. Donc ça à l'air de marcher.

Seulement je ne sais pas comment récupérer les noms des tables.

Olivier

[Tofalu]

Tu as essayé d'ouvrir la requête directement dans l'outils de requetage ?

[othke]

Oui à l'instant et j'obtiens un champ Name vide de 22 lignes (pour la table MSysNavPaneGroupToObjects).

pour la table MSysNavPaneGroups le champ Name correspond à DONNEES_BD soit le nom de mon groupe.

Donc ça marche nickel sauf pour récupérer des noms dans ma listbox

[Tofalu]

Et ainsi :

Code :

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

1
2
3
SELECT MSysObjects.Name
FROM MSysObjects INNER JOIN (MSysNavPaneGroups INNER JOIN MSysNavPaneGroupToObjects ON MSysNavPaneGroups.Id = MSysNavPaneGroupToObjects.GroupID) ON MSysObjects.Id = MSysNavPaneGroupToObjects.ObjectID
WHERE (((MSysNavPaneGroups.Name)="MonGroupe"));

[othke]

Génial ça marche.
Merci Tofalu. En plus grâce à toi, je viens de découvrir l'utilisation et la signification des tables systèmes.

Encore merci

[Tofalu]

Génial ça marche.
Merci Tofalu. En plus grâce à toi, je viens de découvrir l'utilisation et la signification des tables systèmes.

Encore merci

Attention, les tables systèmes doivent être utilisées le moins possibles, car d'une version à l'autre c'est parfois non portable. La preuve, mon premier code fonctionne sur 2010 et non sur 2007

[jacou]

Je récupère le bon code SQL ... Merci.