1
Abra la base de datos Access Northwind 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 en " Cuadro de lista " en el panel " Controles" y haga clic en el formulario, mantenga pulsado el botón del ratón y arrastre el ratón para crear un nuevo control de cuadro de lista. Haga clic en " botón" en el panel " Controles" para añadir un nuevo botón a su formulario de la misma manera que ha añadido el cuadro de lista .
3
Haga clic en " Command0 " y seleccionar "Propiedades . " Haga clic en la ficha " Evento " y seleccione " [ Procedimiento de evento ]" junto a " On Click. " Haz clic en los puntos suspensivos (... ) para abrir la ventana " Microsoft Visual Basic "
4
Copia y pega el siguiente código en " Sub Command0_Click Privado ()" : .
Dim strSQL As String
strSQL = " SELECT Orders . [ Employee ID ] , "
strSQL = strSQL y "Órdenes . [ ID de cliente ], Pedidos. [ Fecha de envío ] , "
strSQL = strSQL & " Las órdenes . [ Nombre ], Ship órdenes . [Ship dirección] "
strSQL = strSQL & " FROM Pedidos "
strSQL = strSQL & " WHERE ( ( ( Orders. [Ship dirección] ) = '123 8th Street ')) ; "
Me.List0.RowSource = strSQL
Este código consultar el " Orders "mesa y ajuste" RowSource " propiedad del control de cuadro de lista.
5
volver a la ventana de Microsoft Access y haga clic en" List0 ", luego seleccione" Properties " . Haga clic en la ficha " Evento " y seleccione " [ Procedimiento de evento ]" al lado de " después de la actualización . " Haga clic en los puntos suspensivos ( ... ) para abrir la ventana " Microsoft Visual Basic "
6
Copia y pega el siguiente código en " Sub List0_Click Privado ()" : .
Dim dbs como base de datos
rst As Recordset
sqlstr dévil como secuencia
Dim I As Integer
Set dbs = CurrentDb
Para I = 0 To me ! List0.ListCount
If Me ! List0.Selected ( I) Luego
sqlstr = " SELECT Orders . [ Fecha de envío ] FROM Pedidos "
sqlstr = sqlstr y " DONDE órdenes [ Empleado ID] = . " & ( Me! List0.ItemData ( I) ) & " ; "
Set rst = dbs.OpenRecordset ( sqlstr )
rst.MoveLast
rst.MoveFirst
Debug.Print " Fecha de envío para el artículo seleccionado :" & rst.Fields ( 0 ) Valor
rst.Close
.
End If
Siguiente I Love
dbs.Close
Este código mostrará la " Fecha de envío " para los elementos seleccionados en el cuadro de lista. Los resultados se mostrarán en la ventana de " inmediato " .
7
Cerrar la ventana " Microsoft Visual Basic " y haga clic en " Form1 ", a continuación, seleccione " Vista formulario . " Haga clic en " Command0 " para llenar el cuadro de lista con datos. Seleccione un valor en el cuadro de lista para ejecutar el código del control de cuadro de lista.