Hvordan du flytter alle elementer fra en ListBox til en annen i Access

August 24

Manipulere liste boksen elementer i en Microsoft Access database applikasjon er ikke så komplisert prosess som en skulle tro. I Access kan du bruke Visual Basic for Applications - eller VBA - for å hjelpe deg å automatisere prosesser som å flytte elementer fra en valgliste til en annen. Den "AddItem" metoden brukes til å legge til nye elementer til en listeboks kontroll. Den "ListCount" eiendom bestemmer antall rader i en listeboks, og "RemoveItem" metoden fjerner et element fra listen over verdiene som vises i en listeboks.

Bruksanvisning

1 Klikk på fanen "Create", og klikk "Form Design". Klikk "List Box" på Kontroller-panelet, og klikk på skjemaet for å legge en ny liste bokskontroll. Opprett en ny liste boks og en knapp med den samme teknikken.

2 Høyreklikk på den første valglisten, klikk på "Properties" og klikk på "Data" -fanen. Velg "Value List" ved siden av radkilden Type. Gjør det samme for den andre listen.

3 Høyreklikk skjemaet, klikk på "Properties" og velg "Form" under "Utvalg Type." Klikk på "Event" -fanen og velg "[Hendelsesprosedyre]" ved siden av belastning. Klikk ellipseknappen å opprette skjemaet last event.

4 Kopier og lim inn følgende kode for å legge til fire elementer i listeboksen kontroll:

Me.List1.AddItem ( "element 1")

Me.List1.AddItem ( "punkt 2")

Me.List1.AddItem ( "element 3")

Me.List1.AddItem ( "punkt 4")

5 Høyreklikk på kommandoknappen, klikk på "Build hendelse» og velger "Code Builder" for å lage en knapp klikk hendelsen.

6 Kopier og lim inn følgende kode for å flytte alle elementer fra den første valglisten til andre listeboksen når knappen klikkes:

Dim xCntr As Integer

Me.List4.SetFocus

For xCntr = 0 For å Me.List1.ListCount - 1

Me.List4.AddItem (Me.List1.ItemData(xCntr))

Neste xCntr

For xCntr = 0 For å Me.List1.ListCount - 1

Me.List1.RemoveItem (0)

Neste xCntr

7 Bytt tilbake til databasen vinduet Microsoft Access, og klikk på "Vis" -ikonet på Visninger-ruten. Klikk på kommandoknappen for å flytte elementer fra den første valglisten til den andre.