+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Delete problemi (/konu-delete-problemi.html)
Delete problemi - nsahin - 02/12/2010
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.
Cvp: Delete problemi - alpeki99 - 02/12/2010
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
Cvp: Delete problemi - nsahin - 02/12/2010
sayın Alpeki hata veriyor.
Cvp: Delete problemi - alpeki99 - 02/12/2010
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.
Cvp: Delete problemi - ozanakkaya - 02/12/2010
Sanırım problemi "Microsoft ActiveX Data Objects 2.X library" referansını eklememesi.
Cvp: Delete problemi - nsahin - 03/12/2010
herkese çok teşekkür ederim.