![...](/f/309a7b1be207a39c90cf4bcb7fa1727f.jpg)
Hent søkeresultater i Access ved hjelp av VBA.
Å vite hvordan du leser resultatene fra en Microsoft Access-spørring kan hjelpe deg med å gjøre Access-applikasjonen mer dynamisk. Access er en del av Microsoft Office-pakken, og den brukes til å lage relasjonsdatabaser. Visual Basic for Applications (VBA) kan brukes i Access for å lage Windows-applikasjoner og hente databasedata. En spørring er bygget ved å bruke SQL-setninger (Structured Query Language) for å be om informasjon fra en database.
Trinn 1
Start Microsoft Office Access 2007 og velg "Blank Database", og klikk deretter "Create". Klikk på "Databaseverktøy" og velg "Visual Basic". Klikk på "Sett inn"-feltet og velg "Modul".
Dagens video
Skriv "Privat sub readQueryResults" og trykk "Enter" for å opprette en ny subrutine.
Steg 2
Skriv inn følgende for å deklarere variabler du vil bruke til å lese søkeresultatene:
Dim RecordSt As Recordset Dim dBase As Database Dim stringSQL As String Dim rCnt As Integer
Trinn 3
Skriv inn følgende for å lage "CityTbl"-tabellen:
stringSQL = "CREATE TABLE CityTbl (City TEXT(25), State TEXT(25));" DoCmd. KjørSQL (stringSQL)
Trinn 4
Skriv inn følgende for å legge til to nye poster i "CityTbl"-tabellen din:
stringSQL = "INSERT INTO CityTbl ([City], [State] ) " stringSQL = stringSQL & "VERDIER ('Fort Worth', 'Texas');" DoCmd. SetWarnings False DoCmd. KjørSQL (stringSQL)
stringSQL = "INSERT INTO CityTbl ([By], [State] ) " stringSQL = stringSQL & "VERDIER ('Dallas', 'Texas');" DoCmd. SetWarnings False DoCmd. KjørSQL (stringSQL)
Trinn 5
Skriv inn følgende for å definere søket og åpne Recordset:
stringSQL = "VELG CityTbl.* FROM CityTbl;" Sett RecordSt = dBase. OpenRecordset (stringSQL)
Trinn 6
Skriv inn følgende for å lage en "For Loop" og vise søkeresultatene dine gjennom en meldingsboks:
RecordSt. MoveFirst For rCnt = 0 To RecordSt. RecordCount MsgBox (RecordSt. Fields("City").Value & ", " & RecordSt. Fields("State").Value) RecordSt. MoveNext Neste rCnt
Trykk "F5" for å utføre subrutinen.