Textbox checkbox ilişkisi

[mekuka]

bir satırda 1 textbox 3 checkbox var. 2.satıra veri girilebilmesi için 1.satırdaki textboxa veri girilmiş olması ve checkboxlardan mutlaka birisinin işaretlenmiş olması gerekir. Aksi takdirde 2. satıra geçmeye imkan vermeyen bir koda ihtiyacım var.

Şimdiden teşekkürler...

 

[mekuka]

bir satırda 1 textbox 3 checkbox var. 2.satıra veri girilebilmesi için 1.satırdaki textboxa veri girilmiş olması ve checkboxlardan mutlaka birisinin işaretlenmiş olması gerekir. Aksi takdirde 2. satıra geçmeye imkan vermeyen bir koda ihtiyacım var.

Şimdiden teşekkürler...

 

[Levent Menteşoğlu]

Bir örnek dosya eklermisiniz.

 

[mekuka]

Dosyayı bir inceleyip yardımcı olursanız sevinirim...

 

[Levent Menteşoğlu]

Bu satırlar sadeced iki sıramı yoksa aşağı doğru devam edecekmi?

 

[mekuka]

15 veya 20 satır olacak şekilde düzenleyeceğim. Ama üstadım siz 2 satırmış gibi kodu aktarırsanız ben 20 satıra kopyalarım. Teşekkürler...

 

[Levent Menteşoğlu]

Dosyanızda biraz değişiklik yaparak checkbox yerine optionbutton kullandım. Ayrıca her satırdaki nesneler ayrı ayrı bir frame içine alınarak gruplandırılmıştır. Bir sonraki satırın aktif olması için bir önceki satırdaki tüm verilerin doldurulmuş olması gereklidir. Ayrıca kodlarda tasarruf sağlamak amacıyla da class module kullanılmıştır. Her nesneye verdiğim isimlere ve option buttonlara verdiğim grup isminin class modülde kullanımına dikkat edin.

 

[mekuka]

Kullanılan optionbutton daki kliği kaldıramıyorum. 2. ve sonraki satırlarda kliği kaldırınca bir üst satır aktif olup, klik kaldırılan satır deaktif olabilir mi?

 

[Levent Menteşoğlu]

Optionbuttondaki işareti kaldıramazsınız. Bunu ancak başka bir butona kod yazarak yapmak mümkün. Eğer her seferinde tüm satırların silinmesi siniz için yeterli ise userform üzerine bir commandbutton yerleştirin ve aşağıdaki kodu bu butonun click olayına yazın. Hayır ben her satırın ayrı ayrı iptal edilebilmesini istiyorum derseniz, form üzerine butonlar ilave edeceğim yada checkboxa geri döneceğiz. Bu durumdada şunu sormam gerekir, kişi ortada bir satırdaki işareti kaldırdığında altındaki diğer satırlar ne olacaktır.

Private Sub CommandButton2_Click()
Unload Me
UserForm1.Show
End Sub