Queries zijn een krachtig instrument in Microsoft Access om informatie op te halen uit een database tabel en het hebben van de kennis over hoe variabelen te gebruiken in query kan uw Access-toepassing dynamischer te maken . In VBA kunt u bouwen SQL- statements die variabelen zoals String variabelen bevatten om gegevens op te halen . Zodra u uw SQL-instructie op te bouwen dan kunt u het Recordset-object gebruiken om query resultaten te halen . Gebruiker variabelen in plaats van tijd doorbrengen gebouw vele SQL-instructies met hard - coded criteria . Wat je nodig hebt
database Noordenwind
Toon Meer Aanwijzingen
1 Begin met het creëren van een nieuwe sub- procedure met behulp van de volgende code : Private Sub useVariablesInQuery
( )
Typ de volgende code om de variabelen die u wilt gebruiken in uw query te maken 2 : Dim strSQL
als Koord Dim companyName
als Koord
Dim lastName als Koord Dim rst
als Recordset
Dim dbs Als Database Set
dbs = CurrentDb
3 typ het volgende om de waarden van uw gebruikte variabelen in de query te definiëren : companyName
= " Noordenwind " lastName
= " Freehafer "
Type 4 de na een query met behulp van de variabelen in de vorige stap te maken: = " . . SELECT Employees.Company , Werknemers [ achternaam ] , Werknemers [ voornaam ] , "
strSQL strSQL
= strSQL & " Werknemers . [ E - mailadres] "
strSQL = strSQL & " FROM Employees "
strSQL = strSQL & " WHERE ( ( ( Employees.Company ) = ' " & ( companyName ) & " ' ) "
strSQL = strSQL & " AND ( ( Employees. [ Achternaam ] ) = " " & ( lastName ) & " " ) ) ; "
5 Typ het volgende om een Recordset openen en de resultaten van je zoekopdracht:
Set rst = dbs.OpenRecordset ( strSQL ) Debug.Print rst.Fields
( 0 ) Value < . br Debug.Print rst.Fields > ( 1 ) . Value Debug.Print rst.Fields
( 2 ) . Value Debug.Print rst.Fields
( 3 ) . Value
Type 6 het volgende om je sub te beëindigen :
rst.Close
dbs.Close
End sub
< br > Druk op " F5 " 7 om uw code uit te voeren .
|
