UserForm Üzerinden Veri Güncelleme

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

Kısa Açıklama

UserForm Üzerinden Veri Güncelleme isimli başlıkta, ilgili işlemlere dair detaylar yer almaktadır.
Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe
Merhaba, UserForm üzerinde kaydet ve güncelleme butonlarından, güncelle (değiştir) butonu, ilk kayıt girişinde yanlışlıkla güncelle butonuna basarsanız kayıt yapıyor ama ID numarası vermediği için alfabetik sıra dahil karışıyor. Eğer, ilk kayıt girişi ise güncelle butonu kayıt yapmasın, "Lütfen..! ilk kayıt için kaydet tuşunu kullanın" mesajı versin. Acaba, bu kodlamayı nasıl aşağıda ki güncelle (değiştir) makrosu içerisine uygularız. Yani, ilk kayıt girişini güncelleme (değiştir) butonu kaydetmesin, sadece yapması gereken güncelleme (değiştirme) işlemini yapsın. Teşekkürler...

VBA:
Görüntülemek için giriş yapmanız gerekmektedir.
(19 satır)
 
Moderatörün son düzenlenenleri:
Merhaba, konu ile ilgili örnek dosya aşağıda eklenmiştir. Örnek dosya da, UserForm1 üzerinden, yeni (ilk) kayıt girişi yapıldıktan sonra, "DEĞİŞTİR" butonuna bastığınızda, aynı "KAYDET" butonu gibi kayıt yapmakta ama ID kodu, sıra numarası vermediği için çalışma sayfasında listenin en altında kayıt yaptığı için, liste karışmakta, alfabetik sıralama olmamakta ve sorun yaşanmaktadır. Yanlışlıkla ilk kayıt yapıldığında, değiştir butonuna bastığınızda yanlış ve hatalı kaydettiği için sorun yaşanmaktadır. Örnek Dosya üzerinden, Yeni Kayıt yaparak, "Değiştir" butonuna bastığınızda hata ve sorun görülecektir.

1. Eğer, "DEĞİŞTİR" butonu aynı zamanda, hem değişikliği, hem de kaydet işlemi yapacaksa, hatasız yapması (ID numarası ve alfabetik sıraya uygun) için "DEĞİŞTİR" kodunda revizyon yapılması,
2. Eğer bu uygun değilse, "DEĞİŞTİR" butonuna tıkladığımızda İLK ve YENİ KAYIT ise kaydet işlemini uygulamasın, (Yeni Kayıt İçin Kaydet Tuşunu Kullanınız..! şeklinde mesajla uyarsın.)
Yani, "DEĞİŞTİR" kodu, ya.., sadece değiştir işlemini yapsın, İLK YENİ GİRİŞ ise kaydetmesin, Ya da, İLK GİRİŞ kaydını, yapacaksa da hatasız yapsın.

Bu konuda yardımcı olursanız memnun olurum, saygılarımla...
 
Ekli dosyalar
1631034229234.webp

Yeni kayıt alanına tıkladığımızda TextBox20,TextBox21 nesnesi eksik olduğundan dolayı çalışmamaktadır.

Gelelim sorunuza. Güncelleme butonu sadece veri seçildiğinde aktif olarak çalışacak bir butondur. Bu nedenle form açılır açılmaz açık olmasının bir manası yoktur.

Aşağıdaki düzeltmeleri dosyanıza uygulayınız.

1. UserForm_Initialize() kod bloğunu bulunuz. End sub yazısından önce Label4.Enabled = False yazısını ekleyiniz.
2. Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) kod bloğunu bulunuz. Ve bu yazıdan hemen sonra Label4.Enabled = True yazısını ekleyiniz.


Böylece form açılır açılmaz değiştir butonunu tıklamasını kapattık. Ardından listboxda seçim yapıldığında değiştir butonun tıklanmasını aktif hale getirdik.
 
Moderatörün son düzenlenenleri:
Çözüm
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Geri
Üst