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

Manipulación de elementos de cuadro de lista en una aplicación de Microsoft Access base de datos no es tan complicado un proceso como uno podría pensar . En Access , puede utilizar Visual Basic para Aplicaciones - o VBA - para ayudar a automatizar procesos tales 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 " determina el número de filas de 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

clic en la pestaña "Crear" , y haga clic en " Diseño de formularios ". 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 con 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 Tipo de origen . Haga lo mismo para el segundo cuadro de lista.

3 Haga clic en el formulario , haga clic en "Propiedades " y seleccione " Form " en " Tipo de selección ". Haga clic en la ficha " Evento " y elegir la opción " [ Procedimiento de evento ] " al lado de la carga. Haz clic en los puntos suspensivos para crear evento de carga del formulario
4

Copia y pega el código siguiente para agregar cuatro elementos al control cuadro de lista : .

Me.List1.AddItem ("elemento 1 " )

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

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

Me.List1.AddItem (" elemento 4 ")
5

Haga clic en el botón de comando , haga clic en " crear evento ", y seleccione" Code Builder " para crear un evento de clic de botón.
6

Copy y pegue el siguiente código para mover todos los elementos de la primera lista de la segunda caja de lista cuando se hace clic en el botón :

xCntr Dim As Integer

Me.List4.SetFocus
< p > En 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

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