Private Sub Sil_Click()
On Error Resume Next
Dim sayi As Integer
Dim rst As ADODB.Recordset

    ' Kaç tane kayıt olduğunu saysın
    sayi = CurrentDb.OpenRecordset("tablo").RecordCount
    

Set rst = New ADODB.Recordset
    
    rst.ActiveConnection = CurrentProject.Connection
    rst.CursorType = adOpenDynamic
    rst.CursorLocation = adUseClient


    rst.Open "tablo", , adOpenKeyset, adLockOptimistic, adCmdTable

    For i = 1 To sayi - 5
    
        rst.MoveNext
        Me.Bookmark = rst.Bookmark
        'DoCmd.SetWarnings False
        DoCmd.RunCommand acCmdDeleteRecord
        'DoCmd.SetWarnings True
        ' Eğer kayıt silerken uyarı almak istemiyorsanız SetWarnings olan iki satırdaki tek tırnak işaretini silin
    Next i

rst.Close
    
    
End Sub