[Resolvido]Consulta Esconder Valores Duplicados

Bom dia pessoal...

Estive a procura no forum, de situações de valores duplicados e encontrei entre outros este código:

DELETE *
FROM Participantes
WHERE Código do Participante <> (SELECT Max(Código do Participante) AS MaxOfID FROM Participantes AS Dupe
WHERE (Dupe.Email= Participantes.Email));

Na minha BD e na minha consulta apenas me mostra quais os Participantes que têm o mesmo Email... só me mostra os duplicados.

O que eu procurava e tentava fazer, era que ao executar a consulta ela me "esconde-se" apenas os Participantes que têm o mesmo email (no caso de ter 3 participantes, apenas me mostra 1)... Sem Apagar qualquer registo na Tabela Participantes, pois uma (Participante) pessoa pode estar inscrita em vários Eventos e não pode ser eliminada dos mesmos.

Não sei se apenas é preciso colocar algum tipo de critério ao qual não estou a ver...

Obrigado!

Não entendi a lógica da coisa. Você quer visualizar apenas um registro com o email especificado, é isso? Mas é só para visualizar mesmo, tipo saber de quem é o email? Ou precisará tomar alguma ação? Nesse último caso, isso se torna ineficiente, pois você corre o risco de tomar a ação sobre o registro errado. Se for só para exibir os dados da pessoa, pode tentar assim:

Me.CampoNome = DLookup("Nome", "NomeTabela, "Email='" & Me!CampoEmail & "'")

Eu quero que a consulta quando executada mostre os Nomes e Email...mas se existir vários registos da mesma pessoa (com a mesma informação Nome e Email)apenas me mostre um registo... Tipo se existir:


[td]Rui

Nome	Email	Evento [/td
lala@iol.pt	Jornadas
Ana	xpxp@esd.com	Jornadas
Rui	lala@iol.pt	Semana X

Quando executar a consulta (sem critérios), a consulta me mostre:

[center][/tr][tr]

Nome	Email
Rui	lala@iol.pt
Ana	xpxp@esd.com

basicamente não quero que a consulta me mostre registos repetidos...

Utilize o Select Distinct

Abra a consulta em modo SQL e digite

Select Distinct Nome, Email From SuaTabela


Atenção às palavras reservadas do Access.

Não compreendi o que colocou a vermelho na resposta...


O meu SQL está assim:

SELECT Participantes.Nome, Participantes.Email, Eventos.[Área ou Tema do Evento]
FROM Participantes INNER JOIN (Eventos INNER JOIN ParticipaçãoEventos ON Eventos.[Código do Evento] = ParticipaçãoEventos.[Código do Evento]) ON Participantes.[Código do Participante] = ParticipaçãoEventos.[Código do Participante]
WHERE (((Eventos.[Área ou Tema do Evento]) Like "*" & [Nome do Evento:] & "*"));

Onde coloco as linhas de SQL que me disse?

Ia testar....desapareceu a sua resposta...

o que está a vermelho, ainda hoje falámos sobre isso,

veja este tópico e palavra Nome

http://maximoaccess.forumeiros.com/t198-palavras-reservadas-do-access

Ricardo... a sua resposta onde colocou o código SQL sumiu.... pode postar outra vez?


Obrigado

porque vi que está a trabalhar com INNER JOIN, e assim não dá directo nessa consulta.

nessa sua consulta delete a linha
WHERE (((Eventos.[Área ou Tema do Evento]) Like "*" & [Nome do Evento:] & "*"));

faça uma nova consulta sobre essa sua assim;

Select Distinct Nome, Email
From SuaConsulta
WHERE [Área ou Tema do Evento] Like "*" & [Nome do Evento:] & "*";

o primeiro que postei e a funcionar para uma só tabela era este

SELECT DISTINCT Nome, Email, Evento
FROM SuaTabela
WHERE (((SuaTabela.[id])<>(SELECT max(id) AS MaxOfID FROM SuaTabela AS Dupe
WHERE (Dupe.nome<> SuaTabela.nome and Dupe.email<>SuaTabela.email and Dupe.Evento<> SuaTabela.Evento))))
GROUP BY SuaTabela.Nome, SuaTabela.Email, SuaTabela.Evento;

Fiz exactamente como disse, e continua a mostrar os Participantes todos e Email de todos....mesmo os duplicados...

coloque aqui um banco para exemplo somente com as tabelas e a consulta em questão.

aqui está...

Obrigado

dê-me um exemplo da repetição se faz favor

não vejo nomes repetidos

Alterei o Rui Jorge para Rui Pedro, aí ficaram dois com o mesmo nome

na sua consulta já existente, apenas inseri o DISTINCT, filtrei pelo evento jjj e não duplicou


SELECT DISTINCT Participantes.Nome, Participantes.Email, Eventos.[Área ou Tema do Evento]
FROM Participantes INNER JOIN (Eventos INNER JOIN ParticipaçãoEventos ON Eventos.[Código do Evento]=ParticipaçãoEventos.[Código do Evento]) ON Participantes.[Código do Participante]=ParticipaçãoEventos.[Código do Participante]
WHERE (((Eventos.[Área ou Tema do Evento]) Like "*" & [Nome do Evento:] & "*"));

Exacto...trabalha... mas se eu não quiser filtrar por evento? Se eu quiser ver os Participantes e Email de todos os eventos...(neste momento tem 2 eventos, mas para a semana vai ter já por volta de 10), não dá para ele esconder na mesma os duplicados?

então ?

basta tirar o criterio e deixar lá o DISTINCT

SELECT DISTINCT Participantes.Nome, Participantes.Email, Eventos.[Área ou Tema do Evento]
FROM Participantes INNER JOIN (Eventos INNER JOIN ParticipaçãoEventos ON Eventos.[Código do Evento] = ParticipaçãoEventos.[Código do Evento]) ON Participantes.[Código do Participante] = ParticipaçãoEventos.[Código do Participante];

lógico que se quiser ver os eventos não vai dar, por se um nome duplicado tiver dois eventos diferentes vai aparecer:

Código:

Nome         Email    Evento
Rui Pedro   lala@iol.pt   jjj
Rui Pedro   lala@iol.pt   Semaninha

se quiser apenas ver os nomes e email`s basta assim;

SELECT DISTINCT Participantes.Nome, Participantes.Email
FROM Participantes INNER JOIN (Eventos INNER JOIN ParticipaçãoEventos ON Eventos.[Código do Evento] = ParticipaçãoEventos.[Código do Evento]) ON Participantes.[Código do Participante] = ParticipaçãoEventos.[Código do Participante];

Código:

Nome     Email
Ana Maria     erds@gjf.cpl
Bruno           efdsd@gfl.com
Inês Maria     rfkdm@fkf
João Pedro     efefe@qwe.dfl
Jorge Jesus     wjs@fgj.xs
Manuel Rodrigues  rkdkd@gklf.vom
Rui Pedro     lala@iol.pt

eu próprio já me estou a sentir chato ... vamos esquecer os nomes dos Eventos... Eu preciso que ele me dê todos os Nomes e Email existentes na tabela Participantes ocultando os duplicados(mostrando apenas um exemplar desses duplicados) ...

Desculpe....

não vi a actualização do tópico...sorry...

Ricardo, Dilson, criquio, vieirasoft, (e todos aqueles que não me lembro do nome) ficou muito bom....

O meu muito Obrigado...

Mais tarde irei colocar a bd no repositório para quem precisar poder usar...

Como me ajudaram...também quero ajudar!!!