Skip to main content

AccessTr.neT


Delete problemi

Delete problemi

Çözüldü #1
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.
.rar örnek.rar (Dosya Boyutu: 15,92 KB | İndirme Sayısı: 6)
nsahin, 16-11-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #2
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
AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
Cevapla
Çözüldü #3
sayın Alpeki hata veriyor.
nsahin, 16-11-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #4
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.
AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
Cevapla
Çözüldü #5
Sanırım problemi "Microsoft ActiveX Data Objects 2.X library" referansını eklememesi.
Cevapla
Çözüldü #6
herkese çok teşekkür ederim.
nsahin, 16-11-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task