13/08/2013, 12:30
(25/03/2009, 18:15)Seruz yazdı: [ -> ]Sn. Accessman,
Örnek bir form yapıp gönderseniz de biz de onun üzerinden göstersek,
yeni bir mdb yaratıp, yeni bir form yapıp, üzerine sıralı isimli Etiketler koyup,
bir de üzerine kod yazıp denemek için vakit harcamasak,
işimiz daha kolay olmaz mı?
Kod:Private Sub Girilen_Deger_AfterUpdate()
Dim i
Select Case Me.Girilen_Deger
Case 15, 18, 22
For i = 1 To 10
Me("[Etiket" & i & "]").Visible = True
Next
Case 5, 8, 12
For i = 1 To 10
Me("[Etiket" & i & "]").Visible = False
Next
Case Else
'Yukarıdaki sayılar haricindeki bir değer olduğunda ? ....
End Select
End Sub
Verdiğim yöntemde etiket isimleri Etiket1....30 gibi ardışık olmalı.
Etiketlerdeki Tag özelliği ve For Each fonksiyonu kullanılarak
ardışık olmadan da yapılabilir ama sanırım bu sizin için yeterli.
bu cevap yıllar sonra bile işime yaradı çok teşekkürler