Manipulera listrutan objekt i en Microsoft Access-databas ansökan är inte så komplicerat en process som man tror . I Access kan du använda Visual Basic for Applications - eller VBA - för att hjälpa dig att automatisera processer som att flytta objekt från en listruta till en annan . Den " addItem " metoden används för att lägga till nya objekt i en listruta kontroll . Den " ListCount " egendom bestämmer antalet rader i en listbox , och " removeItem " metod tar bort ett objekt från listan med värden som visas i en listruta . Instruktioner
1
Klicka på " Skapa " -fliken och klicka på " Form Design . " Klicka på " Lista Box " på Kontroller rutan och klicka på formuläret för att lägga till en ny kontroll listrutan . Skapa en andra listrutan och en knapp med samma teknik .
2
Högerklicka på första listrutan , klicka på " Egenskaper" och klicka på " Data "-fliken . Välj " Standard List " bredvid radkällan Type . Gör samma sak för den andra listrutan .
3
Högerklicka på formen , klicka på " Egenskaper " och välj " Form " under " Selection Type . " Klicka på "Event " -fliken och välj " [Event Procedure ] " bredvid på belastning. Klicka på ellips för att skapa händelse formulär belastning
4
Kopiera och klistra in följande kod för att lägga till fyra objekt i listrutan kontroll : .
Me.List1.AddItem ( " punkt 1 " ) katalog
Me.List1.AddItem ( " punkt 2 " ) katalog
Me.List1.AddItem ( " punkt 3 " ) katalog
Me.List1.AddItem ( " objektet 4 " )
5
Högerklicka på kommandot , klicka på" skapa händelse ", och välj " Code Builder " för att skapa en händelse knapptryckning .
6
Copy och klistra in följande kod för att flytta alla objekt från den första listrutan till den andra listrutan när du klickar på knappen :
Dim xCntr As Integer
Me.List4.SetFocus
För xCntr = 0 att Me.List1.ListCount - 1 Me.List4.AddItem
( Me.List1.ItemData ( xCntr ) ) katalog
Nästa xCntr
xCntr = 0 att Me.List1.ListCount - 1 Me.List1.RemoveItem
( 0 ) katalog
Nästa xCntr
7
Växla tillbaka till Microsoft Access-databas fönstret , och klicka på " Visa " -ikonen på rutan Vyer . Klicka på kommandot för att flytta objekt från den första listrutan till den andra .
