Merhaba,
sorgu ile ana tablodan aynı kayıtları da otomatik olarak silmek istiyorum.
örnek ektedir
Tekrarlayan Data Temzileme
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ı?
(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
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:11)haliliyas yazdı: form üzerine ekleyeceğiniz "Btntekrarsil" adlı butona aşağıdaki kodu girip dener misinizteşkkürler tam ihtiyacım olan bu
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
Konuyu Okuyanlar: 1 Ziyaretçi