Spørsmål er et kraftig verktøy i Microsoft Access for å hente informasjon fra en database tabell og ha kunnskap om hvordan du bruker variabler i spørringer kan lage din Access-programmet mer dynamisk . I VBA kan du bygge SQL-setninger som inneholder variabler som strengvariabler å hente data. Når du bygger din SQL-setning så kan du bruke den Recordset objektet for å hente søkeresultatene. Bruker variabler i stedet for å bruke tid på å bygge mange SQL-setninger med hardkodet kriterier. Du trenger
Northwind database
Vis flere instruksjoner
en

Start med å lage en ny sub prosedyre ved hjelp av følgende kode :

Private Sub useVariablesInQuery ( )
2

Skriv inn følgende kode for å lage de variablene du vil bruke i spørringen :

Dim strSQL As String

Dim companyName As String

Dim etternavn As String

Dim rst Som Recordset

Dim dBS Som Database

Set dBS = CurrentDb
3

skriv inn følgende for å definere verdiene av variablene som brukes i spørringen :

companyname = " Northwind Traders "

etternavn = " Freehafer "
4

skriv inn etter å lage en spørring ved hjelp av variablene i forrige trinn : en

strSQL = " . . SELECT Employees.Company , ansatte [ etternavn ] , ansatte [ fornavn ],"

strSQL = strSQL & " ansatte . [E - postadresse] "

strSQL = strSQL & " FROM ansatte "

strSQL = strSQL & " WHERE ( ( ( Employees.Company ) = ' " & ( companyName ) & " ' )"

strSQL = strSQL & " AND ( ( Employees. [ etternavn ] ) =' " & ( etternavn ) & " ') ); "
5 < p> Skriv inn følgende for å åpne en Recordset og vise resultatene av søket ditt:

Sett rst = dbs.OpenRecordset ( strSQL )

Debug.Print rst.Fields ( 0 ) Verdi < . br>

Debug.Print rst.Fields ( 1 ) . Verdi

Debug.Print rst.Fields ( 2 ) . Verdi

Debug.Print rst.Fields ( 3 ) . Verdi
6

Skriv inn følgende for å avslutte delprosedyre : en

rst.Close

dbs.Close

End sub ​​

7

Trykk " F5 " for å kjøre koden.