Delete problemi
Tarih
02/12/2010 18:15
Konu Sahibi
nsahin
Yorumlar
5
Okunma
1690
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



nsahin
Destek Ekibi
Kullanici Avatari
Destek
181
16/11/2009
64
Bursa
Ofis 2007
12/07/2016,09:29
Çözüldü 
Sponsor Reklam
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.



Ek Dosyalar
.rar   örnek.rar (Dosya Boyutu: 15,92 KB / İndirme Sayısı: 5)
nsahin, 16-11-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

alpeki99
Yeniden başlayabilmek...
Kullanici Avatari
Uzman
O....
6.023
29/10/2008
Ordu
Ofis 2013 32 Bit
Dün,14:08
Çö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.
Cevapla

nsahin
Destek Ekibi
Kullanici Avatari
Destek
181
16/11/2009
64
Bursa
Ofis 2007
12/07/2016,09:29
Çözüldü 
Sponsor Reklam
sayın Alpeki hata veriyor.
nsahin, 16-11-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

alpeki99
Yeniden başlayabilmek...
Kullanici Avatari
Uzman
O....
6.023
29/10/2008
Ordu
Ofis 2013 32 Bit
Dün,14:08
Çö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.
Cevapla

ozanakkaya
sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.306
29/01/2008
Denizli
Polis Memuru
Ofis 2010 32 Bit
Çözüldü 
Sponsor Reklam
Sanırım problemi "Microsoft ActiveX Data Objects 2.X library" referansını eklememesi.
Cevapla

nsahin
Destek Ekibi
Kullanici Avatari
Destek
181
16/11/2009
64
Bursa
Ofis 2007
12/07/2016,09:29
Çözüldü 
herkese çok teşekkür ederim.
nsahin, 16-11-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  64 Bit Ofiste MouseHook, MouseWheel Problemi zzr 4 71 18/02/2017, 09:48 zzr
  #Hata ve #Boyut! Problemi kadirdursun 8 155 11/01/2017, 12:29 kadirdursun
  Access 2016 - Grafik Problemi av.fatihberber 5 266 07/01/2017, 14:53 av.fatihberber
Star Form Açıldığında "Parametre Değerini Gir" Problemi rmznaydemr 5 258 13/12/2016, 22:06 atoz112
  Form Açıldığında Yeni Kayda Gitme Problemi ferhatozge 6 316 30/11/2016, 15:53 ferhatozge


Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya