[Resolvido]Consulta count com critério de comparação entre duas tabelas.

Bom dia pessoal!!!

Mais uma vez, conta com a ajuda de todos. Estou com uma dificuldade de fazer um select com count e com o critério de contabilizar apenas se todos os registros de um item tenha o mesmo status via VBA e exibir o resultado deste count em um label no formulário.

Exemplo:

Tenho uma tabela chamada "Gerar" e outra chamada "Baseline", nesta tabela eu tenho a seguinte estrutura

Vamos a estrutura da tabela
=====================
Nome tabela: Gerar
Campos:

ID -> Autonum
Loja -> String
Status -> String


Nome tabela: Baseline
Campos:

ID -> Autonum
Loja -> String
Qtd.Equip -> Integer


No fomulário chamado dashboard eu tenho um label chamado "lb_suspeito", este label tem que receber o valor da quantidade de registro de um select. Neste select tem que fazer o count apenas se todos os registros relacionado a loja seja "suspeito". Se um dos registro relacionado a loja for diferente de "suspeito" ele não deve fazer o count.


Exemplo1: Registros da loja com status diferentes
====================================
Tabela: Gerar

ID Loja Status
=================
001 Lj098 Suspeito
002 Lj098 Suspeito
003 Lj098 Manutenção

OBS: Neste caso acima, não deve ser feito a contagem da loja como suspeito.


Exemplo2: Registros da loja com status diferentes
====================================

ID Loja Status
=================
001 Lj098 Suspeito
002 Lj098 Suspeito
003 Lj098 Suspeito


OBS: Neste caso acima, deve ser feito a contagem da loja como 1(uma) loja como suspeito.

***Como eu tenho uma tabela chamada "Baseline", onde, eu tenho a quantidade dos equipamentos por loja, pensei se é possível fazer um select count, comparando se a quantidade dos registros da loja da tabela "Gerar" com o status de "suspeito" gerado pelo select for igual ao número de equipamento da tabela "Baseline", a loja será contabilizada. Caso contrário não irá contabilizar está loja.


Obrigado a todos!!!!

Boas...

Poste a base de dados com as entidades envolvidas para que possamos lhe ajudar.

Boa tarde a todos!

Segue o banco de dados anexado com as entradas.

Obrigado a todos pela ajuda!!!

Boa tarde Mestres do Ms Access!!!

Estou com um dilema em um projeto que estou fazendo. Tenho um form chamados Dashboard que pega as informações da tabela "Gerar" e neste form (Dashboard) tem um subform que buscas outras informações da tabela Gerar também.

No Form Dashboard eu tenho alguns labels que exibem a quantidade de registros ("SELECT Count(Gerar.ID) AS conta ,Gerar.Loja, Gerar.Status FROM Gerar GROUP BY Gerar.Loja, Gerar.Status HAVING (((Gerar.Status) = 'enviado'))ORDER BY Gerar.Status;") de acordo com o status assim que o form é aberto.




No evento "On click"destas labels eu faço um filtro para o subform (Gerar_subform) que exibe os dados de acordo com o status (neste caso é o manutencao). Este filtro funciona, mas eu preciso que ele seja agrupado pelo campo Loja (Exemplo abaixo).

Filtro no Evento On click da label
=======================================
Private Sub Lb_manutencao_Click()

   Me.Gerar_subform.Form.Filter = "Status Like 'manutencao'"
   Me.Gerar_subform.Form.FilterOn = True

End Sub


Hoje quando faço um click no Label de manutencao o fitro no subform ao lado fica assim:

OBS: Cada entrada repetida (Lj098) indica um equipamento na loja

Lojas    Pong_ts    Conf_ts     last_ts   Status
===================================================
Lj098     xxxxxx    xxxxxx      xxxxxx    manutencao
Lj098     xxxxxx    xxxxxx      xxxxxx    manutencao
Lj098     xxxxxx    xxxxxx      xxxxxx    manutencao
Lj098     xxxxxx    xxxxxx      xxxxxx    manutencao
Lj1098   xxxxxx    xxxxxx      xxxxxx    manutencao
Lj1098   xxxxxx    xxxxxx      xxxxxx    manutencao
Lj1098   xxxxxx    xxxxxx      xxxxxx    manutencao
Lj1098   xxxxxx    xxxxxx      xxxxxx    manutencao
Lj1098   xxxxxx    xxxxxx      xxxxxx    manutencao


Gostaria que este filtro fosse agrupasse todos os equipamentos em apenas uma entrada no subform indicado que a loja tem equipamentos em manutenção.

Lojas    Pong_ts    Conf_ts     last_ts   Status      Qtd_equip.
===============================================================
Lj098    xxxxxx    xxxxxx      xxxxxx    manutencao     3
Lj1098   xxxxxx    xxxxxx      xxxxxx    manutencao     4


Desde já agradeço a ajuda de todos.

É perfeitamente possível. Você vai ter que fazer isso na consulta que gera os dados desse subformulário.
Se não conseguir manda essa parte do BD que eu faço pra você.

renpv, bom dia!

Agradeço muito se você puder me ajudar, pois sou novato no Access e não tenho ideia de como se faz isso. Segue o banco anexado.

Mais uma vez, obrigado!

Mestres do MS Access, boa tarde!

Alguém consegue me ajudar com este tópico?

Desde já, agradeço a todos.

Mestres do MS Access, boa tarde!

Alguém consegue me ajudar com este tópico?

Desde já, agradeço a todos.

Boa noite, lspetrucci
Respeite as regras. Não duplique os temas. Fundi-lhe os dois temas para respeitar as respostas já publicadas pelos colegas.
As regras indicam para eliminar o segundo tema mas atendi à existência de anexo. Esteja atento para mantermos o fórum organizado, a bem de todos

Agrupar registros significa procurar linhas totalmente iguais. Algo que não seria possível já que você possui três campos que indicam data e hora. Imagina aí se seria possível encontrar registros em que esses dados se repetissem de forma exata?

Pra diminuir as variações eu retirei a informação da hora nos campos de data. Veja o resultado.

Segue uma alternativa ao código do DamascenoJr.
Como ele explicou, para agrupar dados a linha toda deve ser idêntica.
No meu caso eu escolhi deixar apenas a coluna que identifica a loja e a outra que dá o total. Com a opção de um sub-formulário no formato folha de dados com o restante dos dados caso haja necessidade de consultar (e imagino que haja).

De qualquer forma, segue para apreciação.

renpv e DamascenoJr;

Agradeço muito a ajuda de vocês. renpv, achei a sua solução muito boa em fazer um sub-formulário no formato folha de dados com o restante dos dados, mas eu preciso que ao clicar nos status ao lado "Online", "Suspeito" e etc... seja feito um filtro neste subform exibindo apenas as lojas e os seus dados de acordo com o status que foi clicado.

Em cada label que se encontra no centro dos gráficos(onde são exibidos os números) no evento "On click" encontra-se este código abaixo, mas apontado para o sub-formulário Gerar_subform, mas não vai funcionar, pois os dados do status agora se encontra no sub-formulário subDetalhes e não conseguir fazer um filtro neste sub-formulário através do evento "On click" do label que se encontra o formulário principal (Dashboard).


Private Sub Lb_online_Click()

Me.Gerar_subform.Form.Filter = "Status Like 'Online'"
Me.Gerar_subform.Form.FilterOn = True

End Sub

Por favor, poderia me ajuda a fazer este tipo de filtro?

Obrigado!
Cordialmente;

Resolvido, consolidei os 2 exemplos que me enviaram e funcionou.

Muito obrigado

O fórum agradece o retorno. Sucesso.