Cómo rellenar cuadros de texto con selecciones de cuadro combinado de varias columnas

Moderado: requiere aptitudes básicas de macro, codificación e interoperabilidad.

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

Resumen

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

Más información

Microsoft proporciona ejemplos de programación con fines ilustrativos únicamente, sin ninguna garantía, ya sea expresa o implícita. Esto incluye, entre otras, las garantías implícitas de comerciabilidad e idoneidad para un fin determinado. Se considera que está familiarizado con el lenguaje de programación que se muestra y con las herramientas 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. Para actualizar los cuadros de texto con selecciones realizadas en un cuadro combinado de varias columnas, siga estos pasos:

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

2. Cree una nueva tabla en Northwind.mdb que incluya 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. Cree un formulario en Northwind.mdb que contenga los siguientes controles:

   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 de una tabla o consulta y, a continuación, haga clic en Siguiente.
   2. Haga clic en Tabla: Empleadosy, a continuación, haga clic en Siguiente.
   3. Mueva los campos LastName, FirstName y Title de la lista Campos disponibles a la lista Campos seleccionados seleccionando cada campo y, a continuación, haciendo clic en el > botón. Haga clic en Siguiente.
   4. Haga clic en Siguiente, haga clic en Recordar el valor para su uso posterior y, a continuación, haga clic en Siguiente.
   5. En el cuadro ¿Qué etiqueta le gustaría para el cuadro combinado ?, escriba Make Selection (Crear selección) y, a continuación, haga clic en Finish (Finalizar).

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

6. Haga clic en la pestaña Otros y escriba cboNames en el cuadro Nombre.

7. Haga clic en la pestaña Evento, haga clic en el cuadro de evento Después de actualizar y, a continuación, haga clic en el botón Compilar (...) .

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

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

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 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 Siguiente registro. Repita este paso para cada registro que quiera guardar.
12. Abra Table1 en la vista Tabla para confirmar que se han guardado nuevos registros. Tenga en cuenta que después de hacer clic en un elemento del cuadro combinado, la propiedad AfterUpdate ejecuta el procedimiento de evento que rellena los tres cuadros de texto del formulario y se agrega un nuevo registro a Table1.