Discussion :

[jane2002]

Bonjour,

Sous Access j'ai une base de données que j'ai initialement créer.
Je voudrais faire un module ou un formulaire sous access permettant de lister les tables de cette base de données access.

Avez-vous une idée? Est ce que cela est possible?

J'ai beau cherche sur le net je ne vois rien correspondant à ma recherche.

Merci d'avance pour votre aide

[ActionAccess]

Bonjour,

Le code suivant montre comment lister le nom de toutes les tables de la base de données courante en parcourant toute la collection TableDefs avec DAO, hors les tables système "MSys".

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
22
23
24
Private Sub Commande0_Click()
 
Dim db As DAO.Database
Dim tbl As DAO.TableDef
 
' Ouvre la base de données
Set db = CurrentDb
 
Dim strListeTables As String
 
'Parcourt toute la collection TableDefs
For Each tbl In db.TableDefs
 
'exlusion des tables système
If Left(tbl.Name, 4) <> "MSys" Then
strListeTables = strListeTables & tbl.Name & ";"
End If
 
Next
 
ListeTables.RowSourceType = "Liste valeurs" 'A traduire dans la langue
ListeTables.RowSource = strListeTables
 
End Sub

Cdlt,