Visual Basic pour Applications ( VBA ) est un langage de programmation utilisé dans des applications autonomes , mais aussi d'étendre les fonctionnalités des programmes Microsoft Office , y compris le programme de création de base de données , Access. Certaines tâches dans Access se prêtent naturellement à l'automatisation avec le code VBA, telles que le calcul des valeurs pour les contrôles ajoutés par l'utilisateur dans les rapports. En revanche, la vue de création de requête d'Access n'expose pas facilement les possibilités d'amélioration avec VBA. Pourtant , un exemple d'application d'une fonction VBA particulier va vous montrer comment VBA peut vous aider à travailler avec vue sur la création de la requête . Instructions
1

libre accès et créer une petite table d' adresses e-mail . Utilisez le tableau ci-dessous si vous n'avez pas un existant . Entrez la première ligne des données suivantes comme le titre de la colonne unique de la table.

Emaildsk@yahoo.comIndianaJones @ @ Hollywood.comHarryBelafonte Caribbean.com
2

Enregistrez la table par appuyant sur " Ctrl- S ", et tapez " EmailAddresses " pour le nom de la table. Sauvegarder la base de données elle-même en appuyant sur " Alt- F ", puis sélectionner "Enregistrer Database sous. " Type " VBAFromAccessQuery " pour le nom de la base de données.
3

commencer à créer un fonction personnalisée pour une utilisation dans une requête en première activation des macros dans votre base de données. Appuyez sur " Alt -F" pour exposer le point de menu " Options" , puis cliquez sur cet élément.
4

Appuyez sur la rubrique " Centre de confiance " dans la boîte de dialogue " Accès Options" puis cliquez sur le bouton " Centre de gestion des paramètres " . Appuyez sur l'élément "Macro Paramètres" dans la boîte de dialogue «Fiducie Center" , puis cliquez sur l'option qui lit "Activer toutes les macros ». (Assurez-vous de revenir à cette boîte de dialogue pour désactiver les macros une fois que vous avez terminé l' étapes de cet article . )

Appuyez sur " OK" sur toutes les boîtes de dialogue ouvertes pour revenir à Access.
5

sur la touche " Database Tools " toolbar élément, puis cliquez sur " ; base ". pénétrer dans l'environnement Visual Basic de développement intégré ( IDE ) , qui vous permet de créer des fonctions personnalisées
6

Appuyez sur" Insérer visuelle », suivi par« module » de l'IDE de barre d'outils, pour créer un nouvel espace pour entrer le code de programme po Collez le code de programme suivante n'importe où dans ce nouvel espace :

getdomainname de la fonction publique ( emailAddress ) Dim mm = Len ( emailAddress ) - InStr ( emailAddress " @ ") getdomainname = Droite ( emailAddress , m) End Function
7

Appuyez sur" Ctrl + S " pour sauvegarder le programme , et nommez le module" CustomFunctions " lorsque vous êtes invité par access. Retourner à l'accès en appuyant sur "Alt + F11 " ou en cliquant sur la petite icône d'accès dans la partie gauche de la barre d'outils de l' IDE .
8

créer une nouvelle requête pour la table d'adresses email en cliquant sur le premier le nom de tableau ( " EmailAddresses " ) dans la fenêtre de navigation à gauche de la fenêtre principale d'Access . Ensuite, appuyez sur "Créer" puis " Création de requête " sur la barre d'outils d'accès . Si vous utilisez Access 2003, créer la requête en appuyant sur " objets ", puis "Query ", puis " Nouveau".
9

Double -cliquez sur le " EmailAddresses " , le point dans la case " Afficher la table " de dialogue pour créer une petite fenêtre affichant tous les champs de la table d'adresses email . Appuyez sur "Close" sur la boîte de dialogue
10

Faites un clic droit sur ​​la ligne intitulée "Champ : " . Dans une des colonnes de la requête grille. Sélectionnez l'option " Créer " pour afficher la boîte « Expression Builder " de dialogue qui vous permet de créer des requêtes qui utilisent des formules.

Double -cliquez sur la rubrique " Fonctions" 11 dans le " expression Elements " volet d'étendre ce nœud , puis cliquez une fois sur le nom de votre base de données ( " VBAFromAccessQuery " ) pour exposer la fonction que vous avez créé pour cette base de données .
12

Notez que le " expression valeurs " volet affiche la fonction" getdomainname " vous avez collé dans l'IDE Visual Basic tôt. Double-cliquez sur cette option, puis tapez " [email] " à la place du " emailAddress >> << " texte dans le volet supérieur de la boîte de dialogue.
13 < p > Appuyez sur "OK " pour fermer " Générateur d'expression ", puis faites un clic droit sur ​​l'onglet de la requête et sélectionnez " Feuille de données " pour exécuter la requête . ( Ou appuyer sur " Design" et choisissez " Run" sur la barre d'outils . )

Notez que les résultats de la requête montrent que les noms de domaine des adresses e-mail , ce qui est un résultat de votre application réussie du code VBA le point de vue de la conception de requête à accéder .