[Resolvido]Dúvida com o exemplo Pesquisa utilizando RecordsetClone

Bom dia Dilson,
gostei muito deste seu exemplo, mas gostaria de saber se dá pra encontrar vários registros duplicados e exibí-los na msgbox?. ex. um aluno que tenha várias matrículas ( sendo que o campo não seja autonum) serem exibidas para o usuário.

Obrigado pela atenção

Olá Tony,

Perdoe-me pela demora na resposta. Eu estava em outra cidade a trabalho.

Não. o método FindFirst localiza e mostra o primeiro registro da busca. Terias que modificar a instrução no recordset.

Da forma que deseja poderias usar uma instrução sql que terias um botão, uma textbox e uma listbox. No botão colocaria a instrução com critério. Este critério seria sua textbox que conteria o valor desejado digitado por você, por exemplo o nº de um rg ou se for tabela relacional o n° da chave primária correspondente que povoaria os resultados na listbox.

Diga-me queres filtrar esses resultados de uma tabela apenas ou, de tabelas relacionadas, tipo: tabela Alunos x tabela matriculas de alunos ?

Olá Dilson, agora eu que peço desculpas, estava trabalhando.
Bem, na verdade eu testei o seu exemplo e gostei muito, por isso fiquei entusiasmado pois tenho um BD que fiz para uma pequena escola e quando foram testar por falta de atenção dos digitadores sairam alunos com vários cadastros então o seu exemplo me deu uma esperança que ao digitar o nome do aluno em um novo cadastro se já existisse apareceria uma msgbox com o n° de todas as suas matrículas não somente uma. Você teria uma solução similar para mim caso não seja possível essa?

Obrigado pela atenção

Outra solução existe.

Mas, acho que o nome não é o mais adequado para filtrar essas informações, dado que existem homônimos.

Nesta tabela tem algum número de documento (rg, cpf ou outro)? Esses sim poderia alcançar um filtro fidedigno.

Dilson, sim tem rg, cpf..., mas a idéia é essa, provar que é apenas um homônimo e seguir o cadastro do aluno.

Fiz um exemplo. Veja se serve no que pretende.

Comece escrevendo na TextBox jose antonio e tecle enter ou tab depois escreva maria jose e veja como reage. Depois escreva um que não esteja na tabela e observe.


Download

Dilson boa noite, desculpa a demora na resposta é que atualmente só estou acessando em casa. Quanto ao exemplo acho que é isso mesmo, gostei muito, vou testar no BD depois eu lhe retorno.

Obrigado pela atenção.

Boa Noite Dilson,

eu posso colocar o código direto em campo do meu form já existente ou tenho que criar uma caixa de texto?

Sim, aplique direto no seu projeto no evento antes de atualizar do campo desejado. Precisará apenas substituir os nomes do exemplo pelos nomes no seu projeto: do campo na tabela, o nome da tabela e o nome da textBox que no exemplo se chama txtNome

Bom trabalho

Dilson Boa tarde, apenas uma dúvida: eu tenho 2 botões nos campos [CodAluno] e [NomeAluno] que tinham a finalidade de encontrar duplicidades, e um outro botão para ver todos os alunos, bem, depois que eu executo o código que vc fez este botões dão erro e só voltam a funcionar com ctrl+z. O que pode ser?

Você construiu o formulario frmExtrato e consulta obedecendo aos nomes da sua tabela?

pode ser erro na execução. Alguma coisa deva estar inadequado.

Se desejar, pode anexar parte do seu projeto que vejo o que se passa.

Boa Noite Dilson, não consigo enviar pelo forum, pode ser por e-mail?

Sim

Dilson, Já enviei por e-mail.

Tony,

Tá tudo certo no projeto, aqui funcionou certinho tanto no 2003 como no 2007.

As inputBox do código dos botões que se referiu, abriram e filtraram normalmente.

Não fiz absolutamente nada, simplesmente rodei e funcionou como se esperava.

Em seguida fiz minimos ajustes que deves acrescentar ao projeto atual:

- Substituição do On Error Resume Next por Tratamento de erro no evento antes de atualizar da textBox NomeAluno;
- Substituição da msgBox "Registro não encontrado" no evento antes de atualizar do CPF e RG por Exit Sub;

Sobre a mensagem na imagem que enviou, não a detectei nas vezes que testei o projeto. Para tirarmos conclusões é necessário sabermos em qual evento ocorre.

Deva estar ocorrendo conflitos no office da sua máquina ou no projeto. Faça um compactar e reparar para ver.

Este bug que citou parece quando tens dois offices, 2003 e 2007 por exemplo. Se for isso, volte ao 2003 e depois reabra novamente o 2007.

Abaixo o seu projeto com os minimos ajustes citados acima:

http://www.speedyshare.com/files/30225695/Parte_do_BDTony_voltandoAoDono.zip