Merhaba değerli ustalar ve sayın üyeler
Forumda aradım ama bir türlü buna benzer bir örnek bulamadığım için bu konuyu açmak zorunda kaldım. Öncelikle buna benzer bir örnek varsa ve ben görememişsem öncelikle adminden özür dilemek isterim.
Benim sorunum ekte örneğini vermiş olduğum formda geçis durumu 0 olduğunda kırmızı icon, 1 olduğunda ise yeşil icon aktif olsun istiyorum. Yada buna benzer bir icon ile aktif ve pasif olduğunda renk değiştiren bir uygulama olsun istiyorum.
Yardımlarınız için şimdiden teşekkür eder, saygılar sunarım.
sayın umuttk,
bahsettiğiniz talebinize yönelik olarak;
eklediğiniz örneği kendi adıma inceleme imkanım ve zamanın olmadı fakat ilk etapta bir cevap verebilmek üzere,ilgili formun GEÇERLİ OLDUĞUNDA olay yordamına aşağıdaki iki yöntemi içeren kod ifadelerini ekleyerek deneyebilirsiniz.
YÖNTEM 1
(Geçiş Durumu değerini,iki seçenekli olacağı düşüncesi ile SAYI veri türü olarak var sayılmak sureti ile)
Kod:
If Me.geçis_durumu_denetimi_adi = 1 Then
Me.yesil_ikon_denetim_adi.Visible = True
Me.kirmizi_ikon_denetim_adi.Visible = False
Else
Me.yesil_ikon_denetim_adi.Visible = False
Me.kirmizi_ikon_denetim_adi.Visible = True
End If
YÖNTEM 2
Kod:
Me.Me.geçis_durumu_denetimi_adi.SetFocus
Select Case Me.Me.geçis_durumu_denetimi_adi.Text
Case 0
Me.yesil_ikon_denetim_adi.Visible = False
Me.kirmizi_ikon_denetim_adi.Visible = True
Case 1
Me.yesil_ikon_denetim_adi.Visible = True
Me.kirmizi_ikon_denetim_adi.Visible = False
End Select
bilginize...iyi çalışmalar,saygılar.
(27/03/2016, 16:34)atoz112 yazdı: [ -> ]sayın umuttk,
bahsettiğiniz talebinize yönelik olarak;
eklediğiniz örneği kendi adıma inceleme imkanım ve zamanın olmadı fakat ilk etapta bir cevap verebilmek üzere,ilgili formun GEÇERLİ OLDUĞUNDA olay yordamına aşağıdaki iki yöntemi içeren kod ifadelerini ekleyerek deneyebilirsiniz.
YÖNTEM 1
(Geçiş Durumu değerini,iki seçenekli olacağı düşüncesi ile SAYI veri türü olarak var sayılmak sureti ile)
Kod:
If Me.geçis_durumu_denetimi_adi = 1 Then
Me.yesil_ikon_denetim_adi.Visible = True
Me.kirmizi_ikon_denetim_adi.Visible = False
Else
Me.yesil_ikon_denetim_adi.Visible = False
Me.kirmizi_ikon_denetim_adi.Visible = True
End If
YÖNTEM 2
Kod:
Me.Me.geçis_durumu_denetimi_adi.SetFocus
Select Case Me.Me.geçis_durumu_denetimi_adi.Text
Case 0
Me.yesil_ikon_denetim_adi.Visible = False
Me.kirmizi_ikon_denetim_adi.Visible = True
Case 1
Me.yesil_ikon_denetim_adi.Visible = True
Me.kirmizi_ikon_denetim_adi.Visible = False
End Select
bilginize...iyi çalışmalar,saygılar.
Sayın atoz112
desteğiniz için tesekkür ederim.
Ben 1. yöntemi daha önce denemiştim.
Ancak sekmeli veri görünümündeki formda tüm satırdaki iconlar hepsi birlikte değişmektedir.
Bilginize...
Teşekkürler
Sürekli formda, satırda buton gösterip gizleme olayını yapamazsınız. Aktif satır ne ise o satırdaki veriye göre tüm butonlar görünür veya gizlenir.
Koşullu biçimlendirme ile 0 yerine diğer metin kutusuna "Aktif" veya "Pasif" yazdırıp koşullu biçimlendirme ile arkaplan rengini yeşil veya kırmızı yapabilirsin.
(29/03/2016, 06:49)ozanakkaya yazdı: [ -> ]Sürekli formda, satırda buton gösterip gizleme olayını yapamazsınız. Aktif satır ne ise o satırdaki veriye göre tüm butonlar görünür veya gizlenir.
Koşullu biçimlendirme ile 0 yerine diğer metin kutusuna "Aktif" veya "Pasif" yazdırıp koşullu biçimlendirme ile arkaplan rengini yeşil veya kırmızı yapabilirsin.
Sayın ozanakkaya
İlginize teşekkür ederim. Bunu dikkate alacağım.
Saygılarımla...