Skip to main content

AccessTr.neT


Excel Vba İle Userform Üzerinden Kayıt Silme Hakkında.

Oğuz Türkyılmaz
Oğuz Türkyılmaz
27
2252

Excel Vba İle Userform Üzerinden Kayıt Silme Hakkında.

#7
(25/04/2021, 18:51)berduş yazdı: Silme kodundan sonra .tag="" gibi boşaltma kodunun eklenmesi yeterli olmaz mi?
Sizce tag hangi durumlarda sorun çıkarabilir @feraz hocam?
Birazdan anlatayım abey.
Cevapla
#8
Abey gifi izlerseniz sanırım anlttığımı anlarsınız.
Combodan seçip sil yapınca siliyor.İkinci olarak combodan seçilmeyip sile basıncada son satırdaki boş satır noyu buluyor onun için demiştim aslında.
onun çözümü içinde alttaki kod ile değiştirilebilirdi 2.mesajdaki ilgili satır aslında ama içime kuşku düştü.
Yani alttaki kod ile değişincede sorun olmaz heralde.Birde bazen combolara tasarım modunda tag verilmek zorunda kalınıyor belki kod çalışınca özelliklerdende değiştirebilir diye düşündüm Img-grin

[Resim: zzz.gif]

If ComboBox_FirmaUnvani.Tag = "" Or TextBox_ID.Value = "" Then
Cevapla
#9
        .Unprotect "171717"
.Rows(ComboBox_FirmaUnvani.Tag).EntireRow.Delete
ComboBox_FirmaUnvani.Tag=""'<==eklenmesi gereken satır
.Protect "171717"
benim kastettiğim burada tag boş olduğunda silme işlemi iptal edilebilir
Cevapla
#10
(25/04/2021, 20:08)berduş yazdı:
        .Unprotect "171717"
        .Rows(ComboBox_FirmaUnvani.Tag).EntireRow.Delete
        ComboBox_FirmaUnvani.Tag=""'<==eklenmesi gereken satır
        .Protect "171717"
benim kastettiğim burada tag boş olduğunda silme işlemi iptal edilebilir
O benimde aklımdaydı.Mesajda yazdığım gibi düşüncemi söyledim abey.
Artık oğuz abey hangisini kullanırsa seçim onun.

(25/04/2021, 20:08)berduş yazdı:
        .Unprotect "171717"
        .Rows(ComboBox_FirmaUnvani.Tag).EntireRow.Delete
        ComboBox_FirmaUnvani.Tag=""'<==eklenmesi gereken satır
        .Protect "171717"
benim kastettiğim burada tag boş olduğunda silme işlemi iptal edilebilir
Ekledim gifte gösterdim ilkinde yine olmuyor ikici de bos mesaj veriyor.

[Resim: do.php?img=10957]
Cevapla
#11
.Rows(ComboBox_FirmaUnvani.Tag).EntireRow.Delete
ComboBox_FirmaUnvani.Tag=""'<==eklenmesi gereken satır

Bu şekilde düzenledim. Sadece combodan firma seçip işlem gerçekleştikten sonra boş user formda tekrar sil basınca boş formda sanki işlem yapmış gibi veriler silinecek mesajını veriyor ve boş formda sanki silme işlemi gerçeleştiriyor gibi davranış gösteriyor ve eğer tekrar boş formda 2.defa  sile basarsanız bu defa kayıt silinecek mesajını verdikten sonra kayıt bulunamadı mesajını veriyor. Kayıt bulunamadı mesajını form boşken Kayıt Sil butonuna ilk basışta da vermesini sağlayabilirsek daha iyi olur ama böylede kullanabilirim sorun yok.
Access Çekirgesi 
[Resim: img-cray.gif]


Son Düzenleme: 25/04/2021, 21:06, Düzenleyen: Oğuz Türkyılmaz.
Cevapla
#12
5.mesajdakini kullanın bence abey.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task