|
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.
|
