AccessTr.neT
Metin Kutusunun İçindeki Değer Tabloya Eşitse Silsin - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Metin Kutusunun İçindeki Değer Tabloya Eşitse Silsin (/konu-metin-kutusunun-icindeki-deger-tabloya-esitse-silsin.html)

Sayfalar: 1 2

Metin Kutusunun İçindeki Değer Tabloya Eşitse Silsin - SeferŞANLI - 26/03/2020

Metin kutusunun içindeki kaydı silebilir miyiz.? Şöyle kodu çalışmama entegre etmek istiyorum?

metin kutusunun adı: txtadsoyad
Tablo adı: tbl_ogrenciler
tablodaki alan adi: adi_soyadi 


Dim GItem As Variant



For Each GItem In txtadsoyad.ItemsSelected





    If MsgBox(Me.txtadsoyad(GItem) & " listeden silinsin mi?", vbQuestion + vbYesNo) = vbYes Then

        DoCmd.SetWarnings False

        DoCmd.RunSQL "DELETE adi_soyadi FROM tbl_ogrenci WHERE (((adi_soyadi)='" & Me.txtadsoyad.ItemData(GItem) & "'))"

        

        DoCmd.SetWarnings True



    End If



Next GItem


Cvp: Metin Kutusunun İçindeki Değer Tabloya Eşitse Silsin - SeferŞANLI - 26/03/2020

ItemsSelected olayı liste kutusuna ait bir olay. Ama metin kutusunda nasıl bir yol izliyoruz.

Cvp: Metin Kutusunun İçindeki Değer Tabloya Eşitse Silsin - SeferŞANLI - 26/03/2020 

  If MsgBox(Me.txtadsoyad & " listeden silinsin mi?", vbQuestion + vbYesNo) = vbYes Then

        DoCmd.SetWarnings False

        DoCmd.RunSQL "DELETE adi_soyadi FROM tbl_ogrenci WHERE (((adi_soyadi)='" & Me.txtadsoyad & "'))"

        

        DoCmd.SetWarnings True



    End If
Böyle bir düzenlemede nasıl bir açık oluşur. Bu şekilde düzenlediğimde kod çalışıyor.

aslında benim öğrenmek istediğim olay şu. form üzerinde olmayan bir liste kutusuna çift tıklanarak veriler formdaki nesnelere getiriliyor. Buradan kişiyi silmek istiyorum. En doğru yol nasıl olur.

Cvp: Metin Kutusunun İçindeki Değer Tabloya Eşitse Silsin - feraz - 26/03/2020

Merhaba.En sondaki koda görede olur lakin birden fazla ayn adsoyad varsa alanda hepsi silinir yani 
ahmet
Ahmet
Gibi ise ikiside silinir.Onun için benzersiz alan için yapılmalı.Eğer otomatik sayı alanı varsa en iyisi o olur.

Birde runsql değilde tam bilmiyorum 
currentdb.execute(tam yazdımmı bilmiyorum) bununla delete yaparsanız setWarnings olaylarına gerek kalmaz.

Cvp: Metin Kutusunun İçindeki Değer Tabloya Eşitse Silsin - ozanakkaya - 26/03/2020

Merhaba, bahsi geçen liste kutusundaki seçili verinin silinmesi sağlanabilir, ancak olmayan liste kutusunun çift tıklanma olayını anlayamadım.

Cvp: Metin Kutusunun İçindeki Değer Tabloya Eşitse Silsin - SeferŞANLI - 26/03/2020

Sayın OzanKaya: Dosyam ekdedir. İki Adet sorun var ve sizden tavsiye bekliyorum.
1. frm_ogrenciler formundan kayıtlı öğrencileri listele dedikten sonra frm_listeogrenci formuyla birlikte liste kutusu açılıyor. Çitf tıklama ile ilgili kayıta ulaşılıyor.Düzenle dedikten sonra kayıta bir iki ekleme yapıp kaydet deyince; doğal olarak mükerrer sorgulaması yapıp kayda izin vermiyor. BUNA nasıl bir çözüm bulmalıyım.
2. Silme komutunda bir problem var mı?

Sizden ricam bununla ilgilenebilir misiniz?