|
Savoir comment utiliser les contrôles dans un formulaire et transmettre des valeurs de ces contrôles à une requête peut vous faire gagner du temps lorsque vous travaillez avec des bases de données . Microsoft Office Access est un système de gestion de base de données relationnelle couramment utilisé pour les petites bases de données . Une liste déroulante est un contrôle utilisé dans les interfaces utilisateur graphiques ( GUI) pour fournir à l'utilisateur une plus grande souplesse pour manipuler les données . Un contrôle de zone de liste est utile lorsque vous avez besoin d'afficher les résultats des requêtes de l'utilisateur. 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
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 Sélectionnez l'onglet "Créer" et " Form Design " pour créer une nouvelle forme . Cliquez sur " Combo Box " sur le volet " Commandes " , puis cliquez sur votre formulaire et faites glisser la souris 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 " Sur 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 utilise la table «Employés» pour plus d'informations .
Option Compare Database
Private Sub Command0_Click ()
de strSQL Dim As String
Dim nameSelected As String
Me.Combo0.SetFocus
nameSelected = Me.Combo0.Text
strSQL = " SELECT employés . [titre du poste ] , employés . [ Adresse E-mail ] "
strSQL = strSQL &" FROM Employees "
strSQL = strSQL &" WHERE ( ( ( Employees. [ Nom ]) = '"& ( nameSelected ) &"' ) ) , "
Me.List0.RowSourceType =" Table /Requête "
Me.List0.RowSource = strSQL
End Sub
Private Sub Form_Load ( )
Me.List0.ColumnCount = 2
Me.Combo0.RowSourceType = " Table /Requête "
Me.Combo0.RowSource = " SELECT employés . [ Prénom ] FROM Employés ; "
End Sub
5 Fermez la " fenêtre " et clic-droit" Microsoft Visual Basic Form1 ", puis sélectionnez " Form View " . Sélectionnez un nom de famille du contrôle de zone de liste déroulante. Cliquez sur " Command0 " pour afficher les informations des employés dans le contrôle zone de liste basée sur le dernier nom que vous avez sélectionné .
|
