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