The Access- databas program från Microsoft har en inbyggd programmeringsspråk , Visual Basic for Applications ( VBA ) , som utvecklare kan använda för att utöka tillgången förvalda uppsättning funktioner . Sortering är en av de många funktioner VBA kan utföra på uppgifter som användarna skapar eller chef i Access . Access-användare kan sortera data med VBA med hjälp av olika metoder , inklusive de som inte kräver att lära en betydande mängd av VBA-kod . En viktig fördel med sortera data med Access VBA är den tid sparas genom att slippa sortera data manuellt . Saker du behöver
Microsoft Access
Visa fler instruktioner
1
Open Access och klicka på " Skapa " menyn rubrik , följt av " Table . " Du kommer att skapa ett litet bord för att utföra ett VBA Sortera på .
2
Dubbelklicka på " Tabell1 : s " kolumnrubrik och skriv " firstName , " skriver flera namn i den kolumnen . Se till varje namn börjar med en annan bokstav i alfabetet så att du kan tydligt se effekten av VBA sort som följer . Av samma anledning , se till att du anger namn i en osorterad ordning . Till exempel , mata in namnen " Carol ", " Bob " och " Amanda ", i den ordningen .
3
Tryck " Ctrl " + " S ", skriv sedan " userinfo " för tabellens namn .
4
Klicka på " Skapa " menyn rubrik , klicka sedan på " Övrigt " panelen " Query Design" -knappen . Du ska skapa en fråga för VBA sort programmet att exekvera .
5
Dubbelklicka på " userinfo " post i " Visa tabellen " i dialogrutan , klicka på dialogrutan s " Close " -knappen .
6
Dra " * ", som representerar alla fält i en tabell , på den första färgen i frågerutnätet .
7
Högerklicka på " Fråga1 " fliken och välj sedan " SQL-vyn . " Skriv följande direkt efter " FROM userinfo " klausul : .
ORDER BY " . FirstName "
Denna nya klausul order uppgifter när Access exekverar frågan
8
Tryck " Ctrl " + " s ", skriv sedan " q1 " för frågans namn .
9
Tryck " Alt " + " F11 " för att komma in i VBA integrerad utvecklingsmiljö ( IDE ) , som är där du kommer in i programkoden för sortering av " userinfo " bord
10
Klicka på " Infoga " -menyn är " module " objektet , sedan klistra in följande programkod i modulens fönster . :
Public Sub doQuery ( ) katalog
Const qname = " q1 "
Dim DB1 Som DAO.Database
Dim RS1 Som DAO.Recordset
Set db1 = CurrentDb
Set RS1 = db1.OpenRecordset ( QName ) katalog
Do While Not rs1.EOF
Debug.Print " Namn : " & RS1 ! [ Förnamn]
rs1.MoveNext
Loop
rs1.Close
db1.Close
End Sub
Detta program öppnas och visar posterna i en virtuell objekt som kallas en postmängd . Recordset Resultaten från exekvera frågan du just skapade .
11
Klicka på något uttalande i programmet , tryck på " F5 " för att köra programmet . Tryck på " Ctrl " + " G " om du inte ser den " omedelbara " fönstret . Detta fönster kommer att visa resultatet av den " q1 " sorterade fråga du skapade .
