|
Connaître comment créer rapidement une requête dans Microsoft Access et ensuite l'utiliser avec Visual Basic pour Applications ( VBA ) peut vous faire gagner du temps . Access est un système de gestion de base de données relationnelle qui est inclus dans la suite Microsoft Office. Une requête est utilisée pour extraire des données d' une table de base de données. VBA est un langage de programmation informatique qui est utilisé pour automatiser des tâches de routine dans Access et d'autres applications Microsoft Office. En quelques étapes, vous pouvez créer un sous-programme en VBA pour interroger les données de la table Employees dans la base de données Northwind. Choses que vous devez
Microsoft Office Access
Afficher plus Instructions
1 Ouvrez la base de données Access Northwind. La base de données Northwind est inclus dans la suite Microsoft Office.
2 Cliquez sur "Créer" et sélectionnez " Création de requête. " Sélectionnez l'onglet "Tables" , sélectionnez "Employés" puis cliquez sur "Ajouter". Sélectionnez "Fermer".
3 Double -cliquez sur " Société ", " Nom" et "Prénom" d'ajouter des champs . Sélectionnez " Mode SQL " dans le volet "Résultats" . Appuyez sur " Ctrl" et " C " pour copier la requête de sélection .
4 Cliquez sur " Database Tools " puis sélectionnez " Visual Basic ". Tapez la commande suivante pour créer un nouveau sous-programme : " Entrée".
CreateVBAQuery Private Sub ()
de presse
5 Tapez la commande suivante pour déclarer vos variables :
strSQL Dim As String
rst As Recordset
Dim dbs As Database
Set dbs = CurrentDb
6 presse "Ctrl " et " V " pour coller la requête de sélection à l'intérieur du sous-programme. Ajouter " strSQL =" au début de votre requête et ajouter des guillemets finaux à la fin de votre requête comme suit : . .
StrSQL = "SELECT Employees.Company , employés [ Nom ] , employés [ Prénom ] FROM Employés ; ».
Set
7 Tapez la suivante pour ouvrir votre requête de sélection et d'afficher les résultats rst = dbs.OpenRecordset ( strSQL )
rst . MoveLast
rst.MoveFirst
Do While Not rst.EOF
Debug.Print rst.Fields (0 ) Valeur & . "
|
