consulta seleccionando de formulario

[Taribo007]

Por pasos:

1. Crea una nueva consulta llamada consulta1, con lo que sea, da igual su contenido.

2. Crea un boton en el form, y en su evento click pon este codigo:

Dim qdf As DAO.QueryDef
Dim strFiltro1 As String
Dim varSelec As Variant
Dim strSql As String

For Each varSelec In Me.Lista.ItemsSelected
strFiltro1 = strFiltro1 & "'" & Me.Lista.ItemData(varSelec) & "',"
Next varSelec

If strFiltro1 <> "" Then strFiltro1 = Left(strFiltro1, Len(strFiltro1) - 1)
strSql = strSql & "SELECT PROYECTO.CODIGO, PROYECTO.NOMBRE, FASES.FASE, HORAS.HORES "
strSql = strSql & " FROM PROYECTO INNER JOIN (FASES INNER JOIN HORAS ON FASES.CODIGOFASE = HORAS.FASE) "
strSql = strSql & " ON PROYECTO.CODIGOPROJECTE = HORAS.PROJECTE "
strSql = strSql & " WHERE (((PROYECTO.NOMBRE) IN (" & strFiltro1 & ")"

Set qdf = CurrentDb.QueryDefs("Consulta1")
qdf.SQL = strSql

DoCmd.OpenQuery

3. Activa la referencia a Microsoft DAO x.xx Object Library
¿Como?

Con la ventana de codigo VB abierta (alt+f11), herramientas>>referencias>> activa la referencia que te he indicado.

Y si lo he hecho bien, se te abrira la consulta con el campo nombre de la tabla proyecto filtrado por todos los valores que hayas elegido en la lista.

Un saludo