Formda Arkaplan Renginin Değere Göre Değişmesi

1 2
07/04/2017, 23:20

ozanakkaya

Merhaba,

form3'deki kodu aşağıdaki ile değiştirerek deneyiniz.

Private Sub Ayrıntı_Paint()
If DCount("*", "Form3 Sorgu") > 0 Then
   If Me.CİNSİYETİ = "ERKEK" Then
       Me.ADI.BackColor = 16777111
       Me.SOYADI.BackColor = 16777111
       Me.CİNSİYETİ.BackColor = 16777111
   Else
       Me.ADI.BackColor = 12698111
       Me.SOYADI.BackColor = 12698111
       Me.CİNSİYETİ.BackColor = 12698111
   End If
End If
End Sub
08/04/2017, 09:11

atoz112

sayın semalp,

konunuzun 4.mesajındaki hitabınıza yönelik olarak;
kendi adıma geçerli olmak sureti ile ve bir yanıt vermiş olmak amacı ile,

açıkçası,yeni okudum yazdıklarınızı,konunuzun Cevaplanmış Sorular Kategorisi'ne taşınması sonrasında.

her ne kadar,sayın ozan bey de bir yanıt vermelerine rağmen,ben de bir çalışmada bulunmuştum.eklemekte sakınca olmayacaktır temennisi ile,

EK'te;
bahsettiğiniz talebinize yönelik olarak hazırlanmış örnek uygulama mevcuttur.inceleyebilirsiniz.

bilginize...iyi çalışmalar,saygılar.
10/04/2017, 16:58

atoz112

sayın semalp,

konu takibiniz açısından,hatırlatma anlamında;
konunuz ile ilgili son gelişme ne durumdadır.

şüphesiz,işlemleriniz tamamlanmış ve sorununuzu çözmüş de olabilirsiniz.site içi aramalarınız neticesinde sitede yer alan konuları ve örnekleri incelemelerinizin sonucu ile bazı gelişimler elde etmiş de olabilirsiniz...bilgilendirmek ister misiniz lütfen.teşekkürler.

bilginize...iyi çalışmalar,saygılar.
12/04/2017, 00:55

semalp

Sayın atoz112,
ozanakkaya'nın verdiği kodlarla sorun çözüldü. görünümde sorun yok ama arada sırada yine hata veriyor.
hazırladığım dosyaya eklemeler yapıyorum. ikamet ve tlf rehberinide kişilere ekledim.
dosyaya il,ilçe, mahalle ve posta kodu bilgilerini ekledim. kişi bilgilerini seçerek doldurmayı sağladım.
1 2