AccessTr.neT

Tam Versiyon: Delete problemi
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Ek dosyadaki form formundaki sil butonuna bastığımda son 5 kayıt kalacak ve diğer kayıtları silecek. bunu yapamadım yardımcı olabilir misiniz? İyi çalışmalar.
Sil isimli butonun tıklanma olayı aşağıdaki gibi olursa kayıtları son beşi hariç silecektir.


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
sayın Alpeki hata veriyor.
Hata nedir? Yukarıdaki kodların hepsini birden butonun tıklanma olayına yapıştırmadınız değil mi? Yukarıdaki kodda butonun tıklanma olayının tüm kodları var. Siz ilk ve son satır hariç hepsini yapıştıracaksınız.
Sanırım problemi "Microsoft ActiveX Data Objects 2.X library" referansını eklememesi.
herkese çok teşekkür ederim.