CodigoVBA trava consulta ao abrir o relatorio

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

up's

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.



Abraço.

Bom dia

Teste o relatório.

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

Bom dia / Boa tarde a todos..

Teste e veja se lhe atende !

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

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 !!!

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

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.

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

up's