[Resolvido]Deixar somente 1 registro na Tabela

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.

Bom dia.

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

https://www.maximoaccess.com/t420-resolvido-exclusao-excluir-duplicidade-impedir-dados-duplicados

Sds, Delson

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

Bom dia!

Que bom que conseguiu resolver o problema!

Obrigado pelo retorno.

Sucesso, Delson