Tener el conocimiento sobre la forma de crear y utilizar las formas avanzadas de Microsoft Office Access puede hacer que sus aplicaciones de base de datos más potente. Usted puede crear un formulario mediante el Asistente para formularios , pero no siempre va a obtener los resultados que desea. Usted tiene la flexibilidad de agregar diferentes controles al formulario cuando se crea de forma manual. Además , puede escribir 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 en Access y otras aplicaciones de MS Office . Cosas que necesitará
Microsoft Office Access
Northwind Database
Mostrar más instrucciones
1

Abra la base de datos Access Northwind de Microsoft Office. La base de datos Northwind se incluye en la suite de Microsoft Office.
2

clic en la pestaña "Crear " y seleccionar " Diseño de formularios " para crear un nuevo formulario. Haga clic " cuadro combinado " en el panel " Control " y luego haga clic izquierdo el formulario 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 al formulario. Seleccione " List Box " y agregar un nuevo control de cuadro de lista al formulario.
3

Haga clic en " Command0 " y seleccionar "Propiedades" . Haga clic en la ficha " Evento " y seleccione " [ Procedimiento de evento ]" al lado de " El Click" . Haga clic en los puntos suspensivos ( "..." ) para abrir la ventana " Microsoft Visual Basic " . Pulse la tecla " Ctrl" y " A" y pulse "Eliminar " para eliminar todo el código existente.
4

Copia y pega el siguiente código al nuevo módulo. El código se carga el control de cuadro combinado con los apellidos de la tabla "Producto" .
Opción

Compare Database

Private Sub Command2_Click ()

sqlstr Dim As String < Abogados >

prductSelected As String Dim

Me.Combo3.SetFocus

prductSelected = Me.Combo3.Text

sqlstr = "Productos SELECT. [ Nombre del producto ] , Productos. [ Lista de precios ] "

sqlstr = sqlstr &" FROM Productos "

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

Me.List0.RowSourceType = " Tabla /Consulta "

Me.List0.RowSource = sqlstr
< p> End Sub

Private Sub Form_Load ( )

Me.List0.ColumnCount = 2

Me.Combo3.RowSourceType = " Tabla /Consulta "
< p> Me.Combo3.RowSource = " . Productos SELECT [ Nombre de producto] FROM Productos ";

End Sub
5

cerrar la ventana " Microsoft Visual Basic " y haga clic en " Form1 " y luego seleccionar " Form View" . Elige un nombre Produce del control de cuadro combinado . Haga clic en " Command0 " para visualizar Precio de lista en el cuadro de lista de control basado en el nombre del producto que ha seleccionado.