Microsoft Access er en database management system til den enkelte at skabe deres egne databaser , rapporter og bruger formularer . Adgang indeholder alle de byggesten for udvikling af små applikationer . Du kan oprette tabeller til data , lagrede procedurer , brugerdefinerede funktioner og makroer i tillæg til rapporter og formularer . Alle disse komponenter har deres egne pointers eller optage definitioner gemt i en skjult system, bord. Adgang holder styr på hver tabel , rapport, formular , etc. du oprette og gemmer oplysninger, såsom da det blev oprettet eller ajourført og system flag. Instruktioner
Kom en Tabelfortegnelse
1
oprette en forespørgsel til at køre SQL- kommandoen nedenfor . Denne forespørgsel henter en liste over alle tabeller i den aktuelle Access-database. WHERE bruger nummer 1 for at indikere , at vi kun ønsker tabellerne returneres.
SELECT MSysObjects.Name , MSysObjects.DateCreate , MSysObjects.DateUpdate , MSysObjects.Type , MSysObjects.Flags
FRA MSysObjects
WHERE MSysObjects.Type = 1
2
Returner en liste over kun de ikke- system tabeller i databasen med den medfølgende eksempel : Hej
SELECT MSysObjects . navn, MSysObjects.DateCreate , MSysObjects.DateUpdate , MSysObjects.Type , MSysObjects.Flags
FRA MSysObjects
WHERE MSysObjects.Type = 1 AND MSysObjects.Name Not Like " MSYS * "
3
Returner en liste over kun de ikke- skjulte tabeller i databasen ved at køre forespørgslen nedenfor : Hej
SELECT MSysObjects.Name , MSysObjects.DateCreate , MSysObjects.DateUpdate , MSysObjects . Type , MSysObjects.Flags
FRA MSysObjects
WHERE MSysObjects.Type = 1 AND MSysObjects.Flags < > 8
4
sortere listen over ikke- skjulte , ikke- systemets tabeller ved hjælp af SQL -koden nedenfor :
SELECT MSysObjects.Name , MSysObjects.DateCreate , MSysObjects.DateUpdate , MSysObjects.Type , MSysObjects.Flags
FRA MSysObjects
< p> WHERE MSysObjects.Type = 1 AND MSysObjects.Flags < > 8 og MSysObjects.Name Not Like " MSYS * "
ORDER BY MSysObjects.Name
bruge listen af tabellerne i VBA
5
Load din liste over tabeller i en rekord sæt objekt ved hjælp af VBA-koden vist nedenfor:
Dim rsMyTables As DAO.Recordset
Set rsMyTables = CurrentDb.OpenRecordset ( " MyQuery " )
6
Loop gennem hver post returneres i forespørgslen.
Dim rsMyTables As DAO.Recordset
Set rsMyTables = CurrentDb.OpenRecordset ( " MyQuery " )
Do While Not rsMyTables.EOF
'Code til at manipulere data
rsMyTables.MoveNext
Loop
7
Tilføj hvert bord navn til en drop -down listen ved at ændre din while-løkke :
Dim rsMyTables As DAO.Recordset
Set rsMyTables = CurrentDb.OpenRecordset ( " MyQuery " )
Me.cmbMyComboBox.Clear
Do While Not rsMyTables.EOF
Me.cmbMyComboBox.AddItem rsMyTables ! [Navn]
rsMyTables.MoveNext
Loop
8
Luk din rekord sæt objekt, så det frigiver den hukommelse det bruger :
Dim rsMyTables As DAO.Recordset
Set rsMyTables = CurrentDb.OpenRecordset ( " MyQuery " )
Me.cmbMyComboBox.Clear
Do While Not rsMyTables.EOF
Me.cmbMyComboBox.AddItem rsMyTables ! [Navn] < br >
rsMyTables.MoveNext
Loop
rsMyTables.Close
Set rsMyTables = Nothing