Microsoft Office Access permet aux programmeurs d'utiliser Visual Basic pour Applications ( VBA) pour créer des applications dans Access. VBA est un langage de programmation informatique utilisé pour automatiser des tâches de routine dans les applications Microsoft Office. L'accès est un système de base de données relationnelle couramment utilisée pour les plus petites bases de données . Une requête SELECT est utilisée pour récupérer les données d' une table de base de données. Un jeu d'enregistrements est utilisé pour lire le contenu retourné par la requête select. En quelques étapes, vous pouvez écrire du code VBA pour créer une table et afficher son contenu par une requête de sélection . Instructions
1

Ouvrez Microsoft Office Access , cliquez sur " Base de données vide ", puis sélectionner "Créer". Cliquez sur " Database Tools ", puis sélectionner " Visual Basic " pour ouvrir la fenêtre de Microsoft Visual Basic . Cliquez sur le champ "Insérer" et sélectionner "Module ".
2

Copiez et collez le code suivant dans votre nouveau module:

runSelectQuery Private Sub ()

db As Database

rcrdSet As Recordset

strSQL Dim As String

Xcntr As Integer

Set db = CurrentDb

strSQL = " CREATE TABLE selectQueryData ( NUMFIELD nombre, texte des locataires TEXTE Apt) ; "

DoCmd.RunSQL ( strSQL )

strSQL = "INSERT INTO selectQueryData ( NUMFIELD , locataire , Apt) " Photos

strSQL = strSQL & " VALUES ( 1, 'Jean' , 'A' ) ; "

DoCmd.SetWarnings Faux

DoCmd.RunSQL ( strSQL )

strSQL = "INSERT INTO selectQueryData ( NUMFIELD , locataire , Apt) "

strSQL = strSQL & " VALUES ( 2, ' Susie ' , 'b' ) ; "

DoCmd . Avertissements Faux

DoCmd.RunSQL ( strSQL )

strSQL = "INSERT INTO selectQueryData ( NUMFIELD , locataire , Apt) "

strSQL = strSQL & " VALUES ( 3 , ' Luis ',' C '); ".

DoCmd.SetWarnings Faux

DoCmd.RunSQL ( strSQL )

strSQL = " Select * from selectQueryData selectQueryData "

strSQL = strSQL & "WHERE selectQueryData.Tenant = ' Luis '; "

Set rcrdSet = db.OpenRecordset ( strSQL )

rcrdSet.MoveLast

rcrdSet . MoveFirst

Xcntr = 0 To rcrdSet.RecordCount - 1 x

MsgBox " locataire :" & rcrdSet.Fields (« locataire ») Valeur & " , vit dans apt: " & _ < . br>

rcrdSet.Fields ( "Apt " ) Valeur

rcrdSet.MoveNext

Suivant Xcntr

rcrdSet.Close

db.Close . Photos

End Sub
3

Appuyez sur " F5 " pour exécuter votre routine . Le programme va créer un tableau , insérer des données dans la table et utiliser une requête de sélection pour afficher les données pour une ligne particulière .