AccessTr.neT
Formda koşullu icon değiştirme - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Formda koşullu icon değiştirme (/konu-formda-kosullu-icon-degistirme.html)



Formda koşullu icon değiştirme - umuttk - 27/03/2016

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.


Cvp: Formda koşullu icon değiştirme - atoz112 - 27/03/2016

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.


Cvp: Formda koşullu icon değiştirme - umuttk - 27/03/2016

(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


Cvp: Formda koşullu icon değiştirme - ozanakkaya - 29/03/2016

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. 


Cvp: Formda koşullu icon değiştirme - umuttk - 30/03/2016

(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...