Estou tentando criar uma rotina em VBA onde a mesma teria que apagar todos os registros duplicado preservando um de cada. Se alguem puder me ajudar serei muito grato.
3 participantes
[Resolvido]Excluir registros duplicados preservando um de cada
MarcosRogerio- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 4
Registrado : 08/09/2016
Marcelo David- Moderador
- Respeito às regras :
Sexo :
Localização :
Mensagens : 3946
Registrado : 21/04/2011
Qual o critério para saber se o registro é duplicado?
.................................................................................
Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
Access e VBA - Formulário Desacoplado - [Passo a passo]
Conheça meu canal no Youtube e se inscreva.
MarcosRogerio- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 4
Registrado : 08/09/2016
- Mensagem nº3
Excluir registros duplicados preservando um de cada
Eu preciso excluir todos os registros que tem o mesmo código de produto, preservando apenas 1 de cada registro duplicado. eu usava essa função
no excel "(Private Sub Comando5_Click() Activesheet.Range("intervalo").RemoveDuplicates Columns:=Array(1,2,3,9) End Sub" onde ela procurava num itervalo todos os campos coincidentes do registros duplicados nas colunas 1,2,3,9, caso todos fossem iguaís ele excluia um e preservava um de cada, dava super certo, tentei usar a mesma função aqui no access mas ele da "erro de execução 424 Objeto obrigatório"
Desculpa a simplicidade, mas sou novo nesse mundo...
no excel "(Private Sub Comando5_Click() Activesheet.Range("intervalo").RemoveDuplicates Columns:=Array(1,2,3,9) End Sub" onde ela procurava num itervalo todos os campos coincidentes do registros duplicados nas colunas 1,2,3,9, caso todos fossem iguaís ele excluia um e preservava um de cada, dava super certo, tentei usar a mesma função aqui no access mas ele da "erro de execução 424 Objeto obrigatório"
Desculpa a simplicidade, mas sou novo nesse mundo...
JPaulo- Moderador
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11026
Registrado : 04/11/2009
Veja a mensagem Nº 29 deste tópico;
https://www.maximoaccess.com/t6452-resolvidoexcluir-dados-duplicados-sem-chave
Ou em SQL;
Abra uma consulta nova em modo SQL e cole isto;
Retorne o resultado...
https://www.maximoaccess.com/t6452-resolvidoexcluir-dados-duplicados-sem-chave
Ou em SQL;
Abra uma consulta nova em modo SQL e cole isto;
- Código:
DELETE *
FROM SuaTabela
WHERE SeuCódigo<> (SELECT Max(SeuCódigo) AS MaxOfSeuCódigo FROM SuaTabela AS Dupe
WHERE (Dupe.Nome = SuaTabela.Nome));
Retorne o resultado...
.................................................................................
Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.
Pay-Pal R$ Aqui
Pay-Pal € Aqui
Ou ainda: Aqui (Novo)
Sucesso e Bons Estudos
Success and Good Studies
Utilize o Sistema de Busca do Fórum...
102 Códigos VBA Gratuitos...
Instruções SQL como utilizar...
MarcosRogerio- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 4
Registrado : 08/09/2016
- Mensagem nº5
Excluir registros duplicados preservando um de cada
JPaulo, Quero lhe agradecer pela ajuda, realmente funcionou. Muito obrigado
JPaulo- Moderador
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11026
Registrado : 04/11/2009
Fico feliz.
Obrigado pelo retorno o forum agradece.
Obrigado pelo retorno o forum agradece.
.................................................................................
Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.
Pay-Pal R$ Aqui
Pay-Pal € Aqui
Ou ainda: Aqui (Novo)
Sucesso e Bons Estudos
Success and Good Studies
Utilize o Sistema de Busca do Fórum...
102 Códigos VBA Gratuitos...
Instruções SQL como utilizar...