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