Microsoft Access est un système de gestion de base de données pour les personnes de créer leurs propres bases de données , rapports et formulaires de l'utilisateur. Access contient tous les blocs de construction pour le développement de petites applications. Vous pouvez créer des tables de données , des procédures stockées, des fonctions définies par l'utilisateur et les macros , en plus de rapports et formulaires . Tous ces composants ont leurs propres pointeurs ou des définitions de disques stockés dans une table système caché . Accès garde une trace de chaque table, rapport , formulaire, etc vous créez et stocke des informations telles que quand il a été créé ou mis à jour et drapeaux du système. Instructions
Obtenir une liste de tables
1
créer une requête pour exécuter la commande SQL ci-dessous. Cette requête récupère une liste de toutes les tables de la base de données Access . La clause where utilise le numéro 1 pour indiquer que nous voulons seulement les tables retournées.
SELECT MSysObjects.Name , MSysObjects.DateCreate , MSysObjects.DateUpdate , MSysObjects.Type , MSysObjects.Flags
DE MSysObjects
OÙ MSysObjects.Type = 1
2
retourner une liste de seulement les tables non - système de la base avec l'exemple fourni :
SELECT MSysObjects . nom, MSysObjects.DateCreate , MSysObjects.DateUpdate , MSysObjects.Type , MSysObjects.Flags
DE MSysObjects
OÙ MSysObjects.Type = 1 AND MSysObjects.Name Not Like " MSys * "
3
retourner une liste de seulement les tables non - cachés dans la base de données en exécutant la requête ci-dessous:
SELECT MSysObjects.Name , MSysObjects.DateCreate , MSysObjects.DateUpdate , MSysObjects . Type d' , MSysObjects.Flags
dE MSysObjects
OÙ MSysObjects.Type = 1 AND MSysObjects.Flags <> 8
4
trier la liste des non - tables cachées , non - système en utilisant le code SQL ci-dessous :
SELECT MSysObjects.Name , MSysObjects.DateCreate , MSysObjects.DateUpdate , MSysObjects.Type , MSysObjects.Flags
DE MSysObjects
< p > Où MSysObjects.Type = 1 AND MSysObjects.Flags <> 8 ET MSysObjects.Name Not Like " MSys * "
ORDER BY MSysObjects.Name
Utilisez la liste des tableaux en VBA
5
Chargez votre liste de tables dans un objet de jeu d'enregistrements en utilisant le code VBA ci-dessous:
rsMyTables As DAO.Recordset
set rsMyTables = CurrentDb.OpenRecordset ( " MaRequête " )
6
boucle à travers chaque enregistrement retourné dans la requête.
rsMyTables As DAO.Recordset
Set rsMyTables = CurrentDb.OpenRecordset ( " MaRequête " )
Do While Not code rsMyTables.EOF
' de manipuler les données
rsMyTables.MoveNext
boucle
7
Ajoutez le nom de chaque table dans une liste déroulante en modifiant votre boucle while : Photos
rsMyTables As DAO.Recordset
Set rsMyTables = CurrentDb.OpenRecordset ( " MaRequête »)
Me.cmbMyComboBox.Clear
Do While Not rsMyTables.EOF
rsMyTables de Me.cmbMyComboBox.AddItem ! [Nom]
rsMyTables.MoveNext Photos
boucle
8
Fermer votre dossier objet de jeu afin qu'il libère la mémoire qu'il utilise : Photos
rsMyTables As DAO.Recordset
set rsMyTables = CurrentDb.OpenRecordset ( " MaRequête " )
Me.cmbMyComboBox.Clear
Do While Not rsMyTables.EOF
rsMyTables de Me.cmbMyComboBox.AddItem ! [Nom]
rsMyTables.MoveNext
boucle
rsMyTables.Close
Set rsMyTables = Nothing
