MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    CodigoVBA trava consulta ao abrir o relatorio

    Compartilhe

    JIR
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 73
    Registrado : 28/08/2016

    CodigoVBA trava consulta ao abrir o relatorio

    Mensagem  JIR em 28/5/2018, 23:18

    Boa Noite, Amigos do Forum,

    estou perante um dilema, tenho um relatório baseado numa consulta de várias tabelas, funciona corretamente se a consulta já tiver os parâmetros definidos, mas se os mesmos forem definidos na execução do relatório, dá erro

    a ideia era, quando abrir o relatório, poder escolher qual a empresa que quero os dados exemplo 1000, 1010, 1120 ou todas

    este código foi feito com ajuda do Amigo marceloarboit, está a funcionar corretamente na contagem dos funcionários como pretendo mas agora não deixa escolher a opção de selecionar a empresa ou outro critério que queira usar.

    se alguém poder ajudar agradeço muito

    anexo BD para melhor entendimento

    José Silva
    Anexos
    CodTravaConsultaRelatorio.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (112 Kb) Baixado 14 vez(es)

    JIR
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 73
    Registrado : 28/08/2016

    Re: CodigoVBA trava consulta ao abrir o relatorio

    Mensagem  JIR em 30/5/2018, 09:38

    up's
    avatar
    CassioFabre
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 728
    Registrado : 18/01/2013

    Re: CodigoVBA trava consulta ao abrir o relatorio

    Mensagem  CassioFabre em 30/5/2018, 11:21

    Bom dia,

    O mais fácil nesses casos é ter um formulário onde você gerenciará os filtros do seu relatório, ou seja, colherá as informações do usuário e depois filtrará o relatório antes da abertura. Pelo modelo que postou, parece que está tentando usar o access sem utilizar os formulários. O Access não foi pensado para trabalhar como o excel. Você deve à priori utilizar os formulários para fazer as manipulações de dados. Abaixo um exemplo de um formulário filtro de relatório que uso em um sistema meu.

    [Você precisa estar registrado e conectado para ver esta imagem.]

    Abraço.


    .................................................................................
    Só não tem código pra morte!
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3509
    Registrado : 06/11/2009

    Re: CodigoVBA trava consulta ao abrir o relatorio

    Mensagem  Assis em 30/5/2018, 11:30

    Bom dia

    Teste o relatório.
    Anexos
    Assis_CodTravaConsultaRelatorio.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (143 Kb) Baixado 9 vez(es)


    .................................................................................
    *** Só sei que nada sei ***

    JIR
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 73
    Registrado : 28/08/2016

    Re: CodigoVBA trava consulta ao abrir o relatorio

    Mensagem  JIR em 30/5/2018, 15:22

    Olá Assis,

    obrigado pelo interesse em ajudar, mas da forma que fez, o relatório fica incompleto, pois a minha dificuldade inicial era obter a contagem dos funcionários por empresa e por zona (área geográfica), e pelo processo normal não fazia a contagem certa,  foi necessário escrever o código que você agora retirou, mas assim não tenho dados de contagem

    a dúvida para entender melhor já vem deste tópico "Contar por grupo e sub grupo em relatório"

    vou tentar fazer um filtro via formulário como indicou o Amigo CassioFabre, e ver se funciona


    Atentamente

    José Silva
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4040
    Registrado : 20/04/2011

    Re: CodigoVBA trava consulta ao abrir o relatorio

    Mensagem  Silvio em 30/5/2018, 15:50

    Bom dia / Boa tarde a todos..

    Teste e veja se lhe atende !
    Anexos
    CodTravaConsultaRelatorio_NEW.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (170 Kb) Baixado 8 vez(es)


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    JIR
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 73
    Registrado : 28/08/2016

    Re: CodigoVBA trava consulta ao abrir o relatorio

    Mensagem  JIR em 30/5/2018, 18:13

    Olá Boa Tarde Silvio,

    o filtro funciona mas não faz a contagem dos funcionários no relatório

    no cabeçalho da empresa caixa de texto 138 e cabeçalho da zona caixa de texto 133 e rodapé do relatório caixa de texto 113

    ou seja o código parece ter ficado inibido


    José Silva
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4040
    Registrado : 20/04/2011

    Re: CodigoVBA trava consulta ao abrir o relatorio

    Mensagem  Silvio em 30/5/2018, 18:16

    Ok...vamos por partes então...veja a contagem feita por funcionários.   Veja se é isto ( por enquanto !).

    Obs...Eu não mexi em nenhum código !!!
    Anexos
    CodTravaConsultaRelatorio_NEW_1.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (186 Kb) Baixado 14 vez(es)


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    JIR
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 73
    Registrado : 28/08/2016

    Re: CodigoVBA trava consulta ao abrir o relatorio

    Mensagem  JIR em 30/5/2018, 23:14

    Boa Tarde, Silvio

    eu tinha inicialmente usado como você, ou seja =Contar ([CodEmpresa]) =Contar ([Zona])  =Contar([CatProfissional]), como os dados devolvidos não eram corretos, abri o tópico "Contar por grupo e sub grupo em relatório", e o Amigo CassioFabre, ajudou na solução em fazer o código que ficou a funcionar corretamente a contagem, só que não permite escolher a empresa

    Respondendo à sua pergunta, escolhendo a empresa 1000, o total de funcionários apresentado é 12, está errado são apenas 7 ou seja 2 na Zona Angola e 5 na Zona Portugal, pela contagem deve estar a contar todos os registos de centro custo de cada funcionário, mas eu quero contar apenas quantos funcionários tenho em cada empresa e quantos estão em Portugal e quantos estão em Angola, mas quero mostrar também qual a % em cada centro de custo.

    O correto seria conforme listagem que anexo
    O seu formulário de pesquisa FrmBuscaEmpresa, não permite escolher todas as empresas mas se permitir, o total de funcionários seriam 13 ou seja 7 na empresa 1000, + 4 na empresa 1010 e + 2 na empresa 1120 (ver na listagem anexa)


    Atentamente

    José Silva
    Anexos
    Funcionarios Detalhe.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (9 Kb) Baixado 9 vez(es)
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4040
    Registrado : 20/04/2011

    Re: CodigoVBA trava consulta ao abrir o relatorio

    Mensagem  Silvio em 31/5/2018, 14:23

    Bom dia / Boa tarde.

    Em modo desing do teu relatório, mude o critério que eu coloquei para....

    Como "*" & [Forms]![FrmBuscaEmpresa]![EmpresaOculta] & "*"

    Dessa forma acima, irá mostrar todas as empresas.

    No formulário de busca, não digite nada..apenas peça para visualizar o relatório.



    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    JIR
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 73
    Registrado : 28/08/2016

    Re: CodigoVBA trava consulta ao abrir o relatorio

    Mensagem  JIR em 31/5/2018, 19:12

    Olá Silvio,

    peço desculpa por lhe estar a dar muito trabalho

    mas a contagem continua errada, dá um total de 20 funcionários quando efetivamente são só 13 ou seja: são 7 na empresa 1000, + 4 na empresa 1010 e + 2 na empresa 1120

    Atentamente

    José Silva

    JIR
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 73
    Registrado : 28/08/2016

    Re: CodigoVBA trava consulta ao abrir o relatorio

    Mensagem  JIR em 5/6/2018, 13:15

    up's

      Data/hora atual: 25/9/2018, 04:48