Çok enteresan bi problem arkadaşlar.Nasıl anlatılır onu da bilmiorum.O yüzden örnekte açıklamasını göstererek yaptım.İşin içinden çıkamadım ben.Yardımcı olabilecek,mantık yürütebilecek ya da öneri sunabilecek arkadaşlara şimdiden çok teşekkür ederim..


  sorun.rar (Boyut: 8.95 KB / İndirme: 20)

Saygılarımla...

yusuf kardeşim fikir olması açısından bir program ekledim
tablodaki isimleri etiket captionu olarak döşüyor bir eksiği var boş olan etiketler gözükmüyor oda visible özelliğinde değişikik yapılarak düzeltilir kanaatindeyim

Kardeşim ilgin için teşekür ederim ama ne yalan sööliim hiç bişe anlamadım vede istediğim tam olarak bu değil ama kısmen fikir verdi hala daha yardımlarınızı bekliorum....


Saygılarımla....

Daha önce bilgisayarcı bunla ilgili bir örnek de atmıştı yanılmıyorsam.

En büyük sorunun bu olsun hocam.

Paşam eline emeğine ayrıyetten tatlı diline sağlık.Bilgisayarcı kardeşimde saolsun..

Aradan ben de sebeplenmişim, Eywallah yusuf ne demek. Ne zxaman ihtiyacın olursa :D

Arkadaşlar bu örnekte bana baya emeğiniz geçti.Ama bir yerde gene yardımcı olabilirseniz bana çok sevinirim.
Bu örneğe ben isimler tablosunda alan adı açık:"açık" veri türü:"evet/hayır" olan bir alan ekledim.forma gene içinde ne kadar isim varsa eklesin ama açık alanı true olanların backcoloru farklı renkte olsun istiyorum.access konusunda baya kafa patlattığım 2.hadise bu.yardımlarınızı bekliorum.


SAYGILARIMLA....

Do While Not Rs1.EOF
If i > 12 Then Exit Do
s = "lbl" & i
Me(s).Caption = Nz(Rs1("Isimler"), "Yok")
If Rs1("blg") Then Me(s).BackColor = vbGreen Else Me(s).BackColor = vbYellow
'Me(s).BackColor = 16705440
i = i + 1
Rs1.MoveNext
Loop

Burdaki blg alanı true false

Hocam ellerin dert görmesin ilgin için saol ama ben bi türlü uygulamaya dökemedim üsttekini.yaptım ama olmadı.Örneğe ekledim.nerde yanlış yapıyorum gösterirsen minnettar kalırım.tekrar teşekürler...


  sorun2.rar (Boyut: 20.55 KB / İndirme: 8)

Saygılarımla...

yapmışsın zaten hocam da bi tırnak işaretine yenilmişsin. :D
If Rs1("blg") Then Me(s).BackColor = vbGreen Else Me(s).BackColor = vbYellow
'Me(s).BackColor = 16705440

Alttaki satırdaki tırnak işaretini eklememişsin. True false diye bakıyor ama altta ne olursa olsun Me(s).BackColor = 16705440 yaptırmışsın. O satırın başına yukarıdaki gibi ' ekle ya da sil. Yada aşağıdaki kodu kopyala bitsin

Do While Not Rs1.EOF
If i > 12 Then Exit Do
s = "lbl" & i
Me(s).Caption = Nz(Rs1("Isimler"), "Yok")
If Rs1("acik") Then Me(s).BackColor = vbGreen Else Me(s).BackColor = vbYellow
'Me(s).BackColor = 16705440
i = i + 1
Rs1.MoveNext
Loop