[Resolvido]Erro em Dcount com condição IIF

Boa noite pessoal!
Esou tentando elaborar uma consulta em uma tabela de equipamento.

Os equipamento sao dividos em tipos.
Ou seja sao 700 equipamento dividos em 25 tipo

A consulta preciso trazer na coluna Tipo os nomes dos 25 tipos e na coluna Qtde a quantidade de equipamentos que contem am cada tipo.

Ate ai tudo bem mas o problema é que tanto o "Dcount" quanto o "Select Count" nao esta permitindo mas de 13 condições no IIF.

Tanto assim...
Select Tbl_Equipamentos.Tipo,
IIF(Tbl_Equipamentos.Tipo Like'Tipo1', (Select Count(Tipo) From Tbl_Equipamentos Where Tipo = 'Tipo1'),
....(mais 11 condicoes aqui..Tipo2,tipo3,etc)
IIF(Tbl_Equipamentos.Tipo Like'Tipo13', (Select Count(Tipo13) From Tbl_Equipamentos Where Tipo = 'Tipo13')) as Qtde
...

Quanto assim..

Select Tbl_Equipamentos.Tipo,
IIF(Tbl_Equipamentos.Tipo Like'Tipo1', DCount("Tipo1","Tbl_Equipamentos","Tipo = 'Tipo1'"),
....(mais 11 condicoes aqui..Tipo2,tipo3,etc)
IIF(Tbl_Equipamentos.Tipo Like'Tipo13', DCount("Tipo1","Tbl_Equipamentos","Tipo = 'Tipo13'")), as Qtde
...


Se eu deixar somente 13 tipo nao da erros mas cmo falei tenho 25 tipo diferente preciso contar todos.
Alguem ideia de como contornar esse problema ?

Saudacoes !

Tente Switch() no lugar de IIF()

Desculpe pela demora em responder mas estava sem internet,

Claudio tentei como voce sugeriu e o mesmo erro acontece ....ate 13 condicoes nao da erro na 14 ja da "Expresso muito complexa...."


Tanto com IIF quanto com Switch


Saudacoes !

Uma simples consulta de agrupamento não resolve ?

Sem querer entrar no mérito da questão, gostaria de ver como ficou a expressão com o Switch, mas pode tentar também dividir o campo calculado em duas partes, mais ou menos assim:

IIF(Tbl_Equipamentos.Tipo Like 'Tipo1', (Select Count(Tipo) From Tbl_Equipamentos Where Tipo = 'Tipo1')... AS Qtde0, 'até Tipo6

IIF (Not IsNull([Qtde0]), [Qtde0], IIF(Tbl_Equipamentos.Tipo Like 'Tipo7', (Select Count(Tipo) From Tbl_Equipamentos Where Tipo = 'Tipo7')... AS Qtde

Claudio a sua ideia concerteza funciona.


Mas o problema é que esse campo QTDE irei utilizar ele nessa mesma consulta para calculo e o calculo sera de acordo com a quantidade de cada Tipo .
Ex.
Round((((100-((Int(Sum([Qry_Tempos].Minutos))/(1440*Qtde))*100))*Peso)/100),2) AS Total_Dia_Anterior



Ou seja se eu gerar duas colunas Qtde0 e Qtde1 como irei fazer essa calculo?

Obrigado pela paciência.


Saudacoes !

Rafael, o segundo campo calculado não é Qtde1, é Qtde.

Talvez seja melhor criar uma função que receba como parâmetro Tbl_Equipamentos.Tipo e retorne o resultado do Select Count(Tipo).
Nessa função poderia utilizar If... Then... Else ou um Select Case.

A consulta ficaria assim:

Select Tbl_Equipamentos.Tipo, FunçãoContaTipo(Tbl_Equipamentos.Tipo) AS Qtde, Round((((100-((Int(Sum([Qry_Tempos].Minutos))/(1440*Qtde))*100))*Peso)/100),2) AS Total_Dia_Anterior, etc ...

Bom dia a todos
Permitam-me a intervenção. Seguindo a dica do Mestre Avelino Sampaio: Select Tipo, Count(Tipo) as Quantidade FROM Tbl_Equipamentos GROUP BY Tipo

Obrigado Claudio , Avelino e Alexandre!

Eu juro que havia tentado com o group by logo no inicio e por algum motivo não deu certo.

e resolvi fazer novamente como sugeriu o Alexandre e funfou.

Para entenderem melhor a complexidade da consulta segue...(Onde Frota é o Tipo que mencionei no post)

Código:

SELECT DISTINCT Tbl_Equipamentos_EPP.EPP_Frota, Tbl_Manutencao_EPP.EPP_Tag, (SELECT COUNT(EPP_Tag) FROM Tbl_Equipamentos_EPP WHERE Tbl_Manutencao_EPP.EPP_Frota = Tbl_Equipamentos_EPP.EPP_Frota) AS Qtde_Equip, Tbl_Equipamentos_EPP.EPP_Meta, Tbl_Manutencao_EPP.EPP_Dt_Inicio, Tbl_Manutencao_EPP.EPP_Dt_Fim, CDate(IIf(Nz([EPP_Dt_Inicio])<Date()-1,Date()-1,IIf(Nz([EPP_Dt_Inicio])>Date() And Month([EPP_Dt_Inicio])=Month(Date()) And Year([EPP_Dt_Inicio])=Year(Date()),Date(),IIf(Month([EPP_Dt_Inicio])<>Month(Date()),Date()-1,IIf(Year([EPP_Dt_Inicio])<>Year(Date()),Date()-1,[EPP_Dt_Inicio]))))) AS DataInicio_D_1, CDate(IIf(Nz([EPP_Dt_Fim])="",Date(),IIf(Month([EPP_Dt_Fim])<>Month(Date()),Date()-1,IIf(Month([EPP_Dt_Fim])>Month(Date()) Or ([EPP_Dt_Fim]>Date()),Date(),IIf(Nz([EPP_Dt_Fim])<Date()-1,Date()-1,[EPP_Dt_Fim]))))) AS DataFim_D_1, CDate(IIf(Nz(EPP_Dt_Inicio)>Date() And Month([EPP_Dt_Inicio])=Month(Date()) And Year([EPP_Dt_Inicio])=Year(Date()),Date(),IIf(DateValue(Nz(Format([EPP_Dt_Inicio],"dd/mm/yyyy")))<DateSerial(Year(Now()),Month(Now()),1),DateSerial(Year(Now()),Month(Now()),1),DateValue(Nz(Format([EPP_Dt_Inicio],"dd/mm/yyyy"))) & " " & Format([EPP_Dt_Inicio],"hh:nn:ss")))) AS DataInicio_Acum_Mes, CDate(IIf(Nz([EPP_Dt_Fim])="",Date(),IIf(DateValue(Nz(Format([EPP_Dt_Fim],"dd/mm/yyyy")))<DateSerial(Year(Now()),Month(Now()),1),DateSerial(Year(Now()),Month(Now()),1),IIf(EPP_Dt_Fim>Date(),Date(),DateValue(Nz(Format([EPP_Dt_Fim],"dd/mm/yyyy"))) & " " & Format([EPP_Dt_Fim],"hh:nn:ss"))))) AS DataFim_Acum_Mes, CDate(IIf(Nz([EPP_Dt_Inicio])>Date() And Month([EPP_Dt_Inicio])=Month(Date()) And Year([EPP_Dt_Inicio])=Year(Date()),Date(),IIf(DateValue(Nz(Format([EPP_Dt_Inicio],"dd/mm/yyyy")))<DateSerial(Year(Now()),1,1),DateSerial(Year(Now()),1,1),[EPP_Dt_Inicio]))) AS DataInicio_Acum_Ano, CDate(IIf(Nz([EPP_Dt_Fim])="",Date(),IIf(DateValue(Nz(Format([EPP_Dt_Fim],"dd/mm/yyyy")))<DateSerial(Year(Now()),1,1),DateSerial(Year(Now()),1,1),IIf(EPP_Dt_Fim>Date(),Date(),DateValue(Nz(Format([EPP_Dt_Fim],"dd/mm/yyyy"))) & " " & Format([EPP_Dt_Fim],"hh:nn:ss"))))) AS DataFim_Acum_Ano, DateDiff("n",[DataInicio_D_1],[DataFim_D_1]) AS Minutos_D_1, DateDiff("n",[DataInicio_Acum_Mes],[DataFim_Acum_Mes]) AS Minutos_Acum_Mes, DateDiff("n",[DataInicio_Acum_Ano],[DataFim_Acum_Ano]) AS Minutos_Acum_Ano
FROM Tbl_Manutencao_EPP INNER JOIN Tbl_Equipamentos_EPP ON Tbl_Manutencao_EPP.EPP_Frota=Tbl_Equipamentos_EPP.EPP_Frota
GROUP BY Tbl_Equipamentos_EPP.EPP_Frota, Tbl_Manutencao_EPP.EPP_Tag, Tbl_Equipamentos_EPP.EPP_Meta, Tbl_Manutencao_EPP.EPP_Dt_Inicio, Tbl_Manutencao_EPP.EPP_Dt_Fim, Tbl_Manutencao_EPP.EPP_Frota;