Avoir des connaissances sur la façon de créer et d'utiliser des formes avancées de Microsoft Office Access ne peut rendre vos applications de base de données plus puissant . Vous pouvez facilement créer un formulaire à l'aide de l'Assistant Formulaire , mais vous ne serez pas toujours obtenir les résultats que vous voulez . Vous avez la possibilité d'ajouter différents contrôles de votre formulaire lorsque vous créez manuellement. En outre, vous pouvez écrire Visual Basic pour Applications ( VBA) pour exécuter des processus derrière ces contrôles. Visual Basic pour Applications ( VBA) est un langage de programmation informatique utilisé pour automatiser des tâches de routine dans Access et d'autres applications MS Office. Choses que vous devez
Microsoft Office Access
base de données Northwind
Afficher plus Instructions
1

Ouvrez la base de données Access Northwind Microsoft Office . La base de données Northwind est inclus dans la suite Microsoft Office.
2

Cliquez sur l'onglet "Créer" et sélectionnez " Form Design " pour créer une nouvelle forme . Cliquez sur " Combo Box " sur le volet " Commandes ", puis clic gauche sur votre formulaire et faites glisser pour créer un nouveau contrôle de zone de liste déroulante. Cliquez sur "Bouton " sur le volet «contrôle» et ajouter un nouveau bouton à votre formulaire . Sélectionnez " List Box" et ajouter une nouvelle liste de contrôle de la boîte de votre formulaire.
3

clic droit " Command0 " et sélectionnez "Propriétés". Cliquez sur l'onglet "Evénement" et sélectionnez " [Procédure événementielle ] " à côté de " Au clic " . Cliquez sur les points de suspension ( «...» ) pour ouvrir la fenêtre " Microsoft Visual Basic " . Appuyez sur "Ctrl " et "A" et appuyez sur "Supprimer" pour supprimer tout le code existant.
4

copiez et collez le code suivant dans votre nouveau module. Le code va charger le contrôle de la zone de liste déroulante avec noms de la table " Produit" .
Option Compare Database

Private Sub Command2_Click ()

de sqlstr Dim As String

Dim prductSelected As String

Me.Combo3.SetFocus

prductSelected = Me.Combo3.Text

sqlstr = " SELECT produits . [ Nom du produit ] , les produits . [ Prix conseillé ] "

sqlstr = sqlstr &" FROM Products "

sqlstr = sqlstr &" WHERE ( ( ( Products. [ Nom du produit ] ) = ' "& ( prductSelected ) &" " ) ) ; "

Me.List0.RowSourceType = " Table /Requête "

Me.List0.RowSource = sqlstr
< p> End Sub

Private Sub Form_Load ( )

Me.List0.ColumnCount = 2

Me.Combo3.RowSourceType = " Table /Requête "
< p> Me.Combo3.RowSource = " . produits Sélectionnez [ Nom du produit ] FROM produits ; "

End Sub
5

Fermez la fenêtre " Microsoft Visual Basic " Fenêtre et clic-droit " Form1 " puis sélectionnez " Form View" . Liste de noms de produire à partir du contrôle de zone de liste déroulante . Cliquez sur " Command0 " pour afficher Prix de liste dans le contrôle zone de liste basée sur le nom du produit que vous avez sélectionné .