Tekrarlayan Data Temzileme

13/03/2019, 18:11

ramazanke

Merhaba,

sorgu ile ana tablodan aynı kayıtları da otomatik olarak silmek istiyorum.

örnek ektedir
13/03/2019, 22:55

ercansahin

Hangi sütundaki veriler baz alınacak belirtir misiniz? Ayrıca burada bahsettiğiniz kayıt giriş esnasında mükerrer kayıt varsa mı silsin, yoksa mevcut tablodaki verilerden mükerrer olanları mı silsin? Bir de örneğin mükerrer 4 kayıt varsa 1'i kalacak 3'ümü silinecek? Yoksa tamamı mı?
14/03/2019, 09:11

ramazanke

(13/03/2019, 22:55)ercansahin yazdı: Hangi sütundaki veriler baz alınacak belirtir misiniz? Ayrıca burada bahsettiğiniz kayıt giriş esnasında mükerrer kayıt varsa mı silsin, yoksa mevcut tablodaki verilerden mükerrer olanları mı silsin? Bir de örneğin mükerrer 4 kayıt varsa 1'i kalacak 3'ümü silinecek? Yoksa tamamı mı?

mevcut kayıttaki mükerrer olan kayıtlar silinecek. 4 kayıt varsa 3 silinecek 1 kalacak
14/03/2019, 12:11

berduş

form üzerine ekleyeceğiniz "Btntekrarsil" adlı butona aşağıdaki kodu girip dener misiniz

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
14/03/2019, 12:23

ramazanke

(14/03/2019, 12:11)haliliyas yazdı: form üzerine ekleyeceğiniz "Btntekrarsil" adlı butona aşağıdaki kodu girip dener misiniz

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
teşkkürler tam ihtiyacım olan bu