Cómo mover todos los elementos de un cuadro de lista a otro en Access

La manipulación de elementos de cuadro de lista en una aplicación de base de datos Microsoft Access no es tan complicado un proceso como uno podría pensar. En Access, puede utilizar Visual Basic para Aplicaciones - VBA o - para ayudar a automatizar procesos tales como mover elementos de un cuadro de lista a otro. El método "AddItem" se utiliza para añadir nuevos elementos a un control de cuadro de lista. La propiedad "ListCount" determina el número de filas en un cuadro de lista, y el método "RemoveItem" elimina un elemento de la lista de valores que se muestran en un cuadro de lista.

Instrucciones

1 Haga clic en la pestaña "Crear", y haga clic en "Diseño de formulario." Haga clic en "Cuadro de lista" en el panel de controles, y haga clic en el formulario para agregar un nuevo control de cuadro de lista. Crear un segundo cuadro de lista y un botón utilizando la misma técnica.

2 Haga clic en el primer cuadro de lista, haga clic en "Propiedades" y haga clic en la pestaña "Datos". Seleccione "Lista de valores" al lado de la fila fuente Tipo. Haga lo mismo para el segundo cuadro de lista.

3 Haga clic en el formulario, haga clic en "Propiedades" y seleccione "Formulario" en "Selección de tipo". Haga clic en la pestaña "Eventos" y elegir la opción "[Procedimiento de evento]" al lado de la carga. Haga clic en los puntos suspensivos para crear evento de carga del formulario.

4 Copiar y pegar el siguiente código para agregar cuatro elementos para el control de cuadro de lista:

Me.List1.AddItem ( "punto 1")

Me.List1.AddItem ( "punto 2")

Me.List1.AddItem ( "elemento 3")

Me.List1.AddItem ( "elemento 4")

5 Haga clic con el botón de comando, haga clic en "Generar evento," y elegir la opción "Generador de código" para crear un evento de clic de botón.

6 Copiar y pegar el siguiente código para mover todos los artículos en el primer cuadro de lista para el segundo cuadro de lista cuando se hace clic en el botón:

Dim xCntr como número entero

Me.List4.SetFocus

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

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

Siguiente xCntr

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

Me.List1.RemoveItem (0)

Siguiente xCntr

7 Cambie de nuevo a la ventana de base de datos Microsoft Access y haga clic en el icono "Ver" en el panel Vistas. Haga clic en el botón de comando para mover los elementos del primer cuadro de lista a la otra.