userform sorunu

[apobaba77]

forumdan yararlanarak userform aracılığı ile bir personel veritabanı oluşturdum.ancak userform üzerindeki kaydet,yeni kayıt ,sil ve değiştir butonları sağlıklı çalışmıyor.özellikle değiştir butonu combobox ve seçenek kutularındaki değişiklikleri yapmıyor.hata da vermiyor ama değişiklik yapmıyor.nedenini bulamadım.yardım edebilirmisiniz.teşekkürler

 

[ExcelF1]

Kodlamanız çok ama çok uzun. Hatayı aramaya başlamadan önce benim Size tavsiyelerim,

1. Userform üzerindeki görselliği ilk etapta bir kenara bırakın. Zira form açılırken onca nesneyi yeniden biçimlendirmek userform açılışını geciktiriyor ve bu hoş olmuyor. + bir hatayı düzeltmek için frame'ler içinde nesne aramak zorunda kalıyoruz. Nesneler üst üste bindirilmiş vaziyette.
2. Özellikle kısa kodlamalar yapmak için, For - Next döngüsü hakkında detaylı bir araştırma yapmanızı öneririm.

En basitinden 1 örnek ben vereyim.

100 textbox nesneniz olduğunu düşünün. Hepsini sıra ile sayfaya yan yana kayıt yapacaksınız. Kodunuz nasıl olur ?
- Sizin yazdığınız şekilde ;

[A1] = Textbox1
[B1] = Textbox2
[C1] = Textbox3

.... gibi 100 tane kod satırı.

- For Next döngüsü ile,

Range("A1").Select
For a = 1 to 100
Activecell.offset(0,-1) = Controls("Textbox" & a)
Next a

'sadece 4 satır.



Aynı şekilde bu textboxların yeni veri girişi için temizlendiğini düşünün.

Textbox1 = ""
Textbox2 = ""
Textbox3 = ""

gibi yine 100 satır.

For Next ile,

For a = 1 to 100
Controls("Textbox" & a) = ""
Next a

'sadece 3 satır.

Kolay gelsin.

 

[apobaba77]

teşekkürler hocam ama şimdilik o konular beni aşar