MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Excluir registros duplicados preservando um de cada

    Compartilhe

    MarcosRogerio
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 08/09/2016

    [Resolvido]Excluir registros duplicados preservando um de cada

    Mensagem  MarcosRogerio em 2/11/2018, 04:20

    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.
    avatar
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2471
    Registrado : 21/04/2011

    Re: [Resolvido]Excluir registros duplicados preservando um de cada

    Mensagem  Marcelo David em 2/11/2018, 04:33

    Qual o critério para saber se o registro é duplicado?


    .................................................................................
    Marcelo David
    [Você precisa estar registrado e conectado para ver este link.] (em construção)

    MarcosRogerio
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 08/09/2016

    Excluir registros duplicados preservando um de cada

    Mensagem  MarcosRogerio em 2/11/2018, 14:02

    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...
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10232
    Registrado : 04/11/2009

    Re: [Resolvido]Excluir registros duplicados preservando um de cada

    Mensagem  JPaulo em 2/11/2018, 14:40

    Veja a mensagem Nº 29 deste tópico;

    [Você precisa estar registrado e conectado para ver este link.]

    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.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    MarcosRogerio
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 08/09/2016

    Excluir registros duplicados preservando um de cada

    Mensagem  MarcosRogerio em 2/11/2018, 17:13

    JPaulo, Quero lhe agradecer pela ajuda, realmente funcionou. Muito obrigado
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10232
    Registrado : 04/11/2009

    Re: [Resolvido]Excluir registros duplicados preservando um de cada

    Mensagem  JPaulo em 2/11/2018, 17:33

    Fico feliz.

    Obrigado pelo retorno o forum agradece.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

      Data/hora atual: 17/11/2018, 03:05