Access SQL   ›   ACCESS SORULARI VE ÖRNEK UYGULAMALARI   ›   ACCESS SORULARI   ›   Delete problemi

Delete problemi
assenucler
Kıdemli Üye >1000

*
Kayıt Tarihi: 21.03.2008
Toplam 154 konu açtı.
Toplam 2.119 yorum yaptı.
Toplam 11 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2019,
Beğeniler: 0 / 4
#7
02-12-2010, 18:59
Sayın Onur_can ve Taruz;

İyi akşamlar...

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

Sevgi ve saygılar..



  Bul
  Alıntı
Bu mesajı beğenenler:
onur_can
Kıdemli Üye >1000

*
Kayıt Tarihi: 01.01.2009
Toplam 150 konu açtı.
Toplam 5.511 yorum yaptı.
Toplam 261 puanı bulunmakta.
Beğeniler: 10 / 76
#8
03-12-2010, 12:36
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...



  Bul
  Alıntı
Bu mesajı beğenenler:
nsahin
Yeni Üye 15-40

*
Kayıt Tarihi: 06.01.2010
Toplam 5 konu açtı.
Toplam 22 yorum yaptı.
Toplam 0 puanı bulunmakta.
Beğeniler: 0 / 0
#9
03-12-2010, 14:09
sayın onur_can teşekkür ederim.



  Bul
  Alıntı
Bu mesajı beğenenler:
sondoter
Aktif Üye 40-100

*
Kayıt Tarihi: 05.06.2012
Toplam 13 konu açtı.
Toplam 48 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2007 TR,
Beğeniler: 0 / 0
#10
11-07-2012, 17:32 (En son düzenleme: 11-07-2012, 17:54 sondoter.)
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.



  Bul
  Alıntı
Bu mesajı beğenenler:
Berdan
Yeni Üye 1-15

*
Kayıt Tarihi: 11.07.2012
Toplam 2 konu açtı.
Toplam 9 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010 TR,
Beğeniler: 0 / 0
#11
11-07-2012, 17:53
sayın sondoter tabloyu yenilirseniz silindiğini görürsünüz o anki sildiği değerleri "#silindi" olarak yazıyor



  Bul
  Alıntı
Bu mesajı beğenenler:
sondoter
Aktif Üye 40-100

*
Kayıt Tarihi: 05.06.2012
Toplam 13 konu açtı.
Toplam 48 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2007 TR,
Beğeniler: 0 / 0
#12
12-07-2012, 17:36
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 (:



  Bul
  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