The Access database program fra Microsoft har en innebygd programmeringsspråk, Visual Basic for Applications ( VBA ) , at utviklerne bruker for å utvide tilgangen er standard sett med funksjoner. Sortering er en av de mange funksjonene VBA kan utføre på data som brukerne oppretter eller leder i Access. Access-brukere kan sortere data med VBA ved hjelp av en rekke tilnærminger , inkludert de som ikke krever å lære en betydelig mengde VBA -kode. En viktig fordel med å sortere data med Access VBA er spart tid fra ikke å måtte sortere data manuelt. Du trenger:
Microsoft Access
Vis flere instruksjoner
en

Open Access , og klikk på "Create "-menyen overskriften , etterfulgt av "Table ". Du vil lage et lite bord til å utføre en VBA slag på .
2

Dobbeltklikk på " Table1 er" kolonneoverskrift og skriv " fornavn ", deretter skriver flere navn i denne kolonnen . Sørg for hvert navn begynner med en annen bokstav i alfabetet , slik at du kan tydelig se effekten av VBA typen som følger. Av samme grunn, sørge for at du skriver inn navnene i en usortert rekkefølge. For eksempel , skriv navnene " Carol ", " Bob" og " Amanda ", i den rekkefølgen.
3

Trykk " Ctrl" + "S ", så skriv " UserInfo " for tabellens navn.
4

Klikk på " Create "-menyen overskriften , klikk deretter på " Annet" panelet " Query Design "-knappen . Du vil opprette en spørring for VBA slags program som skal kjøres .
5

Dobbeltklikk på " UserInfo " element i " Show table " i dialogboksen , og klikk deretter i dialogboksen " Close "-knappen .
6

Dra " * ", som representerer alle felt i en tabell , på den første fargen i spørringen .
7

Høyreklikk på " Query1 "-fanen og deretter" SQL-visning . " Skriv inn følgende umiddelbart etter " FROM UserInfo " klausul : .

ORDER BY " . Fornavn "

Denne nye klausul ordrer data når Access utfører spørringen
8 < p> Trykk " Ctrl" + "S , " skriv " q1 " for spørringen navn.
9

Trykk " Alt" + "F11 " for å gå inn i VBA integrert utviklingsmiljø (IDE ) , som er der du kommer inn i programkoden for sortering av " UserInfo " tabellen
10

Klikk på " Insert " -menyen er " module" element, og lim inn følgende program kode i modulen vindu. :

Public Sub doQuery ( )

Konst QName = " q1 "

Dim db1 Som DAO.Database

Dim rs1 Som DAO.Recordset

Sett db1 = CurrentDb

Set RS1 = db1.OpenRecordset ( QName )

Mens Ikke rs1.EOF

Debug.Print "Name :" & rs1 ! [ fornavn ]

rs1.MoveNext

Loop

rs1.Close

db1.Close

End Sub
< p > Dette programmet åpner og viser registreringer av et virtuelt objekt kalt en recordset . Postsettet resultater fra behandlingen av forespørselen du nettopp opprettet .
11

Klikk på noen uttalelse i programmet , og trykk "F5 " for å kjøre programmet . Trykk "Ctrl " + " G" hvis du ikke ser "Direkte "-vinduet . Dette vinduet vil vise resultatene av " q1 " sortert spørringen du opprettet .