Microsoft Access is een database management systeem voor individuen om hun eigen databases , rapporten en gebruikers formulieren te maken . Access bevat alle bouwstenen voor het ontwikkelen van kleine applicaties . U kunt tabellen voor data , opgeslagen procedures , door de gebruiker gedefinieerde functies en macro's in aanvulling op de rapporten en formulieren te maken . Al deze onderdelen hebben hun eigen pointers of opnemen definities opgeslagen in een verborgen systeem tafel . Toegang houdt bij elke tafel , rapport , vorm , enz. die u maakt en slaat informatie, zoals toen het werd gemaakt of bijgewerkt en het systeem vlaggen . Instructies
krijgen van een Lijst van tabellen
1 Maak een query naar de SQL-opdracht hieronder uit te voeren. Deze query haalt een lijst met alle tabellen in de huidige Access-database . De where clausule gebruikt het nummer 1 om aan te geven dat we alleen willen dat de tafels terug . SELECT MSysObjects.Name
, MSysObjects.DateCreate , MSysObjects.DateUpdate , MSysObjects.Type , MSysObjects.Flags
UIT MSysObjects
WHERE MSysObjects.Type = 1 kopen van 2 Terug een lijst met alleen de niet - systeem tabellen in de database met de meegeleverde voorbeeld :
SELECT MSysObjects . naam , MSysObjects.DateCreate , MSysObjects.DateUpdate , MSysObjects.Type , MSysObjects.Flags
VAN MSysObjects
WHERE MSysObjects.Type = 1 AND MSysObjects.Name Not Like " MSys * "
3 Terug een lijst met alleen de niet - verborgen tabellen in de database door het uitvoeren van de query hieronder : SELECT MSysObjects.Name
, MSysObjects.DateCreate , MSysObjects.DateUpdate , MSysObjects . type, MSysObjects.Flags
vAN MSysObjects
WHERE MSysObjects.Type = 1 AND MSysObjects.Flags < > 8
4 Sorteer de lijst van niet - verborgen , non - systeem tabellen met behulp van onderstaande SQL- code : SELECT MSysObjects.Name
, MSysObjects.DateCreate , MSysObjects.DateUpdate , MSysObjects.Type , MSysObjects.Flags
VAN MSysObjects
WHERE MSysObjects.Type = 1 AND MSysObjects.Flags < > 8 EN MSysObjects.Name Not Like " MSys * " ORDER BY
MSysObjects.Name
Gebruik de List van de tabellen in VBA
5 Laad je lijst met tabellen in een record set -object met behulp van de VBA-code hieronder weergegeven : Dim rsMyTables
Zoals DAO.Recordset set
rsMyTables = CurrentDb.OpenRecordset ( " myQuery " ) op Twitter Loop 6 door elke record geretourneerd in de query . Dim rsMyTables
Zoals DAO.Recordset Set rsMyTables
= CurrentDb.OpenRecordset ( " myQuery " ) op Twitter Do While Not rsMyTables.EOF
' Code om gegevens rsMyTables.MoveNext
Loop
manipuleren
7 In elke naam tafel om een keuzelijst door aanpassing van uw while lus : Dim rsMyTables
Zoals DAO.Recordset Set rsMyTables
= CurrentDb.OpenRecordset ( " myQuery " ) Me.cmbMyComboBox.Clear
Verlanglijstje Terwijl Niet rsMyTables.EOF Me.cmbMyComboBox.AddItem rsMyTables
! [ Naam ] rsMyTables.MoveNext
Loop
8
Sluit uw recordset object , zodat het vrijkomen van het geheugen wordt gebruikt : Dim rsMyTables
Zoals DAO.Recordset set
rsMyTables = CurrentDb.OpenRecordset ( " myQuery " ) Me.cmbMyComboBox.Clear
Verlanglijstje Terwijl Niet rsMyTables.EOF Me.cmbMyComboBox.AddItem rsMyTables
! [ Name ] < > rsMyTables.MoveNext
Loop
rsMyTables.Close Set rsMyTables
= Nothing
br |
