Skip to main content

AccessTr.neT


etiketleri topluca görünür yapma

etiketleri topluca görünür yapma

Çözüldü #7
(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
@benbendedeilem
Cevapla
Çözüldü #8
(13/08/2013, 12:30)accessman yazdı: bu cevap yıllar sonra bile işime yaradı çok teşekkürler

Desenize şarap gibi siteyiz. Yıllandıkça değerleniyoruz.
İnadına, ille de Accesstr.net...
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da