clemusdk
Messages postés4Date d'inscriptionjeudi 14 avril 2005StatutMembreDernière intervention15 avril 2005
-
14 avril 2005 à 11:37
toffe25
Messages postés2Date d'inscriptionmardi 26 octobre 2004StatutMembreDernière intervention17 avril 2012
-
17 avril 2012 à 12:22
Je voudrai créer un formulaire qui permette d'exporter une ou plusieurs tables de ma base de données vers un fichier excel.
Comment puis-je récupérer le nom de toutes mes tables dans une zone de liste?
Merci d'avance...
cs_Tene
Messages postés28Date d'inscriptionvendredi 23 avril 2004StatutMembreDernière intervention 2 décembre 2005 15 avril 2005 à 13:35
Salut,
'Récupération de toutes les tables de ta base
Dim td As TableDefs, nbTables As Long, i as Integer
Set td = Application.CurrentDb.TableDefs
nbTables = td.Count
for i=1 to nbTables
MaListe.addItem td(i).Name
next i
Sachant que le tabledef retourne aussi les tables systèmes qui sont:
MSysRelationships
MSysQueries
MSysObjects
MSysACEs
MSysAccessXML
MSysAccessObjects
Pour les voir : Outils options affichage Objets systèmes
cs_Tene
Messages postés28Date d'inscriptionvendredi 23 avril 2004StatutMembreDernière intervention 2 décembre 2005 15 avril 2005 à 14:51
comme tu dis, j'ai pas une requête SQL pour ça...
Pour rappel (enfin j'espère):
clause SELECT : SELECT * FROM UneTable
comment veux-tu une requête qui te retourne les tables sachant que dans la requête il faut le nom d'une table, tu peux tjs essayer : SELECT * FROM *; ;-)
clemusdk
Messages postés4Date d'inscriptionjeudi 14 avril 2005StatutMembreDernière intervention15 avril 2005 15 avril 2005 à 15:55
Merci pr ton humour mais c'est possible de le faire je l'ai fait en cour.
C un truc assez bizard d'ailleur.
Merci quand meme en éspérant pouvoir te venir en aide un jour.....
Vous n’avez pas trouvé la réponse que vous recherchez ?
toffe25
Messages postés2Date d'inscriptionmardi 26 octobre 2004StatutMembreDernière intervention17 avril 2012 17 avril 2012 à 12:22
Bonjour,
Si un jour quelqu'un cherche et tombe sur ce message, voici la
solution avec une requête.
SELECT MSysObjects.Name
FROM MSysObjects
WHERE (((MSysObjects.Type)=1) AND ((Left([Name],4))<>"MSys" And (Left([Name],4))<>"USys"));
La requête est basée sur la table système MSysObjets. On sélectionne tous les objets de type "1" (c'est les tables) et on élimine toutes les tables systèmes (elles commencent soit par "MSys" soit par "USys").