Tecnología

Inicio

Cómo imprimir el contenido de un cuadro de lista en VBA

Cómo imprimir el contenido de un cuadro de lista en VBA


Imprimir el contenido de un control "ListBox" en el programa de Visual Basic Aplicaciones (VBA) para le puede ayudar a ver los contenidos del control mientras depura su programa. VBA se puede utilizar en cualquiera de las aplicaciones de Microsoft Office, incluido el acceso. Un cuadro de lista se utiliza comúnmente en Access para dar al usuario datos adicionales opciones de clasificación. Utilice la propiedad "ItemData" para acceder a los elementos en el cuadro combinado mediante la especificación de un número de fila y mostrarlos a través de la ventana Inmediato.

Instrucciones

1 Lanzamiento de Microsoft Access, haga clic en la pestaña "Crear" y haga clic en "Diseño de formulario" para crear una nueva forma. Haga clic en "Cuadro de lista" en el panel "Controles" y haga clic en el formulario para agregar un nuevo control de cuadro combinado. Haga clic en "botón de comando" para añadir un nuevo botón. Añadir un segundo botón utilizando el mismo proceso.

2 Haga clic en el primer botón de comando y haga clic en "Propiedades". Haga clic en la pestaña "Eventos", seleccione "[Procedimiento de evento]," y haga clic en los puntos suspensivos para crear un evento de clic de este botón.

3 Agregue el siguiente código dentro del evento de clic de botón para rellenar el cuadro de lista con cuatro elementos:

Me.List0.RowSourceType = "Lista de valores"

Me.List0.AddItem ( "punto 1")

Me.List0.AddItem ( "punto 2")

Me.List0.AddItem ( "elemento 3")

Me.List0.AddItem ( "elemento 4")

4 Cambie de nuevo a Microsoft Access y haga clic en el primer botón de comando. Haga clic en "Propiedades" y haga clic en la pestaña "Eventos", a continuación, seleccione "[Procedimiento de evento]" y haga clic en los puntos suspensivos para crear un evento de clic de este botón.

5 Agregue el código siguiente para imprimir el contenido en el control "ListBox" a la ventana Inmediato:

Dim X

Para X = 0 a 3

Debug.Print (Me.List0.ItemData(X))

Siguiente X

6 Cambie de nuevo a Microsoft Access y haga clic en el icono "Ver" para ejecutar el formulario. Haga clic en el primer botón para rellenar el control "ListBox"; haga clic en el segundo botón para imprimir los elementos a la ventana Inmediato.