Dim Ctlr As Control
On Error Resume Next
For Each Ctlr In Me.Form.Controls
If Ctlr.Tag = "deneme" Then
Ctlr.Locked = True
End If
Next
kodlarıyla im isimleri "deneme" olanlar gruplandırılarak
If Ctlr.Tag = "deneme" Then
Ctlr.Locked = True
deneme im adını taşıyanlar kilitlenmektedir. Oldukça basit ve güzel bir yöntemdir. Bu mantığı tüm metin kutuları içindeki bazılarını silmek, bazılarına dokunmamak gibi amaçlarda kullanabilirsiniz. Saymakla bitmez uygulama örnekleri. Bu arada bu işlem metin kutularıyla da sınırlı değil, butonlara bile uygulayabilirsiniz.Aşağıdaki linkte admin bunu anlatmıştı:
Textbox ın içini kod ile boşalttıktan sonra hata veriyor
Buradaki 7 nolu mesajı inceleyiniz.