[Resolvido]Contador de registos em subformulário filtrado

Olá. tenho um formulário FILTRAR , que filtra para um subformulário.
Para contar os registos do filtro do campo EMAIL (no subformulário) tenho o seguinte código:

Contareg = DCount("[EMAIL]", "Lista") ' Lista é a consulta ou Query
Me.txtResultado.Value = Contareg

Porém, reparei que quando filtra nomes como "agricultura" ou "agricultura e pecuária" ele conta a soma destes 2, ou seja por terem ambos os nomes agricultura o txtResultado dá a soma dos EMAIL de ambos.
Que tem o código de mal?

Separe por grupos......cada especialidade em um grupo...assim a filtragem vai funfar melhor.
Do modo como está, a filtragem está sendo genérica.
E no Dcount, coloque o grupo ( dentro do grupo, vai estar as especialidades)

tenho este exemplo, aqui funciona bem, mas quando ponho em milhares de contactos, o contareg tem falhas

Alphedro, O simples geralmente é melhor...


Veja bem o que eu fiz:
Coloquei no Rodapé do seu Subformulario subformA Uma caixa de texto onde recebe tem o seguinte: = Contar([Especialidade]) Ou seja ela irá contar cada registro desse formulario.

Sendo assim, no Seu formulario FILTRAR, na sua caixa de texto (txtResultado) Coloque para buscar (=[subformA].[Formulário]![txtTotalRegistros]) o valor da contagem feita a cima...
Simples... E eficaz!!!!

https://www.dropbox.com/s/mgwaszg03g3e28c/CONTACTOS%20-%2032%2664bits%20-%20PDF.rar?dl=0

para contar os registo que têm endereços de e-mail, é só trocar a especialidade por EMAIL?

Isso mesmo!!!

És mestre.

Tudo ok.
Obrigado.