[Resolvido]Erro em tempo de execução 2103

Boa noite amigos,
Estou com esse probleminha no meu código, quando eu não seleciono o cliente ele não me dá erro, porém não filtra vem todos.
Mais quando seleciono, um cliente por exemplo, ou qualquer outra opção ele dá esse erro" erro em tempo de execução 2103".
Bem conto com a ajuda de vcs como sempre.
Abraços e no aguardo

Tela do FORM


Tela do ERRO

Código:


Private Sub Imprimir_Click()
    Dim varItem As Variant, strList As String
    Dim StrWhere As String, strCli As String, strRep As String, strReg As String, strCid As String
    Dim strFab As String, strPro As String, strCond As String, strCole As String, strUf As String
    
    strCli = "RazaoSocialCli"
    strRep = "Vendedor"
    strCid = "Cidade"
    strFab = "FantasiaFab"
    strPro = "CodPeca"
    strCond = "Condicao"
    strCole = "Colecao"
    strUf = "UF"
    strReg = "Regiao"

    
    If IsNull([DataInicial]) Or IsNull([DataFinal]) Then
        MsgBox "Você deve informar as Datas Inicial e Final.", vbOKOnly + vbInformation, "frmRelatorio_ImprimePeriodoData - wRepresentante"
        DoCmd.GoToControl "DataInicial"
    Exit Sub
    Else
        If [DataInicial] > [DataFinal] Then
            MsgBox "A Data Final deve ser maior que a Data Inicial.", vbOKOnly + vbInformation, "frmRelatorio_ImprimePeriodoData - wRepresentante"
            DoCmd.GoToControl "DataInicial"
        Exit Sub
        Else
            Me.visible = False
        End If
    End If
    
    
    Select Case impressaoranking
        Case "1"
            If Me.SelecionarCli.ItemsSelected.Count = 0 Then
                DoCmd.Close
                DoCmd.OpenReport "relRelatorio_ImprimePeriodoCliente", acViewPreview, "", ""
                DoCmd.Maximize
                DoCmd.RunCommand acCmdZoom100
                Exit Sub
            End If
            If Me.SelecionarCli.ItemsSelected.Count > 0 Then
                With Me.SelecionarCli
                    For Each varItem In .ItemsSelected
                    'Especificar o valor da coluna acoplada na expressão abaixo
                    strList = strList & .Column(0, varItem) & "'" & ",'"   'Para valor campo string & "'" & ",'"//// 'Para valor campo numerico & ","
                Next varItem
            End With
                StrWhere = strCli & " In ('" & strList & "')" 'Para valor campo string ('" & strList & "') ///'Para valor campo numerico (" & strList & ")
                DoCmd.Close
                DoCmd.OpenReport "relRelatorio_ImprimePeriodoCliente, acViewPreview, "", StrWhere"
                DoCmd.Maximize
                DoCmd.RunCommand acCmdZoom100
                Exit Sub
            End If
        
        Case "2"
            If Me.SelecionarRep.ItemsSelected.Count = 0 Then
                DoCmd.Close
                DoCmd.OpenReport "relRelatorio_ImprimePeriodoRepresentante", acViewPreview, "", ""
                DoCmd.Maximize
                DoCmd.RunCommand acCmdZoom100
                Exit Sub
            End If
            If Me.SelecionarRep.ItemsSelected.Count > 0 Then
                With Me.SelecionarRep
                    For Each varItem In .ItemsSelected
                    'Especificar o valor da coluna acoplada na expressão abaixo
                    strList = strList & .Column(0, varItem) & "'" & ",'"   'Para valor campo string & "'" & ",'"//// 'Para valor campo numerico & ","
                Next varItem
            End With
                StrWhere = strRep & " In ('" & strList & "')" 'Para valor campo string ('" & strList & "') ///'Para valor campo numerico (" & strList & ")
                DoCmd.Close
                DoCmd.OpenReport "relRelatorio_ImprimePeriodoRepresentante, acViewPreview, , StrWhere"
                DoCmd.Maximize
                DoCmd.RunCommand acCmdZoom100
                Exit Sub
            End If
        
        Case "3"
            If Me.SelecionarCid.ItemsSelected.Count = 0 Then
                DoCmd.Close
                DoCmd.OpenReport "relRelatorio_ImprimePeriodoCidade", acViewPreview, "", ""
                DoCmd.Maximize
                DoCmd.RunCommand acCmdZoom100
                Exit Sub
            End If
            If Me.SelecionarCid.ItemsSelected.Count > 0 Then
                With Me.SelecionarCid
                    For Each varItem In .ItemsSelected
                    'Especificar o valor da coluna acoplada na expressão abaixo
                    strList = strList & .Column(0, varItem) & "'" & ",'"   'Para valor campo string & "'" & ",'"//// 'Para valor campo numerico & ","
                Next varItem
            End With
                StrWhere = strCid & " In ('" & strList & "')" 'Para valor campo string ('" & strList & "') ///'Para valor campo numerico (" & strList & ")
                DoCmd.Close
                DoCmd.OpenReport "relRelatorio_ImprimePeriodoCidade, acViewPreview, , StrWhere"
                DoCmd.Maximize
                DoCmd.RunCommand acCmdZoom100
                Exit Sub
            End If
        
        Case "4"
            If Me.SelecionarFab.ItemsSelected.Count = 0 Then
                DoCmd.Close
                DoCmd.OpenReport "relRelatorio_ImprimePeriodoFabrica", acViewPreview, "", ""
                DoCmd.Maximize
                DoCmd.RunCommand acCmdZoom100
                Exit Sub
            End If
            If Me.SelecionarFab.ItemsSelected.Count > 0 Then
                With Me.SelecionarFab
                    For Each varItem In .ItemsSelected
                    'Especificar o valor da coluna acoplada na expressão abaixo
                    strList = strList & .Column(0, varItem) & "'" & ",'"   'Para valor campo string & "'" & ",'"//// 'Para valor campo numerico & ","
                Next varItem
            End With
                StrWhere = strFab & " In ('" & strList & "')" 'Para valor campo string ('" & strList & "') ///'Para valor campo numerico (" & strList & ")
                DoCmd.Close
                DoCmd.OpenReport "relRelatorio_ImprimePeriodoFabrica, acViewPreview, , StrWhere"
                DoCmd.Maximize
                DoCmd.RunCommand acCmdZoom100
                Exit Sub
            End If
        
        Case "5"
            If Me.SelecionarPro.ItemsSelected.Count = 0 Then
                DoCmd.Close
                DoCmd.OpenReport "relRelatorio_ImprimePeriodoProduto", acViewPreview, "", ""
                DoCmd.Maximize
                DoCmd.RunCommand acCmdZoom100
                Exit Sub
            End If
            If Me.SelecionarPro.ItemsSelected.Count > 0 Then
                With Me.SelecionarPro
                    For Each varItem In .ItemsSelected
                    'Especificar o valor da coluna acoplada na expressão abaixo
                    strList = strList & .Column(0, varItem) & "'" & ",'"   'Para valor campo string & "'" & ",'"//// 'Para valor campo numerico & ","
                Next varItem
            End With
                StrWhere = strPro & " In ('" & strList & "')" 'Para valor campo string ('" & strList & "') ///'Para valor campo numerico (" & strList & ")
                DoCmd.Close
                DoCmd.OpenReport "relRelatorio_ImprimePeriodoProduto, acViewPreview, , StrWhere"
                DoCmd.Maximize
                DoCmd.RunCommand acCmdZoom100
                Exit Sub
            End If
        
        Case "6"
            If Me.SelecionarCond.ItemsSelected.Count = 0 Then
                DoCmd.Close
                DoCmd.OpenReport "relRelatorio_ImprimePeriodoCondicaoPagamento", acViewPreview, "", ""
                DoCmd.Maximize
                DoCmd.RunCommand acCmdZoom100
                Exit Sub
            End If
            If Me.SelecionarCond.ItemsSelected.Count > 0 Then
                With Me.SelecionarCond
                    For Each varItem In .ItemsSelected
                    'Especificar o valor da coluna acoplada na expressão abaixo
                    strList = strList & .Column(0, varItem) & "'" & ",'"   'Para valor campo string & "'" & ",'"//// 'Para valor campo numerico & ","
                Next varItem
            End With
                StrWhere = strCond & " In ('" & strList & "')" 'Para valor campo string ('" & strList & "') ///'Para valor campo numerico (" & strList & ")
                DoCmd.Close
                DoCmd.OpenReport "relRelatorio_ImprimePeriodoCondicaoPagamento, acViewPreview, , StrWhere"
                DoCmd.Maximize
                DoCmd.RunCommand acCmdZoom100
                Exit Sub
            End If
        
        Case "7"
            If Me.SelecionarCole.ItemsSelected.Count = 0 Then
                DoCmd.Close
                DoCmd.OpenReport "relRelatorio_ImprimePeriodoColecao", acViewPreview, "", ""
                DoCmd.Maximize
                DoCmd.RunCommand acCmdZoom100
                Exit Sub
            End If
            If Me.SelecionarCole.ItemsSelected.Count > 0 Then
                With Me.SelecionarCole
                    For Each varItem In .ItemsSelected
                    'Especificar o valor da coluna acoplada na expressão abaixo
                    strList = strList & .Column(0, varItem) & "'" & ",'"   'Para valor campo string & "'" & ",'"//// 'Para valor campo numerico & ","
                Next varItem
            End With
                StrWhere = strCole & " In ('" & strList & "')" 'Para valor campo string ('" & strList & "') ///'Para valor campo numerico (" & strList & ")
                DoCmd.Close
                DoCmd.OpenReport "relRelatorio_ImprimePeriodoColecao, acViewPreview, , StrWhere"
                DoCmd.Maximize
                DoCmd.RunCommand acCmdZoom100
                Exit Sub
            End If
        
        Case "8"
            If Me.SelecionarUf.ItemsSelected.Count = 0 Then
                DoCmd.Close
                DoCmd.OpenReport "relRelatorio_ImprimePeriodoEstado", acViewPreview, "", ""
                DoCmd.Maximize
                DoCmd.RunCommand acCmdZoom100
                Exit Sub
            End If
            If Me.SelecionarUf.ItemsSelected.Count > 0 Then
                With Me.SelecionarUf
                    For Each varItem In .ItemsSelected
                    'Especificar o valor da coluna acoplada na expressão abaixo
                    strList = strList & .Column(0, varItem) & "'" & ",'"   'Para valor campo string & "'" & ",'"//// 'Para valor campo numerico & ","
                Next varItem
            End With
                StrWhere = strUf & " In ('" & strList & "')" 'Para valor campo string ('" & strList & "') ///'Para valor campo numerico (" & strList & ")
                DoCmd.Close
                DoCmd.OpenReport "relRelatorio_ImprimePeriodoEstado, acViewPreview, , StrWhere"
                DoCmd.Maximize
                DoCmd.RunCommand acCmdZoom100
                Exit Sub
            End If
        
        Case "9"
            If Me.SelecionarReg.ItemsSelected.Count = 0 Then
                DoCmd.Close
                DoCmd.OpenReport "relRelatorio_ImprimePeriodoRegiao", acViewPreview, "", ""
                DoCmd.Maximize
                DoCmd.RunCommand acCmdZoom100
                Exit Sub
            End If
            If Me.SelecionarReg.ItemsSelected.Count > 0 Then
                With Me.SelecionarReg
                    For Each varItem In .ItemsSelected
                    'Especificar o valor da coluna acoplada na expressão abaixo
                    strList = strList & .Column(0, varItem) & "'" & ",'"   'Para valor campo string & "'" & ",'"//// 'Para valor campo numerico & ","
                Next varItem
            End With
                StrWhere = strReg & " In ('" & strList & "')" 'Para valor campo string ('" & strList & "') ///'Para valor campo numerico (" & strList & ")
                DoCmd.Close
                DoCmd.OpenReport "relRelatorio_ImprimePeriodoRegiao, acViewPreview, , StrWhere"
                DoCmd.Maximize
                DoCmd.RunCommand acCmdZoom100
                Exit Sub
            End If
        Case Else
    Exit Sub
    End Select
        DoCmd.Close acForm, "frmRelatorio_ImprimeRanking"
End Sub


Walter

O erro está bem claro !

O nome do relatório está errado ou não existe.

Verifique se o nome do relatório é igual ao nome que digitou no VBA.

Caso ainda esteja com erro, separe a tabela,consulta, formulário e relatório necessários,

para que a gente possa analisar.

[ ]'s

Bem pior que existe, mas acabei de resolver o problema.
Sabe o MSACCESS sendo ele mesmo. Fui tomar banho pra refrescar a cabeça desliguei o note.
Pensei em resolver esse problema hj ainda, liguei o note e mandei compactar e reparar e pronto funcionou...
Ou seja, o access sendo ele nas horas improprias...rsss

Pura verdade !

Tenho coisas que acontecem no Access que nem o tio Bill explica

Valeu o retorno!

Só faltou o Resolvido no título do Tópico.

Boa sorte !

Valeu pela ajuda