Hvordan spare en VBA spørring om tilgang

Å vite hvordan du lagrer en spørring ved hjelp av Visual Basic for Applications i Microsoft Access kan du spare tid ved å opprette flere spørringer. Access er en relasjonsdatabase søknad i hovedsak brukes til små lokale databaser. VBA ble utviklet av Microsoft, og det er vanlig å automatisere rutineoppgaver innenfor Microsoft Office-programmer. I Access, er en VBA spørring som brukes til å åpne en tabell eller tabeller for å få tilgang til sine data for videre manipulering.

Bruksanvisning

1 Klikk "Database Verktøy" i Microsoft Access 2007 og velg "Visual Basic" for å åpne Microsoft Visual Basic Window. Klikk på "Insert" -menyen og velg "Module" å skape "module1."

2 Skriv "Public Sub myVBAQuery" og trykk "Enter" for å lage en ny subrutine.

Skriv inn følgende å erklære variabler:

Dim strSQL As String

Dim dbs som database

Dim rst As Recordset

Dim rstCnt As Integer

3 Skriv inn følgende for å definere spørringen og åpne Recordset:

Sett dbs = CurrentDb

strSQL = "SELECT Table1 * FROM Tabell1;".

Sett rst = dbs.OpenRecordset (strSQL)

4 Skriv inn følgende å sløyfe gjennom Recordset et display data lagret i feltet "1" i tabellen:

rst.MoveFirst

For rstCnt = 0 For å rst.RecordCount

MsgBox rst.Fields(1).Value

rst.MoveNext

Neste rstCnt

Trykk "Ctrl + S" for å lagre subrutine i "module1", og det vil være tilgjengelig for deg å bruke i fremtiden.