Sub Silgi()
Dim Kyt As Recordset
Set Kyt = CurrentDb.OpenRecordset("SELECT ana_tablo.id AS dd FROM ana_tablo LEFT JOIN (SELECT max(yardım_tarihi) AS DSZ FROM ana_tablo GROUP BY adı, soyadı, baba_adı)  AS Szg ON ana_tablo.yardım_tarihi = Szg.DSZ WHERE (((Szg.DSZ) Is Null))")
If Kyt.RecordCount = 0 Then Exit Sub
Kyt.MoveFirst
Do Until Kyt.EOF
CurrentDb.Execute "DELETE ana_tablo.* FROM ana_tablo WHERE ((ana_tablo.id)=" & Kyt!dd & ")"
Kyt.MoveNext
Loop
Kyt.Close
Set Kyt = Nothing
End Sub