Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
 Začnite tým , že vytvorí nový čiastkové postup , pomocou nasledujúci kód : 
 
 Private Sub useVariablesInQuery ( ) 
 2 
 zadajte nasledujúci kód pre vytvorenie premenné , ktoré budete používať vo vašom dotaze : 
 
 Dim strSQL As String Dim 
 
 companyName As String 
 
 Dim lastName As String 
 
 Dim rst ako Recordset 
 
 Dim dbs ako databáza 
 
 Set DBS = CurrentDb 
 3 
 Zadajte nasledujúce definovať hodnoty premenných použitých v dotaze : 
 
 firmy = " Matador " 
 
 lastName = " Freehafer " 
 4 
 Sem nasledujúce vytvoriť dotaz pomocou premenných v predchádzajúcom kroku : 
 
 strSQL = " .. SELECT Employees.Company , zamestnancov [ Priezvisko ] , zamestnanci [ Meno ] , " 
 
 strSQL = strSQL a " Zamestnanci . [ E - mailová adresa ] " 
 
 strSQL = strSQL & " FROM Zamestnanci " 
 
 strSQL = strSQL & " WHERE ( ( ( Employees.Company ) = ' " & ( companyName ) & " ' ) " 
 
 strSQL = strSQL & " A ( ( Employees. [ Priezvisko ] ) = ' " & ( lastName ) & " " ) ) ; " 
 5 
 Zadajte nasledujúci otvoriť sadu záznamov a zobrazenie výsledkov dotazu : 
 
 Set rst = dbs.OpenRecordset ( strSQL ) 
 
Debug.Print rst.Fields ( 0 ) Hodnota < . br >
 Debug.Print rst.Fields ( 1 ) . Hodnota 
 
 Debug.Print rst.Fields ( 2 ) . Hodnota 
 
 Debug.Print rst.Fields ( 3 ) . Hodnota 
 6 
 Zadajte nasledujúci na koniec svojej čiastkové postup : 
 
 rst.Close 
 
 dbs.Close 
 
 End Sub 
 
 7 
 Stlačte " F5 " pre spustenie kódu .