|
Savoir mettre les résultats d'une requête à un contrôle de zone de liste et utiliser ses valeurs dans une autre requête peut rendre vos applications de base de données plus dynamique. Microsoft Office Access vous permet de créer une interface utilisateur graphique (GUI) , ajoutez un contrôle de zone de liste et l'utiliser pour afficher les données de la requête. L'accès est un système de gestion de base de données relationnelle couramment utilisée pour les plus petites bases de données . Une requête est utilisée pour extraire des données d' une table de base de données. Visual Basic pour Applications ( VBA) est un langage de programmation informatique utilisé pour automatiser des tâches de routine. 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 " List Box" sur le volet " Commandes ", puis cliquez sur votre formulaire , maintenez le bouton de la souris et faites glisser la souris pour créer une nouvelle liste de contrôle de la boîte. Cliquez sur " Bouton " sur le volet "Controls " pour ajouter un nouveau bouton à votre formulaire de la même manière que vous avez ajouté la boîte de liste.
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 le bouton de sélection ( ... ) pour ouvrir la fenêtre " Microsoft Visual Basic "
4 Copiez et collez le code suivant dans " Private Sub Command0_Click () ": .
Dim strSQL As String
strSQL = " SELECT Orders . [ Employee ID ] , "
strSQL = strSQL & "Ordres . [ ID client ], les commandes. [Date envoi] , "
strSQL = strSQL & " Ordres. [ Nom du navire ] , ordres . [ Ship Adresse] "
strSQL = strSQL & " FROM Orders "
strSQL = strSQL & " WHERE ( ( ( Orders. [ Ship Adresse ]) = '123 8th Street ')); "
Me.List0.RowSource = strSQL
Ce code va interroger le " commandes " table et régler" RowSource " propriété de la liste de contrôle de la boîte.
5 revenir à la fenêtre de Microsoft Access et clic-droit" List0 ", puis sélectionnez " Propriétés ". Cliquez sur l'onglet "Evénement" et sélectionnez " [Procédure événementielle ] " à côté de " après mise à jour . " Cliquez sur les points de suspension (...) pour ouvrir la fenêtre " Microsoft Visual Basic "
6 Copiez et collez le code suivant dans " Private Sub List0_Click () ": .
Dim dbs As Database
rst As Recordset
sqlstr Dim As String
Dim je As Integer
Set dbs = CurrentDb
i = 0 To Me ! List0.ListCount
Si moi! List0.Selected (I) Puis
sqlstr = " SELECT Orders . [Date envoi] FROM Orders "
sqlstr = sqlstr & " où les commandes [Employee ID] = . " & ( Me! List0.ItemData (I) ) & " ; "
Set rst = dbs.OpenRecordset ( sqlstr )
rst.MoveLast
rst.MoveFirst
Debug.Print " date d'expédition pour l'article sélectionné :" & rst.Fields (0 ) Valeur
rst.Close
. End If
Ensuite je
dbs.Close
Ce code permet d'afficher la «date Expédié « les éléments sélectionnés dans la zone de liste . Les résultats seront affichés dans la fenêtre " immédiate" .
7 fermer la fenêtre " Microsoft Visual Basic " et clic-droit " Form1 ", puis sélectionnez " Mode formulaire. " Cliquez sur " Command0 " pour remplir la zone de liste avec des données. Sélectionnez une valeur dans la zone de liste pour exécuter le code pour le contrôle zone de liste .
|
