Tecnología

Inicio

Cómo acceder a los datos Subform

Cómo acceder a los datos Subform


Conocer cómo agregar datos y luego leyó usando un subformulario le puede ahorrar tiempo cuando se necesita para seguir manipulando datos en una base de datos Access. El acceso es un sistema de gestión de base de datos relacional a menudo se utiliza para crear bases de datos locales. Un subformulario es un formulario en el interior de otra forma a menudo se utiliza para mostrar los datos de una tabla diferente de la forma principal. Un formulario se utiliza para diseñar una interfaz gráfica de usuario y le da la opción de utilizar Visual Basic para aplicaciones, o VBA, para la automatización. VBA es un lenguaje de programación utilizado en aplicaciones de Microsoft Office.

Instrucciones

1 Abra la base de datos Neptuno Microsoft Office Access. La base de datos Northwind se incluye en el paquete de Microsoft Office.

2 Seleccione la pestaña "Crear" y seleccionar "Diseño de formulario" para crear una nueva forma. Haga clic en "subformulario / subinforme" en el panel de controles, a continuación, haga clic izquierdo sobre su forma y arrastre para crear un nuevo control de subformulario. Añadir un nuevo botón de control de la misma manera.

3 Haga clic en el subformulario para mostrar la "Hoja de propiedades." Haga clic en la pestaña "Datos" y junto a la Fuente de objeto, seleccione "Table.Suppliers."

4 Haga clic en el subformulario para mostrar la hoja de propiedades. Haga clic en la pestaña "Eventos", y junto a Al hacer clic, seleccionar "[Procedimiento de evento]" para abrir la ventana de Microsoft Visual Basic.

5 Escriba lo siguiente para acceder a los datos del subformulario y mostrar los resultados de las tres primeras columnas a través de la ventana Inmediato:

Private Sub Comando2_Click ()

Dim como secuencia tmpString

Dim primera medida DAO.Recordset

Establecer primera = Me.Child0.Form.Recordset

rst.MoveFirst

Aunque no rst.EOF

tmpString = rst.Fields(1).Value & "|"

tmpString = tmpString y rst.Fields (2) .Value & "|"

tmpString = tmpString y rst.Fields (3) .Value

Debug.Print tmpString

rst.MoveNext

Encaminarse a

End Sub