Manipolare gli elementi della casella elenco in un'applicazione di database di Microsoft Access non è così complicato un processo come si potrebbe pensare. In Access, è possibile utilizzare Visual Basic per Applications-- o VBA..--ti consentono di automatizzare processi quali lo spostamento di elementi da una casella di riepilogo a un altro. Il metodo "AddItem" è 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 "RemoveItem" metodo rimuove un elemento dall'elenco dei valori visualizzati in una casella di riepilogo.

Istruzioni

1

Fare clic sulla scheda "Crea" e scegliere "Modulo Design." Fare clic su "Casella di riepilogo" nel riquadro comandi 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

Pulsante destro del mouse la prima casella di riepilogo, fare clic su "Proprietà" e fare clic sulla scheda "Dati", selezionare "lista valori" accanto al tipo origine riga. Fare lo stesso per la seconda casella di riepilogo.

3

Del mouse sul form, fare clic su "Proprietà" e selezionare "Modulo" in "Tipo di selezione." Fare clic sulla scheda "Eventi" e scegliere "[routine evento]" accanto il carico. Fare clic sui puntini di sospensione per creare evento form load.

4

Copiare e incollare il codice seguente per aggiungere quattro elementi per il controllo casella di riepilogo:

Me.List1.AddItem ("item 1")

Me.List1.AddItem ("articolo 2")

Me.List1.AddItem ("articolo 3")

Me.List1.AddItem ("articolo 4")

5

Fare clic con il pulsante di comando, fare clic su "Genera eventi" e scegliere "Code Builder" per creare un evento di click del pulsante.

6

Copiare e incollare il codice seguente 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 To Me.List1.ListCount - 1

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

Prossimo xCntr

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

Me.List1.RemoveItem (0)

Prossimo xCntr

7

Tornare alla finestra del database di Microsoft Access e fare clic sull'icona "Visualizza" nel riquadro Visualizzazioni. Fare clic sul pulsante di comando per spostare gli elementi dalla prima casella di riepilogo a altro.