(02-12-2010, 14:49)onur_can demiş ki: Merhaba Sayın nsahin
Bahsettiğin işlemi basit bir For.... Next döngüsü ile gerçekleştirebilirsin.
Formunuzdaki Silme Butonunun Click Olayına aşağıdaki kodu yazın;

Visual Basic

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

silme butonuna bastığınızda en son kaydedilen 5 kayıtı siler.

iyi çalışmalar...

MERHABA UZUN AMA İYİ BİR YÖNTEM AMA Örn: 13 Kayıt var 10'unu sildik geriye 3 kayıt kaldı onlarıda tekrar son 5 kayıt silmek için silme butonuna tıkladığımızda sonsuz bir döngüye giriyor bunun önüne nasıl geçebiliriz ? Teşekkürler.