Dim Sil
On Error GoTo can
    If MsgBox("Son 5 Kayıt Silinecek Emin misiniz?", vbYesNo, "Kayıt Silme") = vbYes Then
      DoCmd.SetWarnings False
      DoCmd.GoToRecord , , acLast
For Sil = 1 To 5
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
DoCmd.GoToRecord , , acPrevious
Next Sil
 
    End If
ref:
    DoCmd.SetWarnings True
    Exit Sub
 
can:
    MsgBox Err.Description
    Resume can

Dim trz As String
trz = "delete ID from tablo where " _
   & "ID not in (select top 5 ID from tablo as trz order by ID desc)"
CurrentDb.Execute trz
Requery