Minha dúvida não esta na seleção dos lists, mas na intrução, seja e se atente para (***), desculpe a extenção do código
Inicio = "#" & Format(CboDatas, "mm/dd/yyyy") & "#"
Fim = "#" & Format(Combo1, "mm/dd/yyyy") & "#"
Set Qd = bd.QueryDefs("ConsListPer")
Dim wSql As String
Dim X As Integer
wSql = " SELECT Relatorio.Numero, Relatorio.Data, Relatorio.Comunidade, Relatorio.[Tipo de Sistema], Lançamentos.Ponto, Lançamentos.pH, Lançamentos.OD, Lançamentos.[Res Sed], Lançamentos.DQO, Lançamentos.DBO, ConfgRelat.*, ETEs.[Corpo receptor], ETEs.Classe, ETEs.[Data início func], Lançamentos.[Descrição do ponto] FROM ConfgRelat, (Relatorio INNER JOIN ETEs ON Relatorio.Comunidade = ETEs.Comunidade) INNER JOIN Lançamentos ON Relatorio.Numero = Lançamentos.Numero WHERE "
If List2.ListCount > 0 Then
For X = 0 To List2.ListCount
If wSql = " SELECT Relatorio.Numero, Relatorio.Data, Relatorio.Comunidade, Relatorio.[Tipo de Sistema], Lançamentos.Ponto, Lançamentos.pH, Lançamentos.OD, Lançamentos.[Res Sed], Lançamentos.DQO, Lançamentos.DBO, ConfgRelat.*, ETEs.[Corpo receptor], ETEs.Classe, ETEs.[Data início func], Lançamentos.[Descrição do ponto] FROM ConfgRelat, (Relatorio INNER JOIN ETEs ON Relatorio.Comunidade = ETEs.Comunidade) INNER JOIN Lançamentos ON Relatorio.Numero = Lançamentos.Numero WHERE " Then
(***)wSql = wSql & " Relatorio.Data Between " & Inicio & " And " & Fim & " And Relatorio.Comunidade = """ & List1.List(X) & """ And Lançamentos.Ponto= """ & List2.List(X) & """"
Else
(***)wSql = wSql & " Or Relatorio.Data Between " & Inicio & " And " & Fim & " And Relatorio.Comunidade = """ & List1.List(X) & """ And Lançamentos.Ponto= """ & List2.List(X) & """"
End If
Next X
wSql = wSql & " Order By Relatorio.Data, Lançamentos.Ponto "
Qd.SQL = wSql
End If
Como pode perceber, eu seleciono um periodo entre datas, Uma certa quantidade de cidades no List1 e Outra quantidade de pontos no List2, tudo funciona exceto os pontos na instrução, acho que é erro nas aspas, sei lá.
OBRIGADO PELA SUA GENEROSA COLABOTAÇÃO
