Tutorial sobre las formas avanzadas de MS Access

Tener el conocimiento sobre cómo crear y utilizar las formas avanzadas de Microsoft Office Access puede hacer que sus aplicaciones de bases de datos más potente. Usted puede crear fácilmente un formulario utilizando el asistente de formularios, pero no siempre va a obtener los resultados que desea. Usted tiene la flexibilidad de añadir diferentes controles para su formulario cuando se crea de forma manual. Además, se puede escribir de Visual Basic para Aplicaciones (VBA) para ejecutar los procesos detrás de esos controles. Visual Basic para Aplicaciones (VBA) es un lenguaje de programación utilizado para automatizar tareas rutinarias de acceso y otras aplicaciones de MS 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 Haga clic en la pestaña "Crear" y seleccionar "Diseño de formulario" para crear una nueva forma. Haga clic en "cuadro combinado" en el panel "Controles" y luego haga clic izquierdo su forma y arrastre para crear un nuevo control de cuadro combinado. Haga clic en "botón" en el panel "Controles" y añadir un nuevo botón a su formulario. Seleccionar "cuadro de lista" y añadir un nuevo control de cuadro de lista al formulario.

3 Haga clic en "Comando0" y seleccionar "Propiedades". Haga clic en la pestaña "Eventos" y seleccione "[Procedimiento de evento]" junto a "al hacer clic". Haga clic en los puntos suspensivos ( "...") para abrir la ventana "Microsoft Visual Basic". Pulse la tecla "Ctrl" y "A" y pulse "Borrar" para eliminar todo el código existente.

4 Copiar y pegar el siguiente código a su nuevo módulo. El código se cargue el control de cuadro combinado con los apellidos de la tabla "Producto".

Opción de comparación de bases de datos

Private Sub Comando2_Click ()

Dim como secuencia sqlstr

Dim como secuencia prductSelected

Me.Combo3.SetFocus

prductSelected = Me.Combo3.Text

sqlstr = "SELECT productos. [Nombre], los productos. [Precio]"

sqlstr = sqlstr y "FROM Productos"

sqlstr = sqlstr & "WHERE (. ((productos [Nombre]) = '" & (prductSelected) & "'));"

Me.List0.RowSourceType = "Tabla / Consulta"

Me.List0.RowSource = sqlstr

End Sub

Private Sub Form_Load ()

Me.List0.ColumnCount = 2

Me.Combo3.RowSourceType = "Tabla / Consulta"

Me.Combo3.RowSource = "SELECT productos [Nombre] FROM Productos;".

End Sub

5 Cierre la ventana "Microsoft Visual Basic" y haga clic en "Form1" y luego seleccione "Vista formulario". Seleccionar un producto Nombre del control de cuadro combinado. Haga clic en "Comando0" para visualizar la lista de precios en el control de cuadro de lista basada en el nombre del producto que ha seleccionado.