Manipulering listeværdierne emner i en Microsoft Access-database ansøgning er ikke så kompliceret en proces , som man skulle tro. I Access kan du bruge Visual Basic for Applications - eller VBA - for at hjælpe dig med at automatisere processer såsom at flytte elementer fra den ene oversigt til den anden. Den " AddItem "-metoden bruges til at tilføje nye elementer til en liste kontrol. Den " ListCount " egenskab bestemmer antallet af rækker i en liste, og " RemoveItem " metode fjerner et element fra listen over værdier, der vises på en liste . Instruktioner
1
Klik på " Opret" fanen, og klik på " Form Design ". Klik på " List Box" på Controls rude, og klik på formular til at tilføje en ny liste box kontrol. Opret en anden liste og en knap ved hjælp af samme teknik.
2
Højreklik den første liste , klik på "Egenskaber ", og klik på "Data" fanen. Vælg "Value List" siden Row Kilde Type . Gør det samme for den anden liste.
3
Højreklik på formularen , klik på "Egenskaber ", og vælg "Form" under " Selection Type ". Klik på " Event" -fanen og vælg " [ Hændelsesprocedure ] " ud for On Load . Klik på ellipsen at oprette formular load begivenhed
4
Kopier og indsæt følgende kode til at tilføje fire punkter til listen styring: .
Me.List1.AddItem ( " punkt 1 " )
Me.List1.AddItem ( " punkt 2 ")
Me.List1.AddItem ( " punkt 3 ")
Me.List1.AddItem ( " element 4 ")
5
Højreklik på kommandoen , klik på" Build event, "og vælg" Code Builder "for at oprette en knap klik begivenheden .
6
Copy og indsæt følgende kode til at flytte alle elementer fra den første liste til den anden liste , når der klikkes på knappen : Hej
Dim xCntr As Integer
Me.List4.SetFocus
< p> For xCntr = 0 Til Me.List1.ListCount - 1
Me.List4.AddItem ( Me.List1.ItemData ( xCntr ) )
Næste xCntr
xCntr = 0 Til Me.List1.ListCount - 1
Me.List1.RemoveItem (0)
Næste xCntr
7
Skift tilbage til Microsoft Access-database vinduet, og klik på "Vis" -ikonet på ruden Visninger . Klik på kommandoen for at flytte elementer fra den første liste til den anden.