|
Macros programmation pour l'application base de données Access sont des programmes qui permettent d'automatiser des tâches comme la recherche d'enregistrements ou la fermeture des fenêtres . Les utilisateurs d'accès peuvent développer ces programmes à l'aide de Visual Basic pour Applications ou VBA , l'environnement de développement. Une étape clé dans l'écriture de macros pour l'accès spécifie le but que vous voulez accomplir , comme la suppression d'enregistrements répondant à certains critères . Créer des macros Access vous permet d'effectuer les tâches de données de gestion de votre équipe de travail plus rapidement et avec moins d'erreurs que les méthodes manuelles. Instructions
1 libre accès et créer une nouvelle base de données en appuyant sur "Ctrl" + "N. " Cliquez sur " Base de données vide ", puis appuyez sur "Alt" + " F11 " pour entrer dans l'environnement de développement intégré VBA, ou IDE . Ici, vous allez créer des macros qui illustrent les opérations de base de données commune de créer une table et insérer et extraire des données d'une table.
2 Cliquez sur la commande "Module" du menu Insertion pour créer une nouvelle fenêtre de saisie le code de votre macro. Collez le sous-routine suivante dans la fenêtre. Cette sous-routine crée une définition de la requête avec l'appel de fonction " CreateQueryDef " . Le " créer table" requête du code définit utilise la même syntaxe SQL disponibles dans la grille de création de requête d' accès . La mention « dbase.QueryDefs (1). Exécuter " exécute la requête ping- création .
Public Sub createTable ()
de QDEF As DAO.QueryDef
Dim dbase comme DAO.Database
Dim s As String
Set dbase = CurrentDB
s = " créer Kidsbooks de table ( texte bookname (50), auteur du texte ( 50) ) " Photos Set QDEF = dbase.CreateQueryDef ( " qCreateTable " , s)
dbase.QueryDefs (1). Exécuter
End Sub
3 Cliquez sur une déclaration du sous-programme , puis appuyez sur la touche "F5 " pour lancer " createTable . " Appuyez sur " Alt" + "F11" pour revenir à l' interface utilisateur d'accès standard.
4 fermer et rouvrir le volet de navigation en cliquant sur les flèches de la barre de titre . Le volet affiche la table Kidsbooks votre routine créée.
5 Appuyez sur " Alt" + " F11 " pour revenir à votre routine dans l'IDE. Collez le nouveau sous-routine suivante dans le cadre du sous-programme createTable . Les sous inserts addTableRow une rangée de données dans le tableau de votre programme createTable faits . Ce nouveau programme fonctionne en ouvrant un objet d'enregistrements et d'appeler la méthode AddNew de cet objet.
Public Sub addTableRow ()
Dim dBase comme DAO.Database
rst As DAO.Recordset
Set dbase = CurrentDB
Set rst = dbase.OpenRecordset ( " Kidsbooks " )
rst.AddNew
rst ! bookname = " le Magicien d' Oz "
rst ! Auteur =" Frank Baum "
rst.Update
End Sub
6 exécuter le nouveau programme que vous avez fait le précédent. Retourner à l'accès , puis fermez la table Kidsbooks en cliquant-droit sur son onglet et en cliquant sur «Fermer». Double -cliquez sur " Kidsbooks " dans le volet de navigation pour faire rouvrir la table et voir la nouvelle entrée dans l'annuaire de votre programme ajouté .
7 Colle , dans l'IDE , le nouveau programme qui suit ci-dessous les deux précédents. Ce programme permet d'afficher toutes les données contenues dans le tableau Kidsbooks . Ce programme ouvre un objet RecordSet , à l'instar du programme précédent. Cette fois, cependant , la fonction MoveNext est appelé. Cette fonction déplace un indice interne par chacune des lignes de la table Kidsbooks .
Public Sub showData ()
Dim dBase comme DAO.Database
rst As DAO . enregistrements
Set dbase = CurrentDB
Set rst = dbase.OpenRecordset ( " Kidsbooks " )
de Dim s As String
Do While Not rst.EOF = " le titre du livre: " de
& rst [ BookName ] & " Auteur: . " ! & rst [Auteur]
MsgBox ( s)
rst.MoveNext ! Photos boucle
rst.Close
dbase.Close
End Sub
8 exécuter le programme comme vous avez exécuté l' deux autres . Le programme affiche une boîte de message indiquant l'entrée "Magicien d' Oz" .
|
