Delete problemi
#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.


Eklenti Dosyaları
.rar   örnek.rar (Boyut: 15,92 KB / İndirilme: 58)



  Alıntı
Bu mesajı beğenenler:
#2
Merhaba Sayın nsahin
Bahsettiğin işlemi basit bir For.... Next döngüsü ile gerçekleştirebilirsin.
Formunuzdaki Silme Butonunun Click Olayına aşağıdaki kodu yazın;
Visual Basic
  1. Dim Sil
  2. On Error GoTo can
  3. If MsgBox("Son 5 Kayıt Silinecek Emin misiniz?", vbYesNo, "Kayıt Silme") = vbYes Then
  4. DoCmd.SetWarnings False
  5. DoCmd.GoToRecord , , acLast
  6. For Sil = 1 To 5
  7. DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
  8. DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
  9. DoCmd.GoToRecord , , acPrevious
  10. Next Sil
  11.  
  12. End If
  13. ref:
  14. DoCmd.SetWarnings True
  15. Exit Sub
  16.  
  17. can:
  18. MsgBox Err.Description
  19. Resume can



silme butonuna bastığınızda en son kaydedilen 5 kayıtı siler.

iyi çalışmalar...



  Alıntı
Bu mesajı beğenenler:
#3
Sayın onur_can teşeekkür ederim. Benim istediğim biraz farklıydı. Sil butununa bastığımızda her zaman son 5 kayıt kalacak (son 5 kayıtı silmeyacak) varsa ilk kayıtlar silinecek. İlginize teşekkür ederim.



  Alıntı
Bu mesajı beğenenler:
#4
Merhaba..

Düğmenize uygulayınız..:

Visual Basic
  1. Dim trz As String
  2. trz = "delete ID from tablo where " _
  3. & "ID not in (select top 5 ID from tablo as trz order by ID desc)"
  4. CurrentDb.Execute trz
  5. Requery





  Alıntı
Bu mesajı beğenenler:
#5
Sayın Taruz hata veriyor.



  Alıntı
Bu mesajı beğenenler:
#6
Ben hata almıyorum..:



Eklenti Dosyaları
.rar   örnek1.rar (Boyut: 19,99 KB / İndirilme: 69)



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [SORGU] Delete Ve Inner Join Bir Arada Kullanmak esmerim33 5 228 17-02-2023, 09:44
Son Mesaj: esmerim33
  Yoklama Defterinde Ay Ve Yıl Problemi omergenc7 16 635 22-09-2022, 13:54
Son Mesaj: omergenc7
  32bit - 64bit Problemi adnnfrm 19 1.369 11-03-2021, 21:21
Son Mesaj: adnnfrm
  [SORGU] Sorgulamada Büyük Ve Küçük Harf Problemi Proteus 2 507 21-08-2020, 10:22
Son Mesaj: Proteus
  [SORGU] combobox tümü seçeneği problemi dayday 12 2.537 19-07-2020, 11:09
Son Mesaj: fmltd
  [VBA] Silme Problemi Hk. aktepes 2 445 10-05-2020, 00:14
Son Mesaj: aktepes
  Unon Sorguda Order By Desc Problemi accessman 1 370 23-03-2020, 16:38
Son Mesaj: onur_can
  Tablo Bağlama Problemi alienerji 8 898 17-01-2020, 01:13
Son Mesaj: alienerji

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi