Som en database designer eller administrator , kan du løbe ind i behovet for at bestemme mængden af kolonner i en Access- database for at få en idé om , hvor stort det kan være . I Access kan du bruge Visual Basic for Applications til at få denne opgave udført. I VBA kan du opbygge SQL-sætninger , som du derefter kan udføre ved hjælp af en rekord sæt objekt. Rekorden objektet repræsenterer det samlede sæt af poster fra forespørgslen resultater , som du derefter kan bruge til at bestemme mængden af ​​kolonner. Instruktioner
1

Klik på " Database Funktioner" og klik på " Visual Basic " for at åbne Microsoft Visual Basic editor. Opret en ny sub procedure ved at tilføje følgende kode : Hej

Private Sub countColumnsInDB ()
2

Opret følgende variabler ved at tilføje følgende kode : Hej

Dim strSQL As String

Dim tblArray (4) As String

Dim x As Integer

Dim totalClmns As Integer

Dim rst Som Recordset
< p> Dim dbs som database

Set dbs = CurrentDb
3

Definer tabellerne i din database til at omfatte i kolonnen tæller .

tblArray ( 0) = " Kunder "

tblArray (1) = " Medarbejdere "

tblArray (2) = " Fakturaer "

tblArray ( 3) = "Ordrer " < br >
4

Opret en "For ... Loop " og udføre en SQL-forespørgsel for hver af tabellerne i array defineret i trin tre. Få kolonnen tæller for hver tabel og også holde en samlet optælling for alle kolonner.

X = 0 til 3

strSQL = "SELECT " & ( tblArray (x)) & " . * FROM "& ( tblArray (x)) & " "

Set rst = dbs.OpenRecordset ( strSQL )

Debug.Print tblArray (x ) &" tabel indeholder "& rst . Fields.Count & " søjler "

totalClmns = totalClmns + rst.Fields.Count

rst.Close

Næste x
5

Display det samlede antal kolonner findes i dine tabeller

Debug.Print "Total antallet af kolonner i databasen : " . & totalClmns
6

Afslut proceduren ved at skrive " End Sub ". Tryk på " CTRL " og " G" for at vise Immediate -vinduet. Tryk på " F5 " for at køre proceduren og se resultaterne via Immediate -vinduet.