Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
02/12/2010 18:15
Konu Sahibi
nsahin
Yorumlar
5
Okunma
2079
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

nsahin

Aktif Üye
 181
 19
 16/11/2009
64
 Bursa
 
 Ofis 2007
 19/11/2018,12:48
Çözüldü 
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ı: 5)
nsahin, 16-11-2009 tarihinden beri AccessTr.neT üyesidir.

Kullanici Avatari

alpeki99

Uzman
OL....
 38
 6.138
 162
 29/10/2008
 Bursa
 Yazılım Geliştirici
 Ofis 2010 32 Bit
 24/11/2018,10:13
Çözüldü 
Sil isimli butonun tıklanma olayı aşağıdaki gibi olursa kayıtları son beşi hariç silecektir.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
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.

Kullanici Avatari

nsahin

Aktif Üye
 181
 19
 16/11/2009
64
 Bursa
 
 Ofis 2007
 19/11/2018,12:48
Çözüldü 
sayın Alpeki hata veriyor.


nsahin, 16-11-2009 tarihinden beri AccessTr.neT üyesidir.

Kullanici Avatari

alpeki99

Uzman
OL....
 38
 6.138
 162
 29/10/2008
 Bursa
 Yazılım Geliştirici
 Ofis 2010 32 Bit
 24/11/2018,10:13
Çözüldü 
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.

Kullanici Avatari

ozanakkaya

Kurucu
OZ.... AK....
 39
 11.608
 469
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
Çözüldü 
Sanırım problemi "Microsoft ActiveX Data Objects 2.X library" referansını eklememesi.


"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 

Kullanici Avatari

nsahin

Aktif Üye
 181
 19
 16/11/2009
64
 Bursa
 
 Ofis 2007
 19/11/2018,12:48
Çözüldü 
herkese çok teşekkür ederim.


nsahin, 16-11-2009 tarihinden beri AccessTr.neT üyesidir.


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Access Hazır Satış Database De Müşteri Listesi -Form Bağlantı Problemi Erkan7450 2 90 16/11/2018, 18:05
Son Yorum: Erkan7450
Çözüldü Ekleme Sorgusu Problemi notrino 6 161 31/10/2018, 18:34
Son Yorum: ozanakkaya
Çözüldü Nz0 Problemi notrino 3 140 23/10/2018, 14:40
Son Yorum: Allback
Çözüldü Dosya Yolu Problemi notrino 2 148 03/10/2018, 20:26
Son Yorum: notrino
Çözüldü Zengin Metin Problemi notrino 3 131 28/09/2018, 14:57
Son Yorum: ozanakkaya

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2018 MyBB Group.