February 24
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.
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.