[Resolvido]Relatório com vários critérios de busca e seleção múltipla

Prezados,

Boa tarde a todos,

Estou tentando gerar um relatório "Rel Contas a Receber" com alguns critérios de busca e uma seleção múltipla "filtro" de empresas porém não consigo fazer funcionar.

A seleção das empresas "filtro" não está sendo considerada.

Não estou conseguindo identificar o problema.

Alguém poderia me dar uma ajudinha.

Muito Grato,

Forte abraço a todos

Regis Borda

Segue o código :

On Error Resume Next
If IsNull([TipoVenda]) Then
  MsgBox "Você deve informar o Tipo de Venda!!! Use Tab para mudar de campo.", , "Erro de Tipo Venda"
  DoCmd.GoToControl "TipoVenda"
Else
  If IsNull([FormPgto]) Then
     MsgBox "Você deve informar a Forma de Pgto!!! Use Tab para mudar de campo.", , "Erro de Form Pgto"
     DoCmd.GoToControl "FormPgto"
  Else
     If IsNull([TipoBanco]) Then
        MsgBox "Você deve informar o Banco!!! Use Tab para mudar de campo.", , "Erro de Tipo Banco"
        DoCmd.GoToControl "TipoBanco"
     Else
        If IsNull([Pago]) Then
           MsgBox "Você deve informar se foi Pago (Sim -1 ou Não 0)!!! Use Tab para mudar de campo.", , "Erro de Pago"
           DoCmd.GoToControl "Pago"
        Else
           If IsNull([DtEmissaoInicial]) Or IsNull([DtEmissaoFinal]) Then
              MsgBox "Você deve informar a Data Inicial e Final!!! Use Tab para mudar de campo.", , "Erro de Data"
              DoCmd.GoToControl "DtEmissaoInicial"
           Else
              If [DtEmissaoInicial] > [DtEmissaoFinal] Then
                 MsgBox "A Data Final deve ser maior ou igual a Data Inicial.", , "Erro de Data"
                 DoCmd.GoToControl "DtEmissaoFinal"
              Else
                 Dim filtro As String, Sel As Variant, nSel As Integer, j As Boolean
                 filtro = "in("
                 For Each Sel In Me!Lista.ItemsSelected
                 'filtro = filtro & Me!Lista.Column(0, Sel) & ","
                 filtro = filtro & "'" & Me!Lista.Column(0, Sel) & "',"
                 j = True
                 Next
                 filtro = Mid(filtro, 1, InStrRev(filtro, ",") - 1) & ")"
                 filtro = "CodParc " & filtro
                 If j = False Then Exit Sub
                 DoCmd.OpenReport "Rel Contas a Receber", 2, , -"DtEmissaoInicial>=#" & Me![DtEmissaoInicial] & "# And DtEmissaoFinal <= #" - Me![DtEmissaoFinal] & " And TipoVenda <=" - Me![TipoVenda] & " And FormPgto <=" - Me![FormPgto] & " And TipoBanco <=" - Me![TipoBanco] & " And Pago <=" - Me![Pago] & " And filtro <=" - filtro
                 DoCmd.RunCommand acCmdZoom75
                 Me.visible = False 'torna o form invisível
                 DoCmd.SelectObject acReport, "Rel Contas a Receber", False
              End If
           End If
        End If
     End If
  End If
End If
End Sub

Pessoal

Consegui resolver.

Eliminei o campo código parceiros. deixando o campo só de Parceiros e acertei o código.

Abs

Regois Borda