Come spostare tutti gli elementi da una casella di riepilogo a un altro in Access

Manipolazione delle voci di elenco di dialogo in un'applicazione di database di Microsoft Access non è così complicato un processo come si potrebbe pensare . In Access , è possibile utilizzare Visual Basic, Applications Edition - o VBA - per aiutare ad automatizzare processi come lo spostamento di elementi da un elenco all'altro . Il metodo " AddItem " viene utilizzato per aggiungere nuovi elementi a un controllo casella di riepilogo . La proprietà " ListCount " determina il numero di righe in una casella di riepilogo , e il metodo " RemoveItem " rimuove un elemento dalla lista dei valori visualizzati in una casella di riepilogo . Istruzioni
1

Fare clic sulla scheda "Crea " , e fare clic su " Form Design ". Fai clic su " Casella di riepilogo " nel riquadro Controlli e fare clic sul form per aggiungere un nuovo controllo casella di riepilogo . Creare una seconda casella di riepilogo e un pulsante con la stessa tecnica .
2

Fare clic destro sulla prima casella di riepilogo , fare clic su "Proprietà" e fare clic sulla scheda "Dati" . Selezionare " Elenco valori " accanto a Tipo origine riga . Fare lo stesso per la seconda casella di riepilogo .
3

destro del mouse sul modulo , fare clic su "Proprietà " e selezionare " Form" sotto "Tipo di selezione . " Fare clic sulla scheda "Evento" e scegliere " [ Event Procedure ] " accanto al carico. Fare clic sui puntini di sospensione per creare eventi di caricamento forma
4

Copia e incolla il seguente codice per aggiungere quattro elementi al controllo casella di riepilogo : .

Me.List1.AddItem ( " voce 1 " ) per

Me.List1.AddItem ( " voce 2 " ) per

Me.List1.AddItem ( " punto 3 " ) per

Me.List1.AddItem ( " voce 4 " ) economici

5 Fare clic con il pulsante di comando , fare clic su " Genera evento , " e scegli " Generatore di codice "per creare un evento click del pulsante .
6

Copia e incollare il seguente codice per spostare tutti gli elementi dalla prima casella di riepilogo per la seconda casella di riepilogo quando si fa clic sul pulsante :

Dim xCntr As Integer

Me.List4.SetFocus

Per xCntr = 0 Per Me.List1.ListCount - 1

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

Successivo xCntr

xCntr = 0 per Me.List1.ListCount - 1

Me.List1.RemoveItem ( 0 ) per

Successivo xCntr
7

Passare al database di Microsoft Access finestra e fare clic sull'icona "Visualizza" nel riquadro Vista . Fare clic sul pulsante di comando per spostare gli elementi dalla prima casella di riepilogo per l'altro .