Hola de nuevo:
Lo he escrito así:
Private Sub Comando3_Click()
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 "Consulta1"
End Sub
Y me da error en Me.Lista
Me dice error de compilación
No se encontró el método o el dato miembro.
Algo he hecho mal
