|
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
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.
|
