Microsoft Access est une partie de la suite Microsoft Office . Grâce à ce logiciel , vous pouvez créer des bases de données individuelles, les rapports et formulaires . Access vous permet de créer vos propres applications en utilisant ces composants. Pour ajouter encore plus de fonctionnalités à vos applications ou bases de données , vous pouvez programmer des tâches dans Visual Basic pour Applications ( VBA) . VBA est le langage standard de développement de Microsoft pour les produits Office. Le langage est basé sur de Visual Basic 6.0 et utilise une syntaxe similaire. Une des nombreuses choses que vous pouvez faire avec cette langue est d'exécuter des requêtes sur vos données. Instructions
1

exécuter une requête et a mis ses résultats dans un jeu d'enregistrements pour la manipulation . Copiez et collez le code VBA ci-dessous pour charger les données de votre requête .

DbMyDatabase As DAO.Database

rsMyRecords As DAO.Recordset

Set dbMyDatabase = CurrentDB < br >

2

exécuter une requête avec paramètres d'entrée à l'aide d'un objet de définition de la requête , puis charger ses résultats dans un jeu d'enregistrements en utilisant l'exemple de code ci-dessous.

dbMyDatabase As DAO.Database

rsMyRecords As DAO.Recordset

qdMyParameters As DAO.QueryDef

Set dbMyDatabase = CurrentDB < br >

Set qdMyParameters = dbMyDatabase.QueryDefs ( " MaRequête " )

qdMyParameters.Parameters ( " MyParameter " ) = "valeur"

Set rsMyRecords = qdMyParameters.OpenRecordset ()

3

boucle à travers chaque enregistrement retourné et effectuer une action . L'exemple ci-dessous est une façon de le faire

Do While Not rsMyRecords.EOF

Debug.Print " Le contenu de ma chronique : " . ! & RsMyRecords [ MyColumnName ]
< p > rsMyRecords.MoveNext

boucle
4

exécuter une requête SQL au lieu d'une requête Access nommée et a mis ses résultats dans un jeu d'enregistrements pour la manipulation . Copiez et collez le code VBA ci-dessous.

DbMyDatabase As DAO.Database

rsMyRecords As DAO.Recordset

strQuery Dim As String

strQuery = "SELECT * FROM MyTable "

Set dbMyDatabase = CurrentDB

Set rsMyRecords = dbMyDatabase.OpenRecordset ( strQuery )
5

Exécute une commande qui ne renvoie pas tous les enregistrements l'utilisation de ce code VBA. UPDATE et DELETE commandes sont des exemples de déclarations qui ne renvoient pas d'enregistrements.

CurrentDb.Execute " MyQueryName "