Tekrarlayan Data Temzileme - Baskı Önizleme

Tekrarlayan Data Temzileme - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Tekrarlayan Data Temzileme (/konu-tekrarlayan-data-temzileme.html)

Tekrarlayan Data Temzileme - ramazanke - 13/03/2019

Merhaba,

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

örnek ektedir

Cvp: Tekrarlayan Data Temzileme - ercansahin - 13/03/2019

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ı?

Cvp: Tekrarlayan Data Temzileme - ramazanke - 14/03/2019

(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

Cvp: Tekrarlayan Data Temzileme - berduş - 14/03/2019

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

Cvp: Tekrarlayan Data Temzileme - ramazanke - 14/03/2019

(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