Connaître comment accéder à une zone de liste déroulante et ensuite l'utiliser dans une requête est utile pour le développement d'applications informatiques. Par exemple, dans Microsoft Access, une zone de liste déroulante , il peut être plus facile pour l'utilisateur de manipuler les données . L'utilisation de Visual Basic pour Applications (VBA) langage de programmation informatique , vous pouvez faire une forme , créer une table , puis utilisez le tableau pour ajouter des données à une zone de liste déroulante . Instructions
1

Démarrer Microsoft Office Access 2007 , sélectionnez " Nouvelle base de données ", puis cliquez sur "Créer ".
2

Cliquez sur l'onglet "Créer" , puis sélectionnez " Form Design " pour créer une nouvelle forme . Cliquez sur " Combo Box " sur le volet " Commandes " , puis cliquez sur votre formulaire et faites-le glisser pour créer un nouveau contrôle de zone de liste déroulante. Cliquez sur "Button" sur le volet " Controls " pour ajouter un nouveau bouton à votre formulaire.
3

clic droit " Command0 », puis cliquez sur "Propriétés". Cliquez sur l'onglet "Evénement" , puis choisissez " [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 = " CREATE TABLE dataTable ( ComboIndx NOMBRE , rowData texte) "

DoCmd.RunSQL ( strSQL )

strSQL = "INSERT INTO dataTable ( ComboIndx , rowData ) "

strSQL = strSQL &" VALUES ( 1, ' Row1 '); "

DoCmd.SetWarnings Faux

DoCmd.RunSQL ( strSQL )

strSQL = "INSERT INTO dataTable ( ComboIndx , rowData ) "

strSQL = strSQL & " VALUES ( 2, ' Row2 '); "

DoCmd.SetWarnings Faux
< p> DoCmd.RunSQL ( strSQL )

strSQL = "INSERT INTO dataTable ( ComboIndx , rowData ) "

strSQL = strSQL & " VALUES ( 3 , ' Row2 '); "

DoCmd.SetWarnings Faux

DoCmd.RunSQL ( strSQL )

strSQL = "Select DataTable. * de DataTable "

strSQL = strSQL & "WHERE dataTable.rowData = ' Row2 '; "

Me.Combo0.RowSource = strSQL
5

revenir à la fenêtre Microsoft Access , cliquez droit sur" Combo0 », puis cliquez sur" Propriétés. " Cliquez sur l'onglet "Evénement" . Choisissez . [ Event Procedure ] " à côté de" après mise à jour . "Cliquez sur le bouton de sélection ( ... ) pour ouvrir le " Microsoft Visual Basic " fenêtre.
6

Copiez et collez le code suivant dans " Private Sub Combo0_AfterUpdate () ":

Dim dbs As Database

rst As Recordset

comboString As Integer

sqlstr Dim As String
< p > Set dbs = CurrentDb

comboString = Me.Combo10.Text

sqlstr = "SELECT dataTable.rowData de DataTable "

sqlstr = sqlstr & "WHERE dataTable.ComboIndx = "& ( comboString ) &" ; "

Set rst = dbs.OpenRecordset ( sqlstr )

rst.MoveLast

rst.MoveFirst

MsgBox" les données pour cet indice de combo est: "& rst.Fields (0 ) Valeur

rst.Close

dbs.Close
7

fermez le fichier. " Microsoft Visual "Fenêtre . Faites un clic droit " Basic Form1 », puis cliquez sur« Form View ". Cliquez sur" Command0 "pour remplir la zone de liste déroulante avec des données .
8

Sélectionnez une valeur dans la liste déroulante . Vous verrez les données pour cet indice dans une boîte de message.