Cómo llenar un cuadro de lista o un cuadro combinado con nombres de objeto de la base de datos

Avanzado: requiere conocimientos avanzados de código, interoperabilidad y multiusuario.

Este artículo se refiere a una base de datos de Microsoft Access (.mdb) y a un proyecto de Microsoft Access (.adp).


Este artículo se refiere a una base de datos de Microsoft Access (.mdb o .accdb) y a un proyecto de Microsoft Access (.adp).


Para obtener una versión de este artículo para Microsoft Access 97, vea
124344.

Resumen

En este artículo se muestra cómo utilizar el nuevo método AddItem en Microsoft Access para llenar un cuadro de lista o un cuadro combinado con los nombres de objeto de la base de datos.

Más información

Microsoft proporciona ejemplos de programación con fines ilustrativos únicamente, sin ninguna garantía tanto expresa como implícita. Esto incluye, entre otras, las garantías implícitas de comerciabilidad e idoneidad para un fin determinado. En este artículo se da por supuesto que ya conoce el lenguaje de programación que se muestra, así como las herramientas empleadas para crear y depurar procedimientos. Los ingenieros de soporte técnico de Microsoft pueden explicarle la funcionalidad de un determinado procedimiento, pero no modificarán estos ejemplos para ofrecer mayor funcionalidad ni crearán procedimientos adaptados a sus necesidades específicas.
Los pasos siguientes muestran cómo llenar un cuadro de lista o un cuadro combinado con los nombres de objeto de la base de datos:

  1. Abra la base de datos de ejemplo Neptuno.mdb.

  2. Cree un formulario nuevo en la vista Diseño.

  3. Agregue un control de cuadro de lista y, a continuación, establezca las propiedades siguientes:

    ListBox

    Nombre: listObjects

    RowSourceType: lLista de valores

    Número de columnas: 2

    Ancho de columnas: .7"; 1.5"


  4. Agregue el código siguiente al evento OnLoad del formulario:

    Private Sub Form_Load()
    Dim accObject As Access.AccessObject

    'Fill with Tables
    For Each accObject In CurrentData.AllTables
    Me.listObjects.AddItem "TABLE;" & accObject.Name
    Next

    'If currently opened file is an Access database (mdb), then fill
    'with queries.
    'Otherwise, if it is an Access project (adp), fill with views,
    'stored procedures, database diagrams, and functions.
    If CurrentProject.ProjectType = acMDB Then
    For Each accObject In CurrentData.AllQueries
    Me.listObjects.AddItem "QUERY;" & accObject.Name
    Next
    Else
    For Each accObject In CurrentData.AllViews
    Me.listObjects.AddItem "VIEW;" & accObject.Name
    Next
    For Each accObject In CurrentData.AllStoredProcedures
    Me.listObjects.AddItem "PROCEDURE;" & accObject.Name
    Next
    For Each accObject In CurrentData.AllDatabaseDiagrams
    Me.listObjects.AddItem "DIAGRAM;" & accObject.Name
    Next
    For Each accObject In CurrentData.AllFunctions
    Me.listObjects.AddItem "FUNCTION;" & accObject.Name
    Next
    End If

    'Fill list with forms.
    For Each accObject In CurrentProject.AllForms
    Me.listObjects.AddItem "FORM;" & accObject.Name
    Next
    'Fill list with reports.
    For Each accObject In CurrentProject.AllReports
    Me.listObjects.AddItem "REPORT;" & accObject.Name
    Next
    'Fill list with data access pages.
    For Each accObject In CurrentProject.AllDataAccessPages
    Me.listObjects.AddItem "PAGE;" & accObject.Name
    Next
    'Fill list with macros.
    For Each accObject In CurrentProject.AllMacros
    Me.listObjects.AddItem "MACRO;" & accObject.Name
    Next
    'Fill list with modules.
    For Each accObject In CurrentProject.AllModules
    Me.listObjects.AddItem "MODULE;" & accObject.Name
    Next
    End Sub
  5. Guarde el formulario y ciérrelo.

  6. Abra el formulario en la vista Formulario.

Observe que el cuadro de lista contiene dos columnas. La primera columna contiene el tipo de objeto, como una tabla, consulta, formulario, etcétera. La segunda columna contiene el nombre del objeto.

¿Necesita más ayuda?

Ampliar sus conocimientos
Explorar los cursos
Obtener nuevas características primero
Unirse a Microsoft Insider

¿Le ha sido útil esta información?

¡Gracias por sus comentarios!

Gracias por sus comentarios. Quizá le interese ponerse en contacto con uno de nuestros agentes de soporte de Office.

×