Access databasprogram från Microsoft har en inbyggd programmeringsspråk, Visual Basic for Applications ( VBA ) , som utvecklare använder för att utvidga tillgången s standard uppsättning av funktioner . Sortering är en av många funktioner VBA kan utföra på data som användarna skapar eller hanterar i Access . Access -användare kan sortera data med VBA hjälp av olika strategier, inklusive sådana som inte kräver att lära en stor del av VBA -kod . En viktig fördel för sortering data med Access VBA är det tid som sparas genom att slippa sortera data manuellt .
Du behöver :
Microsoft Access
1
Open Access och klicka på " Skapa " -menyn rubrik , följt av . " Tabell ". Du kommer att skapa en liten tabell för att utföra en VBA sortera på .
2 .
Dubbelklicka i " Tabell1 's " kolumnrubrik och skriv " Förnamn, " skriv sedan flera namn i denna kolumn . Se till varje namn börjar med en annan bokstav i alfabetet så kan man tydligt se effekten av VBA slag som följer . Av samma skäl , se till att du anger namnen i en osorterad ordning . Skriv till exempel namnen " Carol ", " Bob " och " Amanda ", i den ordningen .
3 .
Tryck på " Ctrl " + " S "och sedan skriva " userinfo " för tabellen namn .
4 .
Klicka på " Skapa " -menyn rubrik och klicka sedan på " Övrigt " panelen " Frågedesign "-knappen . Du kommer att skapa en fråga för VBA sortera programmet som ska köras .
5 .
Dubbelklicka på " userinfo " post i "Visa bord " i dialogrutan och klicka sedan på dialogrutan s "Stäng " -knappen .
6 .
Dra " * ", som representerar alla fält i en tabell på den första färgen på frågerutnätet .
7 .
Högerklicka på " fråga1 " och välj sedan " SQL-vyn . " Skriv följande direkt efter " FRÅN userinfo klausul : " . förnamn "
ORDER BY
Denna nya bestämmelse beställer data när Access körs frågan .
8 .
Tryck på " Ctrl " + " S "och sedan skriva " Q1 " för frågans namn .
9 .
Tryck på " Alt " + " F11 "för att gå VBA integrerad utvecklingsmiljö ( IDE ) , som är där du anger programkoden för sortering av " userinfo " bord . .
10
Klicka på " Infoga " -menyn är " Module " objektet , klistra sedan följande program kod i modulen : s fönster:
Public Sub doQuery ( )
Const QName=" Q1 "
Dim DB1 Som DAO. Database
Dim RS1 Som DAO. Recordset
Set DB1=CurrentDb
Set RS1=db1. OpenRecordset ( QName )
Har visserligen inte rs1. EOF
Debug. Print "Namn : " RS1 [Förnamn ]
rs1. MoveNext
Loop
!
RS1 . Stäng
db1. Close
End Sub
Detta program öppnas och visar de poster i en virtuell objekt som kallas en postuppsättning . Postuppsättningen Resultaten från att köra den fråga du nyss skapade .
11 .
Klicka på någon uppgift i programmet, tryck "F5 "för att köra programmet . Tryck på " Ctrl "+ " G "om du inte ser " omedelbar " fönster . Detta fönster kommer att visa resultaten av " q1 " sorterade frågan du skapat.