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

February 24

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


Manipolare oggetti casella di riepilogo in un'applicazione di database di Microsoft Access non è così complicato un processo come si potrebbe pensare. In Access, è possibile utilizzare Visual Basic, Applications - o VBA - per aiutare ad automatizzare processi come lo spostamento di elementi da una casella di riepilogo a un 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.

istruzione

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

2 Fare clic sulla prima casella di riepilogo, fare clic su "Proprietà" e fare clic sulla scheda "Dati". Selezionare "Elenco dei valori" accanto alla riga del tipo di sorgente. Fare lo stesso per la seconda casella di riepilogo.

3 Fare clic con il modulo, fare clic su "Proprietà" e selezionare "Form" sotto "Tipo di selezione." Fare clic sulla scheda "Evento" e scegliere "[Routine evento]" accanto al carico. Fare clic sui puntini di sospensione per creare eventi di carico di maschera.

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

Me.List1.AddItem ( "punto 1")

Me.List1.AddItem ( "punto 2")

Me.List1.AddItem ( "punto 3")

Me.List1.AddItem ( "punto 4")

5 Fare clic con il pulsante di comando, fare clic su "Build Event," e scegliere "Generatore di codice" per creare un evento click del pulsante.

6 Copiare e incollare il seguente codice per spostare tutti gli elementi dalla casella prima lista a seconda casella di riepilogo quando 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))

Successivo xCntr

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

Me.List1.RemoveItem (0)

Successivo xCntr

7 Tornare alla finestra di database di Microsoft Access, e fare clic sull'icona "Visualizza" nel riquadro Visualizzazioni. Fare clic sul pulsante di comando per spostare gli elementi dalla casella prima lista all'altra.


Articoli Correlati