MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

    [Resolvido]Filtrar vários Clientes em um Relatório

    avatar
    RegisBorda
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 60
    Registrado : 07/02/2014

    [Resolvido]Filtrar vários Clientes em um Relatório Empty [Resolvido]Filtrar vários Clientes em um Relatório

    Mensagem  RegisBorda 11/4/2022, 14:37

    Prezados,

    Peço ajuda dos senhores para a seguinte situação :

    Criei um Form onde listo todos os clientes. Nessa listagem consta uma coluna com o "CNPJCliente" e outra coluna com o "Cliente" seleciono 5 clientes para gerar um Relatório de Recursos de Multas do DETRAN-RJ para cada cliente selecionado.

    Porém, quando executo o relatório, o mesmo não mostra os nomes selecionados. Ele não escreve na propriedade do Relatório (Filtro) os CNPJs e/ou CPFs selecionados.

    Detalhe esses clientes podem ser Pessoas Físicas ou Jurídicas com máscaras diferentes para PF e PJ através do campo (TipoPess = "J" ou "F")

    O Relatório e baseado numa Consulta da Tabela (TbRequerentes e TbDadosVeiculos) vinculado pelo campo CNPJCliente

    Campo chave é "CNPJCliente" da Tabela de Requerentes

    Segue o Código do Form de listagem para seleção dos Clientes com 2 colunas :

    SELECT TbRequerente.CNPJCliente FROM TbRequerente ORDER BY TbRequerente.Cliente;

    Segue o Código quando gero o Relatório após esta seleção ou filtro :

    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) & ","
    j = True
    Next
    filtro = Mid(filtro, 1, InStrRev(filtro, ",") - 1) & ")"
    filtro = "CNPJCliente " & filtro

    If j = False Then Exit Sub
    DoCmd.OpenReport "Rel Multa DER-RJ", acViewPreview, , filtro

    End Sub

    Muito Grato,

    Abs,

    Regis Borda
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3491
    Registrado : 13/12/2016

    [Resolvido]Filtrar vários Clientes em um Relatório Empty Re: [Resolvido]Filtrar vários Clientes em um Relatório

    Mensagem  Alexandre Fim 11/4/2022, 15:00

    Olá Regis,

    O CNPJ ou CPF é do tipo string, e deve se utilizar aspas simples para separá-los:
    Código:
    filtro = filtro & "'" & Me!Lista.Column(0, Sel) & "',"

    Acredito que seja isso.

    Boa sorte


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Filtrar vários Clientes em um Relatório Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    RegisBorda
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 60
    Registrado : 07/02/2014

    [Resolvido]Filtrar vários Clientes em um Relatório Empty Re: [Resolvido]Filtrar vários Clientes em um Relatório

    Mensagem  RegisBorda 12/4/2022, 11:56

    Prezado Alexandre Firm,

    Isso mesmo vc acertou em cheio.

    Pra você ver um detalhezinho faz toda a diferença.

    Muito grato pela sua orientação.

    Grande abraço pra você e pra todos do grupo.

    Fiquem com DEUS.

    Regis Borda

    Conteúdo patrocinado


    [Resolvido]Filtrar vários Clientes em um Relatório Empty Re: [Resolvido]Filtrar vários Clientes em um Relatório

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/11/2024, 01:14