Skip to main content

AccessTr.neT


Metin Kutusunun İçindeki Değer Tabloya Eşitse Silsin

Metin Kutusunun İçindeki Değer Tabloya Eşitse Silsin

Çözüldü #1
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
Cevapla
#2
ItemsSelected olayı liste kutusuna ait bir olay. Ama metin kutusunda nasıl bir yol izliyoruz.
Cevapla
#3
  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.
Cevapla
#4
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.
Cevapla
#5
Merhaba, bahsi geçen liste kutusundaki seçili verinin silinmesi sağlanabilir, ancak olmayan liste kutusunun çift tıklanma olayını anlayamadım.
Cevapla
#6
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?
.rar DİSİPLİN PROGRAMI - v1.rar (Dosya Boyutu: 92,76 KB | İndirme Sayısı: 2)
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da