Merhabalar Sn.
@dimple
ExcelDestek.com'a hoş geldiniz.
Aday Bul düğmesindeki işlemde mesaj sonrası Textbox'ların temizlenmesi için aşağıdaki işlemleri yapınız.
** Yapacağımız işlemleri nedenleri ile açıklamaya çalışayım.
-- Öncelikle mesaj kutusunda evet ya da hayır düğmesine tıkladığımız zaman işlem yapabilmek için mesaj kutusunu bir değişkene eşitlememiz gerekiyor. Bu nedenle
VBA:
Görüntülemek için giriş yapmanız gerekmektedir.
(1 satır)
bu satırı aşağıdaki satır ile değiştiriniz.
VBA:
Görüntülemek için giriş yapmanız gerekmektedir.
(1 satır)
Burada benim seçtiğim değişken ismi
soru , bunu istediğiniz gibi değiştirebilirsiniz.
-- Mesaj kutusundaki evet ya da hayır düğmesi tıklandığında bu değişkene bir atama olacak. Yapılan bu işlemi de koşul içinde kullanıp istediğimiz işlemi yaptırabiliriz.
** İstediğiniz işlem Hayır tıklanırsa, Textbox'ların içeriği temizlensin.
Bu işlemin kod karşılığı aşağıdaki gibidir.
VBA:
Görüntülemek için giriş yapmanız gerekmektedir.
(6 satır)
Temizleme işlemi için temel olarak
TextBox1.Text = "" kullanıldığı gibi
TextBox1.Text = Empty de kullanılabilir.
Ancak temizlenmesi gereken nesne sayısı fazla ise döngü kullanmanız daha uygun olur.
-- Diğer bir işlem ise Temizleme işleminden sonra imlecin istenilen TextBox'a gelmesi. Bunu sağlayan komut
SetFocus ve kullanımı aşağıdaki gibidir.
VBA:
Görüntülemek için giriş yapmanız gerekmektedir.
(1 satır)
Yukarıdaki işlemler sonrası oluşacak kod satırları aşağıdaki gibidir.
VBA:
Görüntülemek için giriş yapmanız gerekmektedir.
(9 satır)
-- Bir sonraki işlem ise kayıtların Listbox'ta görünmesi.
UserForm_Initialize ile form açıldığı anda kayıtları Listbox'a alıyorsunuz.
Kaydet kodlarının en altına bu satırı eklediğiniz zaman kaydetme işleminden sonra verilerin yüklenmesi için
form yenilenir.
--
Kaydet kodlarında
End Sub satırının üzerine
UserForm_Initialize satırını ekleyiniz.