Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky

Domáce Hardware Siete Programovanie Softvér Otázka Systémy

Ako presunúť všetky položky z jednej Listbox na iný Access

Manipulácia zoznam box položiek v databáze programu Microsoft Access nie je tak zložité , proces , ako by sa mohlo zdať . V programe Access môžete použiť Visual Basic for Applications - alebo VBA - , ktoré vám pomôžu automatizovať procesy , ako sú pohybujúce sa predmety z jedného zoznamu do druhého . Metóda " AddItem " slúži na pridanie novej položky do ovládací prvok zoznam . " ListCount " vlastnosť určuje počet riadkov v zozname , a metóda " RemoveIT " odstráni položku zo zoznamu hodnôt zobrazených v zozname. Pokyny dovolená 1

Kliknite na záložku " Vytvoriť " a kliknite na " Návrh formulára . " Kliknite na " zozname" , na paneli Ovládacie prvky a kliknite na formulár pridať nový ovládací prvok zoznam . Vytvorenie druhého zoznamu a tlačidlo rovnakou technikou .
2

Pravým tlačidlom myši na prvé pole so zoznamom , kliknite na tlačidlo " Vlastnosti " a kliknite na záložku " Data " . Zvoľte " Zoznam hodnôt " vedľa Typ zdroja riadkov. To isté urobte na druhom zozname .
3

pravým tlačidlom myši na formulár , kliknite na tlačidlo " Vlastnosti " a vyberte " formulár " pod " Výber typu . " Kliknite na záložku " udalosti " a vyberte " [ Event Procedure ] " vedľa na zaťaženie . Kliknutím na tlačidlo s tromi bodkami vytvoriť udalosť Load formulára
4

Skopírujte a vložte nasledujúci kód pridajte štyri položky na ovládací prvok zoznam : .

Me.List1.AddItem ( " bod 1 " )

Me.List1.AddItem ( " bod 2 " )

Me.List1.AddItem ( " bod 3 " )

Me.List1.AddItem ( " položka 4 " )
5

pravým tlačidlom myši na príkazové tlačidlo , kliknite na tlačidlo " Vytvoriť udalosť " a zvoľte " Tvorca kódu " vytvoriť tlačidlo udalosť click .
6

Copy a vložte nasledujúci kód do pohybu všetky položky z prvého zoznamu do druhého zoznamu pri kliknutí na tlačidlo :

Dim xCntr As Integer

Me.List4.SetFocus

Pre xCntr = 0 Me.List1.ListCount - 1

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

Ďalšie xCntr

xCntr = 0 To Me.List1.ListCount - 1

Me.List1.RemoveItem ( 0 )

Ďalšie xCntr
7

Prepnite späť do databázy Microsoft Access okno a kliknite na ikonu " Zobraziť " na paneli zobrazenie . Kliknite na príkazové tlačidlo presunúť položky z prvého zoznamu na strane druhej .

Najnovšie články

Copyright © počítačové znalosti Všetky práva vyhradené