UserForm Üzerinden Veri Güncelleme

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

VolkanCan

Kullanıcı
Katılım
28 Tem 2022
Mesajlar
120
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: 
İndirmek için giriş yapmanız gerekmektedir.
(19 satır)
 
ToggleButton ile Korumalı Sayfada Gizleme ve Gösterme
Döneme Göre Farklı Sayfalardan Veri Çekme
Çözüm
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...
Tarihe göre sırala Oylamaya göre sırala
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

Oyla 0 Olumsuz oyla
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.
 
Oyla 0 Olumsuz oyla
Çözüm
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst Alt