DUPLICIDADE DE REGISTROS NO ACCESS

USUARIO.EXCLUIDOS 05/01/2005 11:17:12
#58724

a todos que me ajudaram eis aqui a solucao

A = 0
RS.MoveFirst
Do While RS.EOF = False
If A = RS!cmc7 Then


RS.Delete adAffectCurrent
RS.Update
RS.Close
RS.Open , CN
MsgBox "Registro " & A & " Duplicado e ja foi deletado", vbInformation


End If
A = RS!cmc7
RS.MoveNext
Loop

RS.MoveFirst


assim caso alguem venha preicsar eh so ver aqui mesmo
muito obrigado a todos os colaboradores...ate a minha proxima cag...