CheckBox seçimine göre TextBox içeriğinin Temizlenmesi

[ocamsul]

Arkadaşlar herkese iyi haftalar. Sn: COST_CONTROL üsdadın vermiş olduğu örneğe CheckBox lar ekledim. 51. TextBox a aralarında virgül kullanmak kaydıyla istediğimiz TextBox un içeriğini temizleyebiliyoruz. Ancak bu işlemi CheckBox ların seçimine göre nasıl yapabiliriz? Yani hangi CheckBox lar seçili ise yanındaki TextBox un içerikleri yine butona basmak suretiyle temizlensin.

 

[Levent Menteşoğlu]

Öncelikle textbox ve checkboxların adlarındaki sayıların aynı olmasını sağlayın yani checkbox1 in karşısında textbox1, checkbox50 nin karşısında textbox50 olmalıdır. Sonrada aşağıdaki kodu butona kopyalayın.

Private Sub CommandButton1_Click()
For a = 1 To 50
If Controls("checkbox" & a) = True Then Controls("textbox" & a) = ""
Next
End Sub

 

[ocamsul]

Sn: leventm üsdat çok teşekkür ederim. tam olarak istediğim buydu.

 

[ocamsul]

Sn: leventm üsdat verdiğiniz örneği kendi çalışmamda denedim. Ancak; çalışmamda biraz yol kat ettiğim için kodlarınızı ekli şekilde uyguladığımda hata veriyor. Bu durumda ne yapabilirim. Zira çalışmam da içeriği temizlenmesi gereken TextBoxların arasında başka TextBoxlarda var.

 

[ocamsul]

Sn: leventm üsdat verdiğiniz örneği kendi çalışmamda denedim. Ancak; çalışmamda biraz yol kat ettiğim için kodlarınızı ekli şekilde uyguladığımda hata veriyor. Bu durumda ne yapabilirim. Zira çalışmam da içeriği temizlenmesi gereken TextBoxların arasında başka TextBoxlarda var.

sorunumun başka bir çözümü varmı dostlar?

 

[Levent Menteşoğlu]

Öncelikle textbox ve checkboxların adlarındaki sayıların aynı olmasını sağlayın yani checkbox1 in karşısında textbox1, checkbox50 nin karşısında textbox50 olmalıdır. Sonrada aşağıdaki kodu butona kopyalayın.

Yukarıda gerekli açıklamayı yapmıştım.

 

[ocamsul]

Sn: leventm son mesajımda örnek olarak da gösterdiğim gibi sorun çıkıyor. dediğinizi aynen yapmama rağmen ekli hata uyarısını veriyor.

 

[ocamsul]

Öneri bekliyorum arkadaşlar. toplamda 167 adet TextBox var. ancak temizlemesi gerekenler. ekranda da görüldüğü üzere son textler.

 

[ocamsul]

Private Sub CommandButton1_Click()
For a = 1 To 50
If Controls("checkbox" & a) = True Then Controls("textbox" & a) = ""
Next
End Sub

bu yoldan daha uzun bir yol var ise onada razıyım. önemli olan checkbox seçili ise yanında olan TextBox un içeriğinin temizlenmesi.

 

[Levent Menteşoğlu]

Sn ocamsul

Ben neden checkbox ve yanındaki textboxun ismindeki sayılar aynı olsun diyorum çünkü bu şekilde işaretli checkboxın yanındaki textboxı bulmak kolay olacaktır. Aksi takdirde her checkbox için ayrı kod yazmanız gerekecekki buda üç satırlık çözümü elli satırda çözmeniz demektir. Bu durumda aşağıdaki gibi yapabilirsiniz.

if checkbox1.value=true then textbox1=""
if checkbox2.value=true then textbox2=""
.
.
.
.

 

[ocamsul]

Üsdat verdiğiniz örneği anladım, Ancak; 167 tane textBox çalışmamda vardı ama checkbox kullanarak ilgili TextBoxların içeriğini temizleyebilme işini sonradan ekledim ve 167 olan TextBox sayısına eşit 167 tane checkbox yok. Ben bu çalışmada sadece TextBxlara göre checkbox ların numaralarını değiştirdim. Ama olmadı. Verdiğiniz örneği kendime uyarlıyacağım. Çok teşekkür ederim.

 

[Korhan Ayhan]

Selamlar,

Çalışmanızdaki içeriği silinecek textboxlar ile checkboxların nolarını aynı yaptıktan sonra kodu aşağıdaki şekilde denermisiniz.

Private Sub CommandButton1_Click()
    On Error Resume Next
    For X = 1 To 167
    If Controls("CheckBox" & X) = True Then Controls("TextBox" & X) = ""
    Next
End Sub

 

[ocamsul]

Selamlar,

Çalışmanızdaki içeriği silinecek textboxlar ile checkboxların nolarını aynı yaptıktan sonra kodu aşağıdaki şekilde denermisiniz.

Private Sub CommandButton1_Click()
    On Error Resume Next
    For X = 1 To 167
    If Controls("CheckBox" & X) = True Then Controls("TextBox" & X) = ""
    Next
End Sub

Sn: COST_CONTROL üsdat selamlar. verdiğiniz kod tam istediğim gibi çok teşekkür ederim. Budur yani. Ayrıca Sn: leventm üstadımada çok teşekkür ederim. birde ufak bir soru bu kod içerisinde işlem tamamlandıltan sonra seçilmiş CheckBox ların seçiminin kaldırılmasını nasıl yapabilirim. Birde işlemi doğru yapıyor ama içeriği temizlenen textboxlardan önceki tüm textboxlarında içeriğini temizliyor. Örneğin CheckBox25 i seçince TextBox25 içeriği temizleniyor ama bu textboxdan başka TextBox20.21.22.23 nolu TextBoxlarında içeriğini temizliyor. Bu neden oluyor.

 

[Korhan Ayhan]

Selamlar,

Kodu aşağıdaki şekilde değiştirip denermisiniz.

Private Sub CommandButton1_Click()
    On Error Resume Next
    For X = 1 To 167
    If Controls("CheckBox" & X) = True Then Controls("TextBox" & X) = ""
    Controls("CheckBox" & X) = False
    Next
End Sub

 

[ocamsul]

SN: COST_CONTROL çok teşekkür ederim. Ancak;

işlemi doğru yapıyor ama içeriği temizlenen textboxlardan önceki tüm textboxlarında içeriğini temizliyor. Örneğin CheckBox25 i seçince TextBox25 içeriği temizleniyor ama bu textboxdan başka TextBox20.21.22.23 nolu TextBoxlarında içeriğini temizliyor. Bu neden oluyor.

 

[Korhan Ayhan]

Selamlar,

Örnek dosyanızı eklerseniz daha faydalı olacaktır.

 

[ocamsul]

SN: COST_CONTROL üsdat örnek ektedir. İlginize çok teşekkür ederim.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Private Sub CommandButton1_Click()
    Dim Kontrol As Control
    For X = 1 To 167
    For Each Kontrol In Me.Controls
    If TypeName(Kontrol) = "CheckBox" And Kontrol.Name = "CheckBox" & X Then
    If Controls("CheckBox" & X) = True Then Controls("TextBox" & X) = ""
    Controls("CheckBox" & X) = False
    End If
    Next: Next
End Sub

 

[ocamsul]

SN: COST_CONTROL çok teşekkür ederim. Bu sefer oldu. Tam istediğim gibi. Sağolun.