Sayın hocalarım,
Personel formumda;
Üç adet onay kutum var ;
Bu onay kutularının metin alanında İyi,Orta ve Zayıf yazmaktadır.
Yapmaya çalıştığım ise;
-Onay kutusuna Tıkladığımda İyi nin metin arkaplan renginin Mavi,
Orta nın Sarı ve Zayıf ise kırmızı olması için
Nasıl bir uygulama yapabilirim.
Sitede bayağı bir araştırma yaptım ama bulamadım,
Saygılarımla
İyi çalışmalar.
Onay Kutusu tıklandığında Metin arka plan renginin değişmesi
tbl_personel isimli tabloya "yabdildurum" adında veri kürü sayı olan alan ekle,
formdaki "Çerçeve179" isimli seçenek grubunun adını "crcv_yabdildurum" olarak değiştir. (Türkçe karakterler yok, denetim isimlerinin belirleyici olması lazım. vs. vs) bu seçenek grubunun denetim kaynağını yabdildurum olarak değiştir.
form Vba sayfasında
Formun geçerli olduğunda olayına ve crcv_yabdildurum isimli seçenek grubunun güncelleştirme sonrasında olayına aşağıdaki kodu ekle
formdaki "Çerçeve179" isimli seçenek grubunun adını "crcv_yabdildurum" olarak değiştir. (Türkçe karakterler yok, denetim isimlerinin belirleyici olması lazım. vs. vs) bu seçenek grubunun denetim kaynağını yabdildurum olarak değiştir.
form Vba sayfasında
option explicit
kodunun hemen altına aşağıdaki kodu ekleSub CerceveYenile()
Select Case Me.crcv_yabdildurum
Case 1 ' Çerceve değeri 1 ise
Me.Etiket182.BackColor = vbBlue 'arka plan mavi
Me.Etiket182.ForeColor = vbWhite 'yazı rengi beyaz
Me.Etiket184.BackColor = vbWhite 'arka plan beyaz
Me.Etiket186.BackColor = vbWhite 'arka plan beyaz
Case 2 ' Çerceve değeri 2 ise
Me.Etiket182.BackColor = vbWhite
Me.Etiket182.ForeColor = vbBlack
Me.Etiket184.BackColor = vbYellow
Me.Etiket186.BackColor = vbWhite
Case 3 ' Çerceve değeri 3 ise
Me.Etiket182.BackColor = vbWhite
Me.Etiket182.ForeColor = vbBlack
Me.Etiket184.BackColor = vbWhite
Me.Etiket186.BackColor = vbRed 'arka plan kırmızı
Case Else ' hiçbir koşul sağlanmazsa
Me.Etiket182.BackColor = vbWhite
Me.Etiket182.ForeColor = vbBlack
Me.Etiket184.BackColor = vbWhite
Me.Etiket186.BackColor = vbWhite
End Select
End Sub
Formun geçerli olduğunda olayına ve crcv_yabdildurum isimli seçenek grubunun güncelleştirme sonrasında olayına aşağıdaki kodu ekle
CerceveYenile
Sayın Ozan Hocam,
Emek ve mesainiz için çok teşekkür ederim,aynen uyguladım ve cuk diye oturdu.
Saygılarımla.
İyi çalışmalar.
Emek ve mesainiz için çok teşekkür ederim,aynen uyguladım ve cuk diye oturdu.
Saygılarımla.
İyi çalışmalar.
Rica ederim,
Forma Seçenek Grubu eklediğinizde ismi "Çerçeve xxxx" şeklinde eklense bile siz adını "crcv_xxxxx" şeklinde değiştirin, kod yazarken isminin ne olduğunu aramayın.
Tablo isimlerini "tbl_personel", tablodaki alan isimlerini, Türkçe karakter kullanmadan tümü büyük veya tümü küçük yazın. alan isimlerini egıtımdurumu gibi uzun yazmanıza gerek yok, Excel belgesi gibi tabloyu açmayacaksınız. egtdurum gibi kısa yazın.
Konu taşınmıştır.
Forma Seçenek Grubu eklediğinizde ismi "Çerçeve xxxx" şeklinde eklense bile siz adını "crcv_xxxxx" şeklinde değiştirin, kod yazarken isminin ne olduğunu aramayın.
Tablo isimlerini "tbl_personel", tablodaki alan isimlerini, Türkçe karakter kullanmadan tümü büyük veya tümü küçük yazın. alan isimlerini egıtımdurumu gibi uzun yazmanıza gerek yok, Excel belgesi gibi tabloyu açmayacaksınız. egtdurum gibi kısa yazın.
Konu taşınmıştır.
Konuyu Okuyanlar: 1 Ziyaretçi