Microsoft Office Access
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
Seleccione la pestaña " Crear" y " Diseño de formularios " para crear un nuevo formulario. Haga clic en " cuadro combinado " en el panel " Controles" y haga clic en el formulario y arrastre el ratón 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 ]" junto a " On 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 utilice la tabla " Empleados " para mayor información .
Opción
Compare Database
Private Sub Command0_Click ()
strSQL Dim As String Dim
nameSelected As String
Me.Combo0.SetFocus
nameSelected = Me.Combo0.Text
strSQL = " SELECT empleados . [ Título del trabajo ] , los empleados . [ E - mail ] "
strSQL = strSQL &" FROM Empleados "
strSQL = strSQL &" WHERE ( ( ( Employees. [ Apellido ] ) = "" y ( nameSelected ) & " " ) ) ; "
Me.List0.RowSourceType =" Tabla /Consulta "
Me.List0.RowSource = strSQL
End Sub
Private Sub Form_Load ( )
Me.List0.ColumnCount = 2
Me.Combo0.RowSourceType = " Tabla /Consulta "
Me.Combo0.RowSource = " SELECT empleados . [ Apellido ] FROM Empleados ; "
End Sub
5
Cerrar " "la ventana y haga clic en" Microsoft Visual Basic Form1 ", a continuación, seleccione " Vista formulario " . Seleccione un apellido del control de cuadro combinado . Haga clic en " Command0 " para mostrar la información del empleado en el control de cuadro de lista en base al último nombre que ha seleccionado .