ubiquitour.com

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

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

Manipular elementos de cuadro de lista en una aplicación de base de datos de Microsoft Access no está tan complicado un proceso como uno pensaría. En el acceso, puede utilizar Visual Basic para aplicaciones o VBA - para ayudar a automatizar procesos como mover elementos de una lista a otra. El método "AddItem" se utiliza para agregar nuevos elementos a un control de cuadro de lista. La propiedad "ListCount del" determina el número de filas en un cuadro de lista y el "RemoveItem" método quita un elemento de la lista de valores en un cuadro de lista.

Instrucciones

1 Haga clic en la ficha "Crear" y haga clic en "Diseño". Haga clic en "Cuadro de lista" en el panel de control 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 derecho en el primer cuadro de lista, haga clic en "Propiedades" y haz clic en la ficha "Datos" seleccione "lista de valores" al lado de tipo de origen de fila. Lo mismo para el segundo cuadro de lista.

3 Haga clic derecho en el formulario, haga clic en "Propiedades" y seleccione "Formato" en "Selección tipo." Haga clic en la pestaña de "Eventos" y elige "[procedimiento de evento]" al lado de la carga. Haga clic en los puntos suspensivos para crear evento de load del formulario.

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

Me.List1.AddItem ("elemento 1")

Me.List1.AddItem ("elemento 2")

Me.List1.AddItem ("artículo 3")

Me.List1.AddItem ("artículo 4")

5 Haga clic en el botón de comando, haga clic en "Crear evento" y elija "Generador de código" para crear un evento de clic de botón.

6 Copie y pegue el código siguiente para mover todos los elementos del primer cuadro de lista para el segundo cuadro de lista cuando se hace clic en el botón:

Dim xCntr As Integer

Me.List4.SetFocus

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

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

Siguiente xCntr

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

Me.List1.RemoveItem (0)

Siguiente xCntr

7 Volver a la ventana de base de datos de Microsoft Access y haga clic en el icono de "Vista" en el panel de vistas. Haga clic en el botón de comando para mover los elementos del primer cuadro de lista a otro.