Sujet Précédent Sujet Suivant

[Access 2000]Liste des tables d'une BDD

Résolu/Fermé
mishan Messages postés 38 Date d'inscription mardi 15 novembre 2005 Statut Membre Dernière intervention 19 mai 2008 - 23 nov. 2007 à 10:16
 phano - 29 janv. 2009 à 19:37
Bonjour,

Je travaille sous Access 2000 avec VBA et j'ai besoin, pourl'un de mes formulaire, d'avoir une liste déroulante (Zone de liste) qui contiendrait la liste des tables qui se trouvent dans ma base de données.

En fait je voudrait pouvoir faire comme pour oracle lorsque l'on demande de lister des table du scema de l'utilisateur, du genre
SELECT table_name FROM user_tables;
mais en version Access.


Je précise que dans cette meme base de données, j'ai des tables qui sont masqué, donc je ne veux afficher que ceux qui ne sont pas masquées.

Est il ppossible de faire ça ? et comment ?

Si oui pourriez m'aider parce que je ne sais pas comment le faire.
Donnez moi juste une petite indication pour m'aider à avancer ce serait bien.

Merci par avance.

7 réponses

Réponse 1 / 7
le père
23 nov. 2007 à 10:32
Bonjour, 
Dim Nom$
Dim UneTable
  For Each UneTable In CurrentData.AllTables
    Nom$ = UneTable.Name
    If (UCase(Left$(Nom$, 4)) <> "MSYS") And _
       (UCase(Left$(Nom$, 5)) <> "TABLE") Then  ' tri de certaines tables
      LST1.AddItem Nom$
    End If
  Next UneTable
1
mishan Messages postés 38 Date d'inscription mardi 15 novembre 2005 Statut Membre Dernière intervention 19 mai 2008 1
23 nov. 2007 à 10:55
Excuse moi j'ai essayé ton code mais j'ai une erreur sur la ligne

LST1.AddItem Nom$

Access me dit "Membre de méthodes ou de données introuvable"

C'est quoi cette erreur ?
0
Réponse 2 / 7
fourvin Messages postés 276 Date d'inscription lundi 19 mars 2007 Statut Membre Dernière intervention 2 février 2012 102
23 nov. 2007 à 10:34
ce ne serait pas plutôt : ... CurrentDb.AllTables (plutôt que CurrentData) ?
0
le père
23 nov. 2007 à 10:45
Bonjour,

ça tourne chez moi comme ça (Access 2003) et l'aide précise clairement que AllTables s'applique à CurrentData
0
fourvin Messages postés 276 Date d'inscription lundi 19 mars 2007 Statut Membre Dernière intervention 2 février 2012 102 > le père
23 nov. 2007 à 10:46
OK, j'aurai appris qqchose :)
Merci.
0
Réponse 3 / 7
mishan Messages postés 38 Date d'inscription mardi 15 novembre 2005 Statut Membre Dernière intervention 19 mai 2008 1
23 nov. 2007 à 10:40
Bonjour,

je vais essayer ca et je vous dirais le résultat. Merci
0
Réponse 4 / 7
mishan Messages postés 38 Date d'inscription mardi 15 novembre 2005 Statut Membre Dernière intervention 19 mai 2008 1
23 nov. 2007 à 10:48
Le Père, j'ai essayé ton code mais il me met une erreur pour LST1.AddItem Nom$ avec comme message "Membre de méthode ou de donnée introuvable". C'est quoi cette erreur ?
0
le père
23 nov. 2007 à 10:54
Bonjour,

Laisse tomber le LST1 et ajoute le Nom$ dans ta liste par une autre méthode. La méthode Additem n'existe pas dans toutes les variantes de VBA, j'ai déjà rencontré le cas.
0
mishan Messages postés 38 Date d'inscription mardi 15 novembre 2005 Statut Membre Dernière intervention 19 mai 2008 1 > le père
23 nov. 2007 à 10:56
OK je vais essayer merci

------------------------------------------------------------------------------------------------------------
0
Renfield
23 avril 2008 à 13:33
Pour Access97, pas de Méthode AddItem aux comboBoxes...
faut donc utiliser RowSource :

Private Sub Form_Load()
Dim sBuffer As String
Dim oTable As TableDef
For Each oTable In CurrentDb.TableDefs
If LenB(sBuffer) Then
sBuffer = sBuffer & ";"
End If
sBuffer = sBuffer & oTable.Name
Next oTable
Modifiable0.RowSourceType = "Value List"
Modifiable0.RowSource = sBuffer
End Sub
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 7
mishan Messages postés 38 Date d'inscription mardi 15 novembre 2005 Statut Membre Dernière intervention 19 mai 2008 1
23 nov. 2007 à 11:41
Bon j'ai modifié pour avoir la liste des tables de la base de donnée et ca marche.

Merci le Pèere pour ton aide ...


J'ai juste un autre problème si tu pouvais m'aider STP ??


Mon problème est que dans ma base, j'ai des tables qui sont masquées donc qui ne doivent pas apparaitre dans la liste déroulante.

Comment je dois faire pour ne pas les afficher ?
0
Réponse 6 / 7
mishan Messages postés 38 Date d'inscription mardi 15 novembre 2005 Statut Membre Dernière intervention 19 mai 2008 1
27 nov. 2007 à 16:48
Laissez tomber; j'ai fait autrement en passant par une table.
0
Réponse 7 / 7
phano
29 janv. 2009 à 19:37
Bonjour Mishan,

je sais que c'est un peu obsoléte de te poser cette question mais je n'arrive pas à faire une liste des table qui se trouve dans ma BD...peut tu m'aider?
je suis débutant, j'ai beau essayé de chercher mais rien n'y fait...
je t'explique, j'ai créé un userform ou était un combobox (dans XL), je voudrais grace a une macro récupérer toutes les tables de ma BD et faire le choix d'en sélectionner, pour la visualiser apres...je ne sais pas si je me suis fait bien comprendre...

en tout cas je pense que tu pourrais m'aider...

Merci par avance!
0

Discussions similaires

Liste des tables d'une bdd oracle
Titelle -
bernie_liege -

17 réponses
liste de noms par ordre alphabétique
alma -
alma13 -

23 réponses
Table des matières dont les titres n'apparaissent pas..
Synua -
ggg -

10 réponses
Annuaire inversé liste rouge
caro2lille -
gwendolyne72 -

13 réponses
SQL Lister les tables d'une base
ruth -
sara -

29 réponses