formda kutuları toplu gizleme

19/09/2013, 23:38

mhmtogz

merhabalar. öncelikle aramalarda bulduklarımı uygulayamadığım için yazma gereği duydum. formumda liste ve dolması gereken kutular var..
istediğim form açıldığında sadece liste,yeni Kayıt ve düzenle buttonlarının görünmesi.
yeni kayıt seçtğiminde üstteki kutular ile kaydet,sil ve vazgeç buttonları açılacak yeni kayıt, düzenle buttonları . görünmeyecek. yardımlarınız bekliyorum.
20/09/2013, 00:43

metehan16

Sayın meslektaşım kısa zamanda fikir vermesi açısından örneğiniz üzerinden bişeyler yaptım. inceleyerek bunu daha geliştirebilirsiniz.
20/09/2013, 01:51

mhmtogz

eyvallah dosutm sağolasın.
21/09/2013, 11:22

aydın3838

selam
fikir vermesi açısından başka ve kısa bir yaklaşımda benden

kodun çalışması için
kodun içindeki txtkontrol cümlesini form elemanlarının özelliklerindeki (im) yada diğer adı ile (tag) olan kısma yazın

Public Sub textlerikilitle()
Dim Ctlr As Control
On Error Resume Next
For Each Ctlr In Form.Controls
If Ctlr.Tag = "txtkontrol" Then
Ctlr.visible= True
End If
Next
End Sub

Public Sub textleriac()
Dim Ctlr As Control
On Error Resume Next
For Each Ctlr In Form.Controls
If Ctlr.Tag = "txtkontrol" Then
Ctlr.visible = False
End If
Next
End Sub