|
Microsoft Access , qui fait partie de la suite Microsoft Office , est un programme de création et de gestion des données. Visual Basic pour Applications ( VBA) est un langage de script que les développeurs d' Office utilisent pour effectuer des opérations sur ces données , y compris les requêtes qui nécessitent peu ou pas d' intervention de l'utilisateur . Exécution de requêtes en VBA permet aux développeurs d'écrire des programmes capables de produire les données les programmes ont besoin pour fonctionner . Par exemple , ils peuvent écrire un programme VBA qui génère automatiquement un rapport mensuel indiquant les fonds versés aux employés. Instructions
1 Ouvrez une base de données existante dans Access. Cliquez sur l'icône " Création de requête " dans le menu "Créer " pour commencer une nouvelle requête.
Double- cliquez sur l'élément supérieur dans le "Afficher la table " boîte de dialogue 2 qui apparaît pour spécifier la table de qui vous voulez faire une requête.
3 Double- cliquez sur le caractère "*" dans la petite fenêtre qui affiche les noms de tous les champs de la table que vous avez choisi d' interroger . Cette action crée une requête qui récupère les données de tous les champs de la table à la fois. Notez le nom de l'une quelconque des champs de la table (à l'exception de l'astérisque ) . Votre requête VBA présentera les données dans ce champ .
4 Appuyez sur "Ctrl + S " pour afficher la boîte de dialogue demandant le nom de la requête. Tapez " Requête1 " puis cliquez sur "OK" pour enregistrer la requête .
5 Appuyez sur " Alt + F11 " pour entrer dans l'environnement de développement intégré Visual Basic (IDE ), puis cliquez sur l'option "Module" sous le menu " Insertion" . Cela produit une nouvelle fenêtre de code dans lequel vous pouvez entrer votre programme.
6 Type de ou coller le programme qui suit n'importe où dans la fenêtre du nouveau module de code . Ecrasez le texte " YOUR_FIELD_NAME " avec le nom du champ que vous notais à l'étape 3 .
RunQuery Public Sub ()
Const cstrQueryName = " Requête1 "
Dim DBS DAO.Database
rst As DAO.Recordset
Set dbs = CurrentDb
'Open d'enregistrements sur requête
existants mis rst = DBS . OpenRecordset ( cstrQueryName )
' boucle sur tous les dossiers
Do While Not rst.EOF
Debug.Print rst ! [ YOUR_FIELD_NAME ]
rst.MoveNext Photos boucle
« Fermez la base de données d'enregistrements et
rst.Close
dbs.Close
End Sub
l'appel à la fonction de OpenRecordset exécute votre requête enregistrée, " Requête1 . " Les instructions entre le " Do While " aux déclarations de " Loop" itérer ( en d'autres termes , la boucle ) à travers chacun des enregistrements de la table que vous avez sélectionné à la requête. La déclaration " de debug.print " affiche les données de l'enregistrement pour le domaine que vous avez choisi .
7 Cliquez n'importe où à l'intérieur du sous-programme " RunQuery " vous venez d'écrire , puis appuyez sur la touche "F5 " pour exécuter le sous-programme. Appuyez sur "Ctrl + G " pour afficher la fenêtre " immédiate" de l' IDE ( si ce n'est pas déjà visible). La fenêtre affiche tous les enregistrements pour le domaine que vous avez choisi .
|
