Microsoft Office Access est un système de gestion de base de données relationnelle souvent utilisé pour les petites bases de données. Visual Basic pour Applications, également connu sous VBA est un langage de programmation informatique utilisé pour automatiser des tâches manuelles dans les applications Microsoft Office . Une requête SQL est une opération courante effectuée pour récupérer des données d'une table. En quelques étapes, vous pouvez écrire du code VBA pour interroger une table et afficher le nombre d'enregistrements dans une boîte de message . Instructions
1

Démarrer Microsoft Office Access et sélectionnez " Base de données vide " puis cliquez sur "Créer". Cliquez sur " Database Tools " puis sélectionnez " Visual Basic ". Cliquez sur le champ "Insérer" et sélectionner "Module ".
2

Copiez et collez le code VBA suivant dans votre module :

getRecordCnt Private Sub ()

rst As Recordset

db As Database

sqlstr Dim As String

sqlstr = " CREATE TABLE CityInfo ( texte Ville (25) , TEXT État ( 25) ) ; "

DoCmd.RunSQL ( sqlstr )

sqlstr = " INSERT INTO CityInfo ( [ville], [état] ) "

sqlstr = sqlstr &" VALUES (' Arlington ',' Texas '); "

DoCmd.SetWarnings Faux

DoCmd.RunSQL ( sqlstr )

sqlstr = " INSERT INTO CityInfo ( [ Ville ], [ État ] ) "

sqlstr = sqlstr &" VALUES (' Watauga ', ' Texas '); "

DoCmd.SetWarnings Faux

DoCmd.RunSQL ( sqlstr )

sqlstr = "SELECT * FROM CityInfo CityInfo ; ».

Set rst = db.OpenRecordset ( sqlstr )

rst.MoveFirst

rst.MoveLast

MsgBox rst.RecordCount

End Sub
3

Appuyez sur " F5 " pour exécuter votre routine . Le code va créer un nouveau tableau , ajouter des enregistrements à elle, et ouvrir un jeu d'enregistrements.