|
liste Manipulation éléments de boîte dans une application de base de données Microsoft Access n'est pas aussi compliqué un processus que l'on pourrait penser . Dans Access, vous pouvez utiliser Visual Basic pour Applications - ou VBA - pour vous aider à automatiser les processus tels que déplacer des éléments d'une zone de liste à l'autre. La méthode " AddItem " est utilisé pour ajouter de nouveaux éléments à un contrôle de zone de liste. La propriété " ListCount " détermine le nombre de lignes dans une zone de liste , et la méthode " RemoveItem " supprime un élément de la liste des valeurs affichées dans une zone de liste . Instructions
1 Cliquez sur l'onglet "Créer" , puis cliquez sur « Form Design ». Cliquez sur " List Box" sur le volet Contrôles, puis cliquez sur le formulaire pour ajouter une nouvelle liste de contrôle de la boîte. Créer une deuxième zone de liste et un bouton en utilisant la même technique.
Un clic droit sur la première zone de liste 2 , cliquez sur «Propriétés» et cliquez sur l'onglet "Data" . Sélectionnez "Liste de valeurs" à côté de la rangée type de source. Faites de même pour la deuxième zone de liste.
3 un clic droit sur le formulaire, cliquez sur «Propriétés », puis sélectionnez «Formulaire» sous la rubrique « Type de sélection . " Cliquez sur l' onglet "Evénement " et choisissez " [Procédure événementielle ] " à côté de la charge. Cliquez sur l' ellipse pour créer l'événement de chargement du formulaire
4 Copier et coller le code suivant pour ajouter quatre éléments à la liste de contrôle de la boîte: .
Me.List1.AddItem ( "item 1 »)
Me.List1.AddItem ( " point 2 " )
Me.List1.AddItem ( " point 3 " )
Me.List1.AddItem ( " item 4 ")
5 clic droit sur le bouton de commande , cliquez sur" créer l'événement ", et choisissez " Code Builder »pour créer un événement de clic de bouton.
6 copie et collez le code suivant pour mettre tous les éléments de la première zone de liste pour la deuxième zone de liste lorsque le bouton est cliqué:
xCntr As Integer
Me.List4.SetFocus
< p> Pour xCntr = 0 To Me.List1.ListCount - 1 x Me.List4.AddItem ( Me.List1.ItemData ( xCntr ) )
Suivant xCntr
xCntr = 0 To Me.List1.ListCount - 1 x Me.List1.RemoveItem (0)
Suivant xCntr
7 revenir à la base de données Microsoft Access fenêtre , et cliquez sur l'icône "Affichage" dans le volet Vues . Cliquez sur le bouton de commande pour déplacer les éléments de la première zone de liste à l'autre.
|
