|
Savoir programme dans Microsoft Office Access 2007 peut vous faire gagner du temps lorsque vous devez effectuer des tâches de routine telles que la création de tableaux et d'ajouter des données manuellement . Access est un système de gestion de base de données relationnelle souvent utilisé pour les petites bases de données locales . Il fournit les outils pour écrire Visual Basic pour Applications ( VBA ) pour automatiser les processus manuels . VBA est un langage de programmation informatique offert par Microsoft . En quelques étapes , vous pouvez écrire du code VBA pour créer un tableau , y ajouter des données et afficher son contenu à travers un contrôle de zone de liste. Instructions
1 Ouvrez Microsoft Office Access 2007 et puis sélectionnez « Base de données vide . " Cliquez sur " Créer".
2 Cliquez sur l'onglet "Créer" et sélectionnez " Form Design " pour créer un nouveau formulaire . Sélectionnez la commande "Button" dans le cadre du volet «contrôle» . Cliquez sur le formulaire et créer le nouveau bouton tout en maintenant le bouton gauche de votre souris . Ajoutez un contrôle " Zone de liste " à la forme de la même manière que vous avez ajouté le bouton.
3 clic droit sur le contrôle zone de liste et sélectionnez "Propriétés". Sur la " Feuille de propriétés ", cliquez sur l'onglet "Données" et sélectionnez le menu déroulant sur " Row Type de source " et sélectionner " Liste des valeurs . "
4 clic droit sur le nouveau bouton et sélectionnez "Propriétés". Le " Feuille de propriétés " cliquez sur l'onglet "Evénement" et sélectionnez le menu déroulant à côté de " Au clic " et sélectionnez " [Procédure événementielle ] . " Cliquez sur les points de suspension (... ), une nouvelle fenêtre de Microsoft Visual Basic s'ouvre, dans laquelle vous pourrez écrire votre code VBA
5 Copiez et collez le code suivant dans votre " Private Sub Command1_Click () " . sous-programme pour créer une table , ajouter deux enregistrements de données , boucle à travers les dossiers et afficher les résultats dans une liste de contrôle de la boîte de votre nouvelle forme .
Dim dBase comme base de données
recordSt As Recordset Photos Dim X As Integer
stringSQL Dim As String
strgVar Dim As String
Set DBase = CurrentDB
stringSQL = "Créer TABLE nEWTABLE ( TEXTE Prénom (25) , TEXT NOM (25) ) ; "
DoCmd.RunSQL ( stringSQL )
stringSQL = " INSERT INTO nEWTABLE ( [Prénom ] [ Nom] ) "
stringSQL = stringSQL &" VALUES (' John ', ' Smith '); "
DoCmd.SetWarnings Faux
DoCmd.RunSQL ( stringSQL )
< p> stringSQL = " INSERT INTO nEWTABLE ( [ Prénom] [ Nom] )"
stringSQL = stringSQL & " VALUES ( ' Jaime ', ' Avelar ') ; "
DoCmd.SetWarnings faux
DoCmd.RunSQL ( stringSQL )
Set recordSt = DBase.OpenRecordset ( " nEWTABLE " )
recordSt.MoveFirst
Pour X = 0 To recordSt.RecordCount - 1 x strgVar = Trim ( . recordSt.Fields ( "Nom" ) Value) & "" & Trim ( recordSt.Fields (". Prénom " ) Value)
List0 . AddItem strgVar
recordSt.MoveNext
Suivant X
|
