Kod:
Private Sub Btntekrarsil_Click()
Dim strSQL As String
strSQL = " SELECT * INTO [Pds_DataTmp] FROM (SELECT DISTINCT * FROM Pds_Data);"
DoCmd.SetWarnings False
DoCmd.RunSQL strSQL
DoCmd.RunSQL "delete from Pds_Data"
CurrentDb.Execute "INSERT INTO Pds_Data SELECT * FROM Pds_DataTmp;"
DoCmd.DeleteObject acTable, "Pds_DataTmp"
DoCmd.SetWarnings True
End Sub