Erişilmez textboxları çözme.

[Altay3555]

Private Sub CommandButton9_Click() 'Başvuru Formu
TextBox1.Enabled = True
TextBox2.Enabled = True
TextBox3.Enabled = True
TextBox4.Enabled = True
TextBox5.Enabled = True
TextBox6.Enabled = True
TextBox7.Enabled = True
TextBox37.Enabled = True
TextBox12.Enabled = False
TextBox78.Enabled = True
TextBox79.Enabled = True
TextBox80.Enabled = True
TextBox81.Enabled = True
TextBox82.Enabled = True
TextBox83.Enabled = True
TextBox84.Enabled = True
TextBox85.Enabled = True
TextBox86.Enabled = True
TextBox87.Enabled = False
TextBox87.BackStyle = Transparent
TextBox88.Enabled = False
TextBox88.BackStyle = Transparent
TextBox89.Enabled = False
TextBox89.BackStyle = Transparent
TextBox90.Enabled = False
TextBox90.BackStyle = Transparent
CommandButton3.Enabled = False
CommandButton3.BackStyle = Transparent
CommandButton4.Enabled = False
CommandButton4.BackStyle = Transparent
CommandButton6.Enabled = True
CommandButton7.Enabled = True
CommandButton8.Enabled = False
CommandButton8.BackStyle = Transparent
cmdKAYDET.Enabled = True
CommandButton10.Enabled = False
CommandButton10.BackStyle = Transparent
End Sub

Selamlar,
*Yukarıdaki kodları kısaltmamız mümkün mü?(açıklamalı)
*Erişilmez yaptığım kutucuklarla işim bittiğinde nasıl geri dönebilirim.
(cmnb'a basarak 12,87,88,89,90 ve cmnb 3.4.8 i erişilmez yapıyorum,ama daha sonra da erişemiyorum.)
Şimdiden teşekkürler

 

[Ergün Güler]

Selamlar,
*Yukarıdaki kodları kısaltmamız mümkün mü?(açıklamalı)

Bunun için Me.Controls özelliği ile birlikte döngü kurarak çözebilirsiniz.

*Erişilmez yaptığım kutucuklarla işim bittiğinde nasıl geri dönebilirim.
(cmnb'a basarak 12,87,88,89,90 ve cmnb 3.4.8 i erişilmez yapıyorum,ama daha sonra da erişemiyorum.)
Şimdiden teşekkürler

Bunun için ise yaptığınız işlemin tam tersini "işim bittiğinde" ile kastediğiniz olay'ın içine yazmalısınız. Mesela, işinizi CommandButton1 ile bitiriyorsanız,

CommandButton1_Click() 
TextBox1.Enabled = [COLOR="Red"]False[/COLOR]
TextBox2.Enabled = [COLOR="Red"]False[/COLOR]
TextBox3.Enabled = [COLOR="Red"]False[/COLOR]
TextBox4.Enabled = [COLOR="Red"]False[/COLOR]
End Sub

Olmaz ise örnek dosyanızı eklemek daha doğru olacak.
İyi çalışmalar.