[Resolvido]Contar dados não repetidos

BOAS
Mais uma duvida que deixo aos mestres,

Numa caixa de texto em um formulário é possivel contar os valores de um campo que não sejam repetidos?
Ex.

COLUNA A

João
Manuel
Maria
Maria
João
Paulo

Total do campo (4)

Tentei assim, mas conta tudo:
=contar([nomedocampo])

dteixa boa noite.

Acredito que seja como neste post veja:

http://maximoaccess.forumeiros.com/t2197-resolvidonao-contar-campos-iguais

Boas
é mais ou menos isso, mas sem ser em SQL,
pretendia direto na caixa de texto, tipo na Origem do Controlo

Não terá solução fácil sem VBA

Concordo com Alexandre, não consigo enxergar nenhum metodo a não ser em VBA

ok que seja em SQL, alguém pode indicar o código , por favor

Uma forma de se fazer isso pode ser criando uma função assim:

Private Function ContaGente() As Double

Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("SELECT DISTINCT NomeDoCampo FROM NomeDaTabela")

ContaGente = rs.RecordCount

rs.Close
Set rs = Nothing

End Function

Agora, na origem do campo, coloque:

=ContaGente()

CRIQUIO,
Agradeço a tua colaboração, mas não funcionou,
dá no campo #nome?

Você criou a função no cabeçalho do módulo, fora dos eventos do formulário? Ou seja, abaixo das linhas Option Compare Database e, se existir, a linha Option Explicit? Colocou os nomes corretos da tabela e do campo que quer contar?

hummmm
isso assim dito parece muito complicado
podes fazer um exemplo e por aqui para download?
obrigado

É simples de fazer. Você deve abrir o formulário no modo estrutura e abrir o módulo VBA dele. A primeira linha nesse módulo deve ser Option Compare Database. A função deve ser colada logo depois dessa linha. Depois de colar, basta mudar NomeDoCampo para o nome do campo que você quer contar e NomeDaTabela para o nome da tabela aonde está esse campo. Depois é só salvar, voltar na estrutura do formulário e colocar o nome da função na origem do campo aonde quer que apareça a quantidade:
=ContaGente()

Criquio, boas
funciona sim, mas agora para complicar mais um pouco
num subformulário o resultado é o total da tabela e não o filtrado, como resolver isso

Deve ter um campo em comum a todos os registros do subform, certo? Transfira a função para o subformulário passando esse campo em comum no parâmetro de filtragem.

CRiquio, lol
tens de falar numa linguagem que eu perceba

a tabela tem o nome CBsOutros e os campos NºOR, CBs, Viat e Bomb
o SUBFormulário tem o nome de CBSOutrosSubformulário
eu quero o resultado do nº de CBs filtrado por NºOR
entendes?

Bom dia amigos, veja um exemplo que fiz bem simples!

Testei criquio a tua função funfou beleza! Parabéns!

Boas Lupércio
Eu já tinha testado e verificado que funciona,
o problema é quando estas num subformulário com a informação filtrada.

só quero ver o total do sub e não o total da tabela, entendes?
obrigado

Tem como postar parte do banco!
Você quer contar os registros que está no subform ainda aberto é isso?

Uma ideia, supondo que tenha um campo no formulário principal que seja comum a todos os registros do subformulário e supondo que o nome desse campo na tabela seja Código e no formulário principal tambem:

Código:

...
Set rs = CurrentDb.OpenRecordset("SELECT DISTINCT NomeDoCampo FROM NomeDaTabela WHERE Código=" & Forms!NomeFormPrincipal!Código & "")
...

Ora vamos lá então ver se assim já entendem
no vídeo do link em baixo mostro onde quero o total (campo VERDE)

https://www.youtube.com/watch?v=nhX6NmOjrFU&feature=youtu.be

a BD é esta

fui abandonado,

Bom dia, dteixa
REGRAS DO FÓRUM
...
6. Respeite toda a equipe Staff e demais membros deste fórum.
...

???????????
onde e quando eu faltei ao respeito a alguem?

Trate os membros com respeito. Eu cumprimentei-o com Bom dia
O fórum é livre. Tem-se a obrigação de agradecer a ajuda prestada, mas não se tem o direito de ficar incomodado por não obter ajuda.
Não escreva em maiúsculas, que significa gritar.
A compreensão deve ser característica de todos, mas mais de quem precisa.
Pense melhor, reflita, coloque-se no lugar de quem está interessado em ajudar e recebe uma resposta como a sua

Eu não entendi muito bem o vídeo. No subformulário tem 3 registros mas você escreveu 2 no campo. Ao que parece a ideia é contar o número de registros do subformulário, é isso mesmo? Se for, tente colocar um campo de nome txtTotal por exemplo no rodapé do subformulário com a expressão =Count(*) e no formulário principal, coloque:

=Forms!NomeDoFormPrincipal!NomeDoSubForm.Form!txtTotal

Boas tardes,
Alexandre Neves,
não foi minha intenção faltar ao respeito a ninguém, as minhas desculpas.

Criquio,
eu escrevi o nº 2 porque eu quero contar os registos mas não repetidos, podes ver la no vídeo tem como ex.,
1722- Boticas
1705- Sabrosa
1722- Botitas
o total deve ser 2 porque um está repetido, dá para entender assim?
obrigado

Tudo bem, ultrapassado. Título alterado para apenas primeira maiúscula
Acompanhe o fórum, mas fique a saber que se deve evitar o direccionamento das questões com inclinação para determinado membro, a menos que seja conveniente. Quando alguém lê uma dúvida direccionada pode julgar que o colega chamado possa interpretar como atropelo. Pode-se dizer: Ao colega tal ou outro que possa ajudar... e pomos no mesmo plano.
Sobre a sua dúvida, abri o formulário Registo de Serviços e não entendi o que pretende.

Dá uma olhada lá no vídeo, quero o total da coluna "CBs" no subformulário, mas sem contar os repetidos

Nomeie os controlos e campos de forma normalizada
Indica Total CBs, é campo ou controlo?
Onde vai buscar Total CBs?

CBs é um campo da tabela "CBsOutros", mas no caso eu quero o resultado não da tabela mas sim do subformulário "CBs Outros Subformulário" que é filtrado pelo "NºOr" do formulário "Registo de Serviços"

dteixa,
Precisa melhorar a nomeação de controlos e campos. Evite renomear campos, complica muito na hora de criar código.
Coloque este código
Private Sub CtlSeparador181_Change()
If CtlSeparador181 = 1 Then
Dim Rst As DAO.Recordset
Set Rst = CurrentDb.OpenRecordset("SELECT DISTINCT CBs FROM [CBS outros] WHERE [NºOr]='" & DLookup("[NºOr]", "Registo_de_Serviços") & "';")
If Not Rst.EOF Then Rst.MoveLast: Rst.MoveFirst
TxtTotalCbs = Rst.RecordCount
Set Rst = Nothing
End If
End Sub

Não percebo nada disto

Bom, resolvi + ou - assim



Private Function ContaCBs() As Double

Dim rs As Recordset

Set rs = CurrentDb.OpenRecordset("SELECT DISTINCT CBs FROM [CBS outros] WHERE [NºOr]='" & DLookup("[NºOr]", "Registo_de_Serviços") & "';")
ContaCBs = rs.RecordCount
Me.Txt9 = rs.RecordCount
rs.Close
Set rs = Nothing
End Function

e no evento "ao perder foco" do campo "CBs"

Call ContaCBs

Na BD de testes funciona bem mas quando importo para a minha BD Original já não funciona (sei que o problema está na Tabela "Registo_de_Serviços"

como solucionar?

vá ao controlo separador, acontecimento AoAlterar, abra a janela de código e cole o código que indiquei.
Experimentei e funcionou

só uma duvida
esta linha (TxtTotalCbs = Rst.RecordCount)
o TxtTotalCbs é uma caixa do sub ou do form?

ok, já vi é no form, mas está a dar-me o resultado 0


confirmo que o problema está na tabela Registo_de_serviços
na BD de testes funciona
Na BD original já não funciona

Boa Noite.
para encerrar o topico, necessito de uma ultima ajuda,
conforme já disse em cima estou com um problema que não sei identificar,
depois de por os códigos do Alexandre Neves e do Criquio
a tabela "Registo_de_Serviços" se estiver sem dados o calculo de CBs funciona bem mas se estiver com os dados antigos já não funciona,
alguem sabe porque?

a BD segue em anexo com as duas tabelas

Boa tarde, teixa
Coloque
Private Sub CtlSeparador181_Change()
If CtlSeparador181 = 1 Then
Dim Rst As DAO.Recordset
Set Rst = Me.CBs_Outros_subformulário.Form.RecordsetClone
If Not Rst.EOF Then Rst.MoveLast: Rst.MoveFirst
TxtTotalCbs = Rst.RecordCount
Set Rst = Nothing
End If
End Sub

Boas
Obrigado por responder Alexandre
assim ele conta só os registos do sub ,mas não distingue os repetidos.

Bom dia, teixa
Isto está enrolado...
Coloque
Private Sub CtlSeparador181_Change()
If CtlSeparador181 = 1 Then
Dim Rst As DAO.Recordset
Set Rst = CurrentDb.OpenRecordset("SELECT DISTINCT CBs FROM [CBs Outros] WHERE [NºOr]='" & Me.[NºOR] & "'")
If Not Rst.EOF Then Rst.MoveLast: Rst.MoveFirst
TxtTotalCbs = Rst.RecordCount
Set Rst = Nothing
End If
End Sub

Grande Alexandre
quase perfeito, a funcionar a 99%
0 1% é porque não atualiza automaticamente ao sair do campo, mas assim já me safo
muito obrigado

Onde pretender actualizar, coloque NomeControlo.Requery

Estou um pouco perdido mas mesmo assim satisfeito.
Obrigado a todos