[Resolvido]Duplicidade - não consigo excluir

Boa noite,

Preciso de uma grande ajuda de vocês, mais uma vez.

JPaulo algum tempo atrás me passou este procedimento que funcionou perfeitamente.
Porém agora eu adaptei para outro caso, mas não estou conseguindo excluir da tabela os registros duplicados quando há o campo chave de "Numeração automática", quando retiro este campo funciona, mas necessito ter este código.
Não consegui descobrir onde estou errando, help !

http://www.speedyshare.com/files/25610353/DUPLICIDADE.zip

muito grata

Stella

Bom Dia Stella;

Código alterado teste por favor;


Public Function DeletaRegistrosDuplicados(strTabela As String)
'By JPaulo ® Maximo Access
Dim rst As DAO.Recordset, rst2 As DAO.Recordset
Dim tdf As DAO.TableDef
Dim fld As DAO.Field
Dim strSQL As String
Dim varX As Variant

Set tdf = DBEngine(0)(0).TableDefs(strTabela)
strSQL = "SELECT APELIDO,CONDOMINIO,BlocoNome,APT,Apt_situacao,RESP,PROPRIETARIO,Endereco,BAIRRO,CIDADE,UF,CEP FROM " & strTabela & " ORDER BY "
For Each fld In tdf.Fields
If (Left(fld.Name, 6) <> "codigo") And (fld.Type <> dbMemo) And (fld.Type <> dbLongBinary) Then
strSQL = strSQL & fld.Name & ", "
End If
Next fld

strSQL = Left(strSQL, Len(strSQL) - 2)
Set tdf = Nothing

Set rst = CurrentDb.OpenRecordset(strSQL)
Set rst2 = rst.Clone
rst.MoveNext
Do Until rst.EOF
varX = rst.Bookmark
For Each fld In rst.Fields
If fld.Value <> rst2.Fields(fld.Name).Value Then
GoTo NextRecord
End If
Next fld
rst.Delete
GoTo SkipBookmark
NextRecord:
rst2.Bookmark = varX
SkipBookmark:
rst.MoveNext
Loop
rst.Close
End Function

JPaulo,

Perfeito, aliás como sempre !

Uma pergunta: o outro código então serve apenas para aquelas tabelas que não tem campos tipo: Numeração Automática?

muito obrigada
Stella

Obrigado pelo retorno o fórum agradece.

Sim o outro serve para todas as tabelas que não possuem Campo de numeração automatica.