Merhaba,
sorgu ile ana tablodan aynı kayıtları da otomatik olarak silmek istiyorum.
örnek ektedir

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