Moderada: Requiere macro básico, codificación y conocimientos de interoperabilidad.


En este artículo se aplica a una base de datos de Microsoft Access (.mdb) y a un proyecto de Microsoft Access (.adp).


Para una versión de Microsoft Microsoft Access 2000 de este artículo, consulte 322900.

Para una versión de Microsoft Microsoft Access 97 de este artículo, consulte 322901.

Resumen

Este artículo explica cómo rellenar varios cuadros de texto con las selecciones realizadas en un cuadro combinado con varias columnas y, a continuación, guardar el contenido de los cuadros de texto en una tabla un registro.

Más información

Precaución: Si sigue los pasos de este ejemplo, modificará la base de datos de ejemplo Neptuno.mdb. Puede que desee hacer copia de seguridad del archivo Neptuno.mdb y seguir estos pasos en una copia de la base de datos.

Microsoft proporciona ejemplos de programación fines ilustrativos únicamente, sin ninguna garantía tanto expresa como implícita. Esto incluye, pero no se limita, a las garantías implícitas de comerciabilidad o idoneidad para un propósito particular. Este artículo asume que está familiarizado con el lenguaje de programación que se muestra y con las herramientas que se utilizan 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 que cumplan sus requisitos específicos. Para actualizar los cuadros de texto con las selecciones realizadas en un cuadro combinado de varias columnas, siga estos pasos:

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

  2. Crear una nueva tabla en Northwind.mdb que incluye los campos siguientes: Table: Table1
    ----------------------
    Field Name: ID
    Data Type: Autonumber
    Primary Key
    ---
    Field Name: FirstName
    Data Type: Text
    ---
    Field Name: LastName
    Data Type: Text
    ---
    Field Name: Title
    Data Type: Text

  3. Crear un nuevo formulario en Northwind.mdb que contiene los controles siguientes: Form: Form1
    ----------------------
    RecordSource: Table1
    ---
    Control Type: Text Box
    Name: txtFirstName
    ControlSource: FirstName
    ---
    Control Type: Text Box
    Name: txtLastName
    ControlSource: LastName
    ---
    Control Type: Text Box
    Name: txtTitle
    ControlSource: Title

  4. Agregue un cuadro combinado a Form1. En el Asistente para cuadros combinados, siga estos pasos:

    1. Haga clic en Quiero que el cuadro combinado busque los valores en una tabla o consultay, a continuación, haga clic en siguiente.

    2. Haga clic en tabla: empleadosy, a continuación, haga clic en siguiente.

    3. Mueva los campos Apellidos, nombrey título de la lista de Campos disponibles a la lista Campos seleccionados seleccionando cada campo y, a continuación, haga clic en el botón > . Haga clic en Siguiente.

    4. Haga clic en siguiente, haga clic en recordar el valor para utilizarlo más adelantey, a continuación, haga clic en siguiente.

    5. En el cuadro ¿Qué etiqueta desea para su cuadro combinado , escriba Hacer seleccióny, a continuación, haga clic en Finalizar.

  5. Haga clic en el cuadro combinado que creó en el paso 4 y, a continuación, haga clic en Propiedades.

  6. Haga clic en la ficha otros y, a continuación, en el cuadro nombre , escriba cboNames .

  7. Haga clic en la ficha evento , haga clic en la casilla Después de la actualización y, a continuación, haga clic en el botón Generar (...).

  8. Haga clic en Generador de códigoy, a continuación, haga clic en Aceptar.

  9. En el Editor de Visual Basic, escriba el siguiente código:

    Private Sub cboNames_AfterUpdate()   Me.txtFirstName = Me![cboNames].column(1)
    Me.txtLastName = Me![cboNames].column(2)
    Me.txtTitle = Me![cboNames].column(3)
    End Sub

  10. Salga del Editor de Visual Basic y, a continuación, abra el formulario Form1 en la vista formulario.

  11. Haga clic en un elemento en el cuadro combinado y, a continuación, haga clic en Registro siguiente. Repita este paso para cada registro que desea guardar.

  12. Abra la Tabla1 en la vista de la tabla para confirmar que se han guardado los registros nuevos. Tenga en cuenta que, después de hacer clic en un elemento en el cuadro combinado, la propiedad AfterUpdate ejecuta el procedimiento de evento que llena los tres cuadros de texto en el formulario y se agrega un nuevo registro a Tabla1.

¿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?

¿Cuál es tu grado de satisfacción con la calidad del lenguaje?
¿Qué ha afectado a tu experiencia?

¡Gracias por sus comentarios!

×