[Resolvido]Caixa de Combinação: não repetir nome na lista

Pessoal, em um formulário eu tenho uma caixa de combinação que busca os valores (nomes de pessoas) em uma tabela.

Nessa tabela onde a combox busca os dados, os nomes de pessoas podem se repetir várias vezes.

Dai, ao clicar na setinha da combox aparece, por exemplo:

ANA MARIA DA SILVA
ANA MARIA DA SILVA
ANA MARIA DA SILVA
ANA MARIA DA SILVA
JOSÉ CARLOS JUNIOR
JOSÉ CARLOS JUNIOR
JOÃO CARLOS PEREIRA
JOÃO CARLOS PEREIRA
JOÃO CARLOS PEREIRA
JOÃO CARLOS PEREIRA
JOÃO CARLOS PEREIRA
JOÃO CARLOS PEREIRA
JOÃO CARLOS PEREIRA
JOÃO CARLOS PEREIRA
JOÃO CARLOS PEREIRA
JOÃO CARLOS PEREIRA
MAGALI COMILONA

O ideal seria se os nomes aparecessem apenas uma vez:
ANA MARIA DA SILVA
JOSÉ CARLOS JUNIOR
JOÃO CARLOS PEREIRA
MAGALI COMILONA

Tem como eu evitar esse tipo de repetição de valores na combox? Eu tentei por agrupamento mas não deu certo.

Faça uma consulta e vá buscar os valores à consulta ao invés de os ir buscar na tabela.

Uma coisinha:

Veja o exemplo que fiz para si
http://dl.dropbox.com/u/8157744/combojess.rar

Se ao construir a caixa de combinação a partir da tabela incluir a chave primária:

1- Paulo
2- Vieira
3- Criquio

Pode fazer isso com o construtor do Access, os nomes não serão repetidos, excepto se eles existirem repetidos na tabela.

Ora Tente

Origem de Linha da sua ComboBox

SELECT DISTINCT [NomePessoa] FROM SuaTabela ORDER BY[NomePessoa]

Vieira, mesmo buscando os dados (nomes) na consulta, eles aparecem repetidos.

Quanto ao seu exemplo, eu repeti o nome do Manoel na quarta linha da tabela. Dai no formulário ele aparece duas vezes na combox (na 1ª e 4ª linha).

Alguma coisa deve estar errada na bd.

Coloque aqui ou envie para o meu email em formato rar

sergiovieirasoft@gmail.com

Assis, a origem da minha linha é esta:

SELECT [TAB_AGENDAMENTO_HORARIOS].[COD_AGEND], [TAB_AGENDAMENTO_HORARIOS].[PROFISSIONAL_AGEND] FROM TAB_AGENDAMENTO_HORARIOS ORDER BY [TAB_AGENDAMENTO_HORARIOS].[PROFISSIONAL_AGEND];

Vieira, envie o arquivo para o seu e-mail.

Não é preciso mas eu vou olhar

Faça assim que dá certo:Experimente no exemplo que lhe enviei que funfa direitinho

pode baixar de novo o exemplo já com a correcção

SELECT DISTINCT Cliente.NomeDaEmpresa FROM Cliente;

Amigo Dess

Dei uma olhada e já detectei o porquê de tanto problema.

Você vai buscar os dados para preencher a combo à tabela errada. Você tem uma tabela
com o nome TAB_CADASTRO_COLABORADORES e é nesta que você deve vir buscar o nome dos profissionais para preencher a combo. Nem seria necessário a instrução acima pois da primeira vez que lhe disse para fazer já estava correcto. Agora informe só um pormenor:
Esta combo vai popular todos os outros campos?

Foi enviado para si no email. Logo que possível retorne.

Bom trabalho

Vieira, desculpa responder só agora, mas eu estava sem tempo.

Eu abri o arquivo, mas a solução não deu certo.

Antes (quando apareci os nomes repetidos) quando eu selecionava um dos nomes, em baixo no subformulário aparecia os horários agendados para aquele profissional. Agora, depois das suas alterações de fato os nomes não se repetem, contudo, ao selecioná-lo, a agenda de horários não é puxada.

Boa Tarde amigo

Por isso ontem perguntei se esta combo populava algo

Aqui vai

http://dl.dropbox.com/u/8157744/FISIO1.rar

Agora deu certo!

Vc mexeu apenas no Origem da Linha?

Sim amigão, apenas na origem da linha porque era tudo o que era necessário para por isso a funcionar, só não o fiz ontem porque você não retornou.

Abração e bom trabalho

Vieira e Assis,  boa noite , o  DISTINCT não está funcionando no  vba

Não sei se é nabice minha.. se é daquelas coisas...

SELECT DISTINCT funciona perfeitamente
No entanto se colocar a lista num objecto "controlo de separador" ... em qualquer página.. a listagem aparece sempre em branco

Boa noite
Poste aqui a tabela
Aguardo

Viva,
Obrigado, mas resolvi de outra forma (já alterei tudo)
Aqui vai o código e os respectivos screens
Cumprimentos

-----
SELECT DISTINCT cadernetas_ALL.Grupo
FROM cadernetas_ALL
WHERE (((cadernetas_ALL.Grupo)>"0"))
ORDER BY cadernetas_ALL.Grupo;

----

https://drive.google.com/file/d/192OFCJklXQH-b_yamKzxby36DSmAPJfn/view?usp=sharing