veriye göre etiket boya
#1
Merhaba Arkadaşlar Hepinize Kolay Gelsin..

Yapmak istediğim şey ev numarasına ve kişi sayısına göre formdaki etiketlerin
boyanmasını istiyorum

- eğer evdeki kişi sayısı 0'dan büyükse etiket boyansın istiyorum

örneğin :

eğer EV_NO= 1 ve KISI_SAYISI>0 ise e1 boyansın
EV_NO= 2 ve KISI_SAYISI>0 ise e2 boyansın .....

- form açıldığında KISI_SAYISI 0'dan büyük olan evlerin boyalı olarak gelmesini istiyorum.

mümkünmü bilmiyorum ?? uğraştım ama istediğim gibi olmadı yardım ederseniz sevinirim. Şimdiden Teşekkürler...


Eklenti Dosyaları
.rar   boyama.rar (Boyut: 12,24 KB / İndirilme: 49)



  Alıntı
Bu mesajı beğenenler:
#2
Sayin Mdeng;

1. Form da veri kaynagi olarak tabloyu kayit kaynagi olarak belirleyeilirsiniz.
2. Form gecerli oldugu olay yordamina asagidaki vba kodunu ilave edebilirsiniz.
Kod:
Private Sub Form_Current()
On Error Resume Next
Dim i As Long, Kyt As Recordset
Set Kyt = Me.RecordsetClone
Kyt.MoveLast: Kyt.MoveFirst
Do
If Kyt!EV_NO < DMax("Kyt!EV_NO", "TBL_EV") Then Me.Controls("e" & Kyt!EV_NO).BackColor = IIf(Kyt!KISI_SAYISI > 0, 65535, 16777215)
Kyt.MoveNext
Loop Until Kyt.EOF
Kyt.Close: Set Kyt = Nothing
End Sub
Ek'teki VT'yi inceleyebilirsiniz.
.rar   boyama.rar (Boyut: 22,1 KB / İndirilme: 79)
Kolay gelsin...



  Alıntı
Bu mesajı beğenenler:
#3
Sn dsezgin83260 elinize sağlık lakin istediğim şey kısmen olmuş..

- ev nosuna göre kişi sayısını sorgulamalı ve kişi sayısının 0 dan büyük olduğu evleri form açıldığında boyalı olarak getirmeli kayıtları seçtiğimde değilde açıldığında dolu evlerin hepsi boyalı olmalı...

Tekrar teşekkürler...



  Alıntı
Bu mesajı beğenenler:
#4
Sayin Mdeng;

Ilk cevabimiz Mesaj: #2 na bakabilirsiniz....



  Alıntı
Bu mesajı beğenenler:
#5
Sayin dsezgin83260

Üstadım biraz gecikmeli bir cevap olacak ama kusura bakmayın emeğiniz için teşekkürler
çok yardımcı oldunuz..



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [FORM] Gmaile Etiket Oluşturma Access Ziyaretçisi 90 4.238 27-09-2024, 13:55
Son Mesaj: Access Ziyaretçisi
  Rapor üzerinde önizleme öncesi Etiket Ve Metin Kutularının Yerlerini Değiştirme Hk. adnnfrm 4 522 26-12-2023, 03:42
Son Mesaj: adnnfrm
  Etiket Isimlerini Toplu Değiştirme hedefkaya 1 342 24-10-2023, 21:06
Son Mesaj: dsezgin
  [SORGU] Benzer Veriye Göre Sorgu Oluşturmak toros333 2 564 16-09-2023, 22:38
Son Mesaj: toros333
  [FORM] Liste Kutusundaki Veriye Göre Stok Ve Ihtiyaç Verisini Otomatik Hesaplama husem 2 608 08-06-2023, 19:03
Son Mesaj: husem
  Formda Kaydedilen Her Bir Veriye , Dosyaya Ulaşmak Için Köprü Oluşturmak tarkanaykın 6 890 19-04-2022, 21:28
Son Mesaj: tarkanaykın
  [FORM] Etiket Adını Kalıcı Olarak Butonla İle Değiştirme sertac75 15 2.773 15-12-2021, 23:57
Son Mesaj: kamil_55
  Im Değerine Göre - Tag Değerine Göre Işlem Yapma alikagan 5 698 09-12-2021, 09:06
Son Mesaj: halily

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi