MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

2 participantes

    [Resolvido]Deixar somente 1 registro na Tabela

    avatar
    brmro011
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Deixar somente 1 registro na Tabela Empty [Resolvido]Deixar somente 1 registro na Tabela

    Mensagem  brmro011 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
    [Resolvido]Deixar somente 1 registro na Tabela AttachmentTela de exemplo registros duplicados.doc
    Você não tem permissão para fazer download dos arquivos anexados.
    (264 Kb) Baixado 11 vez(es)
    avatar
    delsonk
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Deixar somente 1 registro na Tabela Empty Re: [Resolvido]Deixar somente 1 registro na Tabela

    Mensagem  delsonk 12/8/2018, 11:48

    avatar
    brmro011
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Deixar somente 1 registro na Tabela Empty Deixar somente 1 registro na Tabela

    Mensagem  brmro011 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
    avatar
    delsonk
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Deixar somente 1 registro na Tabela Empty Re: [Resolvido]Deixar somente 1 registro na Tabela

    Mensagem  delsonk 14/8/2018, 11:58

    Bom dia!

    Que bom que conseguiu resolver o problema!

    Obrigado pelo retorno.

    Sucesso, Delson

      Data/hora atual: 22/9/2021, 06:27