iyi günler arkadaşlar
bir formumuz var diyelim
bunda 20-30 tane etiketvar
etiket1
etiket2
..
..
etiket30
bir metin5 kutusundaki değere göre bunların topluca görünüp gizlenmesini nasıl sağlarız yani mesala değer 15 ,18 ,22 olduğunda görünecek
5, 8,12 olduğunda gizlenecek
acaba şöyle olabilirmi
----------------------------
if metin5= 15 then
for a=1 to 30
etiket(a).visible=true
next
end if
-----------------------
yardımlarınız iiçin teşekkürler
etiketleri topluca görünür yapma
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ı?
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.
Ö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
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.
Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs
Konfüçyüs
Teşekkürler, Seruz hocam...
Seruz Hocam
Dim i as byte desek daha mı güzel olur ? Yoksa variant olarak özellikle mi bırakıldı?
Dim i as byte desek daha mı güzel olur ? Yoksa variant olarak özellikle mi bırakıldı?
içinde yapmaya çalıştığının çok daha fazlası ile işine yarayacak etiket yazdırma örneği var. kolay gelsin
İyiki Varsın Access
Tabii ki olur ve daha güzel olur.
sadece bu tür ufak örneklerde önemsemiyoruz bu tür ayrıntıları.
Sonuçta örnek olduğu için diğer kodlar önemli burada.
sadece bu tür ufak örneklerde önemsemiyoruz bu tür ayrıntıları.
Sonuçta örnek olduğu için diğer kodlar önemli burada.
Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs
Konfüçyüs
Konuyu Okuyanlar: 1 Ziyaretçi