Delete problemi
#7
Sayın Onur_can ve Taruz;

İyi akşamlar...

Katkı ve paylaşımınız için teşekkürler..

Sevgi ve saygılar..



  Alıntı
Bu mesajı beğenenler:
#8
Merhaba;
Aşağıdaki koduda uygulayabilirsiniz,
Visual Basic
  1. Dim Sil, Silinecek
  2. Sil = DCount("*", "Tablo")
  3. On Error GoTo can
  4. If MsgBox("Son 5 Kayıta Kadar Silinecek Emin misiniz?", vbYesNo, "Kayıt Silme") = vbYes Then
  5. DoCmd.SetWarnings False
  6. For Silinecek = 1 To Sil
  7. Form.Requery
  8. DoCmd.GoToRecord , , acFirst
  9. DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
  10. DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
  11. If Silinecek = Sil - 5 Then End
  12. DoCmd.GoToRecord , , acNext
  13. Next Silinecek
  14. End If
  15. ref:
  16. DoCmd.SetWarnings True
  17. Exit Sub
  18.  
  19. can:
  20. MsgBox Err.Description
  21. Resume can



iyi çalışmalar...



  Alıntı
Bu mesajı beğenenler:
#9
sayın onur_can teşekkür ederim.



  Alıntı
Bu mesajı beğenenler:
#10
merhaba arkadaslar;

burda taruz beyin verdigi ornek uzeride, butonun click olayinda bulunan kodu ;
Visual Basic
  1. Dim trz As String
  2. trz = "delete ID from tablo where " _
  3. & "ID=" & Me.Metin13.Value
  4. CurrentDb.Execute trz
  5. Requery



seklinde degistirip kullanmayi denedm. ama kod calisinca tablodaki kayit field degerleri, silinmesi gerekirken; "#Silindi" olarak degisiyo. Kodu daha etkin nasil kullanabilrim acaba.

Iyi Calismalar...

---------------------------------------


Visual Basic
  1. DoCmd.RunSQL ("DELETE FROM tablo WHERE ID =") & Me.Metin13.Value
  2. Me.Requery



yukaridaki kod isimi gordu arkadaslar tesekkur ederim.



  Alıntı
Bu mesajı beğenenler:
#11
sayın sondoter tabloyu yenilirseniz silindiğini görürsünüz o anki sildiği değerleri "#silindi" olarak yazıyor



  Alıntı
Bu mesajı beğenenler:
#12
merhaba arkadaslar;

bu konuda kayıt silmeyi tartısıyoruz ancak size sormak istedigim konu su ki;
personel kayıtlarını silmeden once, silinecek kaydi, baska bir tabloya kopyalamak istiyorum. bununla ilgili kaynak kod yada bilgi paylasabilir misiniz.

iyi calismalar (:



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [SORGU] Dsum Yavaslik Problemi Serdarcann 1 208 10-10-2025, 01:08
Son Mesaj: dsezgin
  [SORGU] Delete Ve Inner Join Bir Arada Kullanmak esmerim33 5 592 17-02-2023, 09:44
Son Mesaj: esmerim33
  Yoklama Defterinde Ay Ve Yıl Problemi omergenc7 16 1.311 22-09-2022, 13:54
Son Mesaj: omergenc7
  32bit - 64bit Problemi adnnfrm 19 2.097 11-03-2021, 21:21
Son Mesaj: adnnfrm
  [SORGU] Sorgulamada Büyük Ve Küçük Harf Problemi Proteus 2 778 21-08-2020, 10:22
Son Mesaj: Proteus
  [SORGU] combobox tümü seçeneği problemi dayday 12 3.057 19-07-2020, 11:09
Son Mesaj: fmltd
  [VBA] Silme Problemi Hk. aktepes 2 647 10-05-2020, 00:14
Son Mesaj: aktepes
  Unon Sorguda Order By Desc Problemi accessman 1 616 23-03-2020, 16:38
Son Mesaj: onur_can

Foruma Git:


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