[Resolvido]Contar nomes não uma unica vez

Boa noite,

Recorro uma vez mais à vossa preciosa ajuda, a minha dúvida é a seguinte;

a empresa onde trabalho possui um ginasio, em que todos os colaboradores poderão utilizar o espaço podendo entrar e sair várias vezes ao dia, o que eu pretendia era contar somente uma vez os nomes repetidos para que seja possivel saber quantas pessoas utilizaram o espaço durante o dia e não o n.º de acessos. Já tentei procurar no forum mas não encontrei bem o que pretendia...

Obigado

Se grava isso em uma tabela e tem a ID da pessoa, podes utilizar o Dcount em uma consulta.

Cumprimentos.

Ola,

Eu precisava de efectuar o calculo no proprio relatorio num campo desvinculado, acha que mesmo assim da?

Na verdade que contar é o número de colaboradores???

Veja se seria isso?

https://dl.dropbox.com/u/99856333/Ginasio_Acesso.accdb

Bom dia,

O que eu pretendia era contar o numero de utilizadores que estiveram no ginasio durante o dia e não o numero de accessos eftuados (o mesmo utilizador pode aceder ao ginasio mais do que uma vez), e colocar no cabeçalho "colaborador" uma caixa de texto desvinculada que contasse somente os nome repetidos uma vez...

Dá pra efetuar essa contagem em um relatório sim..

Nos envie um modelo de sua tabela contendo algum desses dados..

Quer contar todos que estiveram no ginásio ou quantas vezes a pessoa X ali adentrou?


Cumprimentos.

Ola,

a minha mdb, é muito grande e n consigo enviar, mas o exemplo que criou serve perfeitamente, o que eu pretendia efectuar é contar uma unica vez os nomes dos utilizadores mesmo quando estes estão repetidos...

Exemplo:

colaborador data

antonio 16-01-2013 01:08:08
josé 16-01-2013 02:08:08
maria 16-01-2013 01:25:08
antonio 16-01-2013 17:08:08
josé 16-01-2013 18:08:08

total de colaboradores que acederam ao ginasio: 3

Podes tambem utilizar uma consulta agrupada....

Cumprimentos.

Select Distinct id do nome no dia.

Olá!

Segue um exemplo aonde foi criado uma agrupamento por aluno e usado o cabeçalho do agrupamento para realizar a contagem.  

veja a programação utilizada

Código:

Option Compare Database
Dim k As Integer

Private Sub CabeçalhoDoGrupo0_Print(Cancel As Integer, PrintCount As Integer)
k = k + 1
End Sub

Private Sub RodapéDoRelatório_Print(Cancel As Integer, PrintCount As Integer)
Me!totalC = k
k = 0
End Sub

Quando tiver um tempinho, assista o vídeo deste meu artigo:

Vídeo - Programação de relatórios - Parte 1

Sucesso!

Utilizando o mesmo código do Avelino...

https://dl.dropbox.com/u/99856333/Ginasio_Acesso.accdb

Ola

Desculpem a demora na resposta mas estive ausente, avelino experimentei o seu exemplo e funcionou na perfeição.

Obrigado a todos