Skip to main content

AccessTr.neT


Form rengini degiştirme

Form rengini degiştirme

Çözüldü #1
Tüm arkadaşlara iyi akşamlar dilerim.
 Benim öğrenmek istediğim, bir form üzerinde bulunan metin kutusuna girdiğim değere göre nasıl form rengini değiştire bilirm. Koşullu Biçimleştirme olarak metin kutusu rengini değiştirdiğimiz gibi.
Cevapla
#2
sayın Ömer 64,

öncelikle,
Site Kuralları sayfasında yazılı hususları tekrar incelemenizi temenni etmekle birlikte,

- lütfen,örnek uygulamanızı içeriğinde farazi gerçek dışı ve birkaç veri barındıracak şekilde konunuza dahil ediniz.

-lütfen,site arama sayfasında "koşullu biçimlendirme" ya da "renklendirme" benzeri ifadeleri aratmak sureti ile edineceğiniz çeşitli içerikteki konularda yer alan bilgileri ve örnekleri inceleyiniz.

denemeleriniz neticesinde olası soruna veya hataya maruz kaldığınızda gerek bunların tam açıklamasını ve gerekse de ekran görüntülerini konunuza dahil ederek bahsini yapınız.katılımcılar tarafından uygun görülebilecek bilgilendirmeleri edinmeniz mümkün.

son olarak;
KONU;

içeriği itibarı ile,
açıldığı "Access Özel Programlar" kategorisi'nden
"Access Soruları ve Cevapları" kategorisi içerisine taşınmıştır.

bilginize...iyi çalışmalar,saygılar.
Herkes, kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla
#3
örnek göndermemişsiniz ama ben küçük bir örnek hazırladım.  metin kutusuna 
1 den 10 a kadar numaralardan birisini girip ENTER tuşuna bastığınızda  form rengi değişecektir.
.rar FORMRENGI_ozguryasin.rar (Dosya Boyutu: 19,46 KB | İndirme Sayısı: 58)
POWER 'un Çekirgesi :=)
ozguryasin, 23-09-2009 tarihinden beri AccessTr.neT AİLESİ üyesidir.
Access'i Profesyonel Şekilde Öğrenmek İçin https://www.accesstr.net Ailesi Yeter. alkis


Site Kurallarını sorularınızın hızlı cevaplanması için kesinlikle okuyunuz.
Cevapla
#4
Sayın Ömer 64,

Size fikir vermesi ve yol göstermesi için bilgilendirme açıklaması hazırlamıştım fakat sayın özguryasin bey tarafından örnek paylaşımı yapılmış.en azından,yazdıklarım boşna gitmesin düşüncesi ile yine bu bilgileri paylaşmak istiyorum...Bu arada,sayın özguryasin bey’e katkılarından ve katılımlarından dolayı teşekkürler.

OLAY YORDAMI ÜZERİNDEN KOD İLE

İster metin kutusunun ÇIKILDIĞINDA olay yordamına ya da isterseniz en uygunu formu tasarım olarak açtıktan sonra orta kısımdaki AYRINTI alanındayken sol tuşa basınca ÖZELLİKLER-OLAY sekmesindeki BOYANIRKEN olay yordamına

Kod:
If Me.metin_kutusu_denetiminin_adi = "istenen_deger" Then
Me.Ayrıntı.BackColor = vbGreen
Else
Me.Ayrıntı.BackColor = vbWhite
End If

benzeri kod ifadelerini yazmak sureti ile istediğiniz sonucu elde edebilirsiniz.

KOŞULLU BİÇİMLENDİRME İLE

Formu tasarım olarak açtıktan sonra ilgili metin kutusu denetimini sol tuşa basmak sureti ile aktifleştirmek için seçiniz.
Üst menüden BİÇİM-KOŞULLU ifadesini seçiniz.

Ardından,koşul olarak hangi işlemi hangi değer söz konusu olunca gerçekleştirmesi için koşul ve değer belirleme işlemini sağlayınız,ekrana gelecek olan pencere üzerinde.

Son olarak,burada tek sorun eğer koşullarınız 3 taneden fazla ise ancak 3 tane belirleyebiliyorsunuz.buna da dikkat etmeniz de fayda var.bu nedenle,elbette tercih ve takdir sizindir fakat kod ile yazmak daha yerinde olacaktır,fazla koşul belirleyebilme imkanı olduğundan dolayı...Bilginize…iyi çalışmalar,saygılar.
Herkes, kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla
#5
Sy. Özzgüryasin ve diger arkadaşlara teşekkür ederim, problemimin çözümünde yardımcı oldukları için, iyi akşamlar !!
Cevapla
#6
ek olarak Access renk kodlarına buradan ulaşabilirsiniz.

MS Access RENK KODLARI

Yapılan işlem: Access Vba bölümünde 

Kod:
Select Case Me.A1

Case Is = 1
Me.Ayrıntı.BackColor = 16776960
Case Is = 2
Me.Ayrıntı.BackColor = 4210943
Case Is = 3
Me.Ayrıntı.BackColor = 5600139
Case Is = 4
Me.Ayrıntı.BackColor = 61046
Case Is = 5
Me.Ayrıntı.BackColor = 2193134
Case Is = 6
Me.Ayrıntı.BackColor = 1030655
Case Is = 7
Me.Ayrıntı.BackColor = 15612594
Case Is = 8
Me.Ayrıntı.BackColor = 6916969
Case Is = 9
Me.Ayrıntı.BackColor = 13474304
Case Is = 10
Me.Ayrıntı.BackColor = 2895086
End Select

Case Is = 1

Me.Ayrıntı.BackColor = 16776960
Case Is = 2
Me.Ayrıntı.BackColor = 4210943


yerine 

case is = "ÖZGÜR"

Me.Ayrıntı.BackColor = 16776960

Case Is = "YASİN"
Me.Ayrıntı.BackColor = 4210943


şeklinde değişiklik yaparsanız. metin kutusuna özgür veya yasin yazdığınızda değişir, form renkleri
POWER 'un Çekirgesi :=)
ozguryasin, 23-09-2009 tarihinden beri AccessTr.neT AİLESİ üyesidir.
Access'i Profesyonel Şekilde Öğrenmek İçin https://www.accesstr.net Ailesi Yeter. alkis


Site Kurallarını sorularınızın hızlı cevaplanması için kesinlikle okuyunuz.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da