listeye cift tiklayinca tiklanan veri silinsin

moskovic · 14-06-2010, 15:36

merhabalar.

liste kutusunda, listelenmis kayitlarin, herhangibirsinin uzerine cift tiklandiginda o kaydin silinmesi icin,

listenin, "cift tiklandiginda" olayina nasil bir kod yazmam gerekiyor ?

Taruz · 14-06-2010, 15:53

Visual Basic
dim kriter 
kriter = liste_adi 
Currentdb.execute "delete from tablo_adi where kayıt_numarası= " & kriter & ""
liste_adi.requery

Merhaba..

Silme işlemini bu prosedürü kullanarak yapabilirsiniz..

moskovic · 14-06-2010, 16:25

Hocam kodu yorumlayamadim.

ornek olmasi acisindan ekteki dosyada donem formuna uygulayabilirmisiniz ?

iyi calismalar.

Taruz · 14-06-2010, 16:55

Prosedürü biraz daha geliştirerek, seçenekli halde kullanırsak yanlışlıkla silinmesinin de önüne geçeriz..:

Visual Basic
Dim kriter
kriter = Liste3
If MsgBox("Listede seçili olan dönem " & "(" & kriter & ") " & _
"silinecek. Emin misiniz?", vbYesNo) = vbYes Then
CurrentDb.Execute "delete from oddon where odonemi= '" & kriter & "'"
Liste3.Requery
End If

moskovic · **Kayıt Tarihi:** 16.01.2010

Hocam [Donem] formu icin yaptigimizda gayet guzel caliiyor elinize saglik. ancak ayni islemi [Blok] formunda uygulamak icin asagidaki kodlari yazmama ragmen hata veriyor sorun ne olabilir acaba ?

Dim kriter
kriter = Liste3
If MsgBox("Listede seçili olan blok " & "(" & kriter & ") " & _
"silinecek. Emin misiniz?", vbYesNo) = vbYes Then
CurrentDb.Execute "delete from Blok where Blok_Tanimi= '" & kriter & "'"
Liste3.Requery
End If

Taruz · 15-06-2010, 17:23

Merhaba..

Kriter için kullandığınız blok tanımı alanını tabloda olduğu gibi yani boşluklu (tabloda alan isimleri oluştururken kelime aralarında boşluk bırakmamanızı öneririm.) kullanmanız gerek..

Visual Basic
Dim kriter
kriter = Liste3
If MsgBox("Listede seçili olan blok " & "(" & kriter & ") " & _
"silinecek. Emin misiniz?", vbYesNo) = vbYes Then
CurrentDb.Execute "delete from blok where [Blok Tanimi]= '" & kriter & "'"
Liste3.Requery
End If

Benzer Konular...
Konu:		Yazar	Cevaplar:	Gösterim:	Son Mesaj
	[FORM] Altformda Kayıt Tıklayınca Sürekli Ilk Kayda Gidiyor.	M_Kemal_Askeri	6	197	11-04-2026, 02:28 Son Mesaj: M_Kemal_Askeri
	Butona Tıklayınca Hücredeki Veri Görünsün	ankaram	2	363	30-11-2023, 15:00 Son Mesaj: ankaram
	Bir Listbox Ta Cift Tiklama Ile Ikinci Listbox A Bırıktırme	tarkanaykın	3	627	27-02-2022, 13:42 Son Mesaj: dsezgin
	Listbox çift Tıklama Olayında Kayda Göre Pencere Açma Hk.	volki3301	1	672	01-06-2021, 15:00 Son Mesaj: onur_can
	[FORM] Liste kutusu çift tıklama faklı formda kayıt bulma...	rafetgulmez	7	8.238	06-04-2021, 13:42 Son Mesaj: kamil_55
	Açılır Listeye Güncelleme Sonrasında 2 Koşul Kod Ekleme	haziran4	2	589	20-03-2021, 17:30 Son Mesaj: haziran4
	[VBA] Sürekli Form çift Tıkla Açma	benuva	2	656	03-02-2021, 13:14 Son Mesaj: benuva
	Formdaki Listeye Veri Almak	m_demir	2	545	22-05-2020, 16:12 Son Mesaj: m_demir

Oturum Aç




Beni Hatırla Şifremi Unuttum?

Access SQL