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]Deixar somente 1 registro na Tabela

    Compartilhe

    brmro011
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 16/12/2013

    [Resolvido]Deixar somente 1 registro na Tabela

    Mensagem  brmro011 em 12/8/2018, 03:27

    Boa noite,

    Gostaria de uma ajuda.

    Tenho vários registro de vários EAN em uma tabela, preciso localizar cada item em duplicidade e deixar somente 1 registro.
    Exemplo:

    Tenho o EAN = 8426617002510 com 10 duplicidades preciso excluir os 9 últimos registros e deixar somente o mais novo.
    Tenho o EAN = 2 com 8 duplicidades preciso excluir os 7 ultimos registros e deixar somente o mais novo.
    Tenho 356 EAN's nesta situação.
    Anexos
    Tela de exemplo registros duplicados.doc
    Você não tem permissão para fazer download dos arquivos anexados.
    (264 Kb) Baixado 9 vez(es)

    delsonk
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 102
    Registrado : 26/11/2013

    Re: [Resolvido]Deixar somente 1 registro na Tabela

    Mensagem  delsonk em 12/8/2018, 11:48

    Bom dia.

    Veja se ajuda, na mensagem Nº4 ou Nº8;

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

    Sds, Delson

    brmro011
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 16/12/2013

    Deixar somente 1 registro na Tabela

    Mensagem  brmro011 em 14/8/2018, 02:27

    Boa noite.

    Delsonk,

    Usei o seguinte código abaixo que você informou e resolveu o problema.

    Coloquei o código abaixo no módulo.



    Código:
    Sub ApagaDuplicados()
    Dim Rst As DAO.Recordset, strId As String, strNome As String, strObs As String, PrimeiroRegisto As Boolean

    PrimeiroRegisto = True
    Set Rst = CurrentDb.OpenRecordset("SELECT * FROM Mapeamento_SDP ORDER BY EAN;")

    Do While Not Rst.EOF
    If PrimeiroRegisto Then
    PrimeiroRegisto = False
    strId = Rst("EAN")
    ElseIf strId = Rst("EAN") Then
    Rst.Delete
    Else
    strId = Rst("EAN")
    End If
    Rst.MoveNext
    Loop
    Set Rst = Nothing
    End Sub

    Agradeço muito pela Vossa ajuda.

    Ass: Rogerio Marin

    delsonk
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 102
    Registrado : 26/11/2013

    Re: [Resolvido]Deixar somente 1 registro na Tabela

    Mensagem  delsonk em 14/8/2018, 11:58

    Bom dia!

    Que bom que conseguiu resolver o problema!

    Obrigado pelo retorno.

    Sucesso, Delson

      Data/hora atual: 15/11/2018, 04:43