Les requêtes sont un outil puissant dans Microsoft Access pour récupérer des informations à partir d'une table de base de données et ayant les connaissances sur la façon d'utiliser des variables dans les requêtes peuvent faire votre demande d'accès plus dynamique. Dans VBA, vous pouvez construire des instructions SQL contenant des variables comme variables chaîne pour récupérer les données . Une fois que vous construisez votre instruction SQL , vous pouvez utiliser l'objet Recordset pour récupérer les résultats de la requête. Les variables utilisateur au lieu de dépenser construction de nombreuses instructions SQL de temps avec des critères codées en dur . Choses que vous devez
Northwind base de données
Voir Plus Instructions
1

Commencez par créer un nouveau sous procédure en utilisant le code suivant :

Private Sub useVariablesInQuery ()
2

Tapez le code suivant pour créer les variables que vous allez utiliser dans votre requête :

strSQL Dim As String

companyName Dim As String

nomFamille Dim As String

rst As Recordset

Dim dbs As Database

Set dbs = CurrentDb
3

tapez la commande suivante pour définir les valeurs de vos variables utilisées dans votre requête :

companyName = " les Comptoirs "

nomFamille = " Freehafer "
4

tapez le suite pour créer une requête en utilisant les variables à l'étape précédente :

strSQL = " . . SELECT Employees.Company , employés [ Nom ] , employés [ Prénom ] , "

strSQL = strSQL & " employés . [E- mail] "

strSQL = strSQL & " FROM Employees "

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

strSQL = strSQL & "AND ( ( Employees. [ Nom ]) = '" & (nom) & " ')); "
5 < p> Tapez la commande suivante pour ouvrir un jeu d'enregistrements et d'afficher les résultats de votre requête :

Set rst = dbs.OpenRecordset ( strSQL )

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

Debug.Print rst.Fields (1). Valeur

Debug.Print rst.Fields (2). Valeur

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

Tapez la commande suivante pour mettre fin à votre sous procédure :

rst.Close

dbs.Close

End Sub
< br > 7

Appuyez sur " F5" pour exécuter votre code .