Forespørgsler er et stærkt værktøj i Microsoft Access til at hente oplysninger fra en database tabel og har viden om , hvordan man bruger variabler i forespørgsler kan gøre din Access-program mere dynamisk. I VBA kan du opbygge SQL-sætninger , der indeholder variabler såsom String variabler til at hente data. Når du opbygger din SQL-sætning , så du kan bruge Recordset objektet til at hente forespørgsel resultater . Bruger variabler i stedet for at bruge tid på at bygge mange SQL-sætninger med fastkodede kriterier. Ting du skal
Northwind database
Vis Flere Instruktioner
1

Start med at oprette en ny sub procedure ved hjælp af følgende kode : Hej

Private Sub useVariablesInQuery ()
2

Indtast følgende kode til at skabe de variabler, du vil bruge i din forespørgsel :

Dim strSQL As String

Dim virksomhedsNavn As String

Dim efternavn As String

Dim rst Som Recordset

Dim dbs som database

Set dbs = CurrentDb
3

Skriv følgende for at definere værdierne af dine variabler , der anvendes i din forespørgsel :

virksomhedsNavn = " Northwind Traders "

efternavn = " Freehafer "
4

Indtast efter at oprette en forespørgsel ved hjælp af variabler i det forrige trin : Hej

strSQL = " . . SELECT Employees.Company , Medarbejdere [ Efternavn ] Medarbejdere [ fornavn ] , "

strSQL = strSQL & " Medarbejdere . [E- mail-adresse] "

strSQL = strSQL & " FROM Medarbejdere "

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

strSQL = strSQL & " AND ( ( Employees. [ Efternavn ] ) = ' " & ( efternavn ) & " ") ), "
5 < p> Skriv følgende for at åbne en Recordset og vise resultaterne af din forespørgsel : Hej

Set rst = dbs.OpenRecordset ( strSQL )

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

Debug.Print rst.Fields (1). Værdi

Debug.Print rst.Fields (2). Værdi

Debug.Print rst.Fields (3). Værdi
6

Skriv følgende for at afslutte din sub procedure : Hej

rst.Close

dbs.Close

End sub ​​
< br > 7.

Tryk på " F5 " for at køre din kode .