Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
28/11/2009 07:48
Konu Sahibi
ozanakkaya
Yorumlar
13
Okunma
5359
Konuyu Oyla:
  • Derecelendirme: 5/5 - 1 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 5/5 - 1 oy
Kullanici Avatari

ozanakkaya

Kurucu
Oz.... Ak....
 39
 479
 11.975
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Dün,19:08
Veri Sayfası görünümündeki formda veya alt formda her satıra farklı renk veren örnek uygulama


[Resim: adszwqu.jpg]


Bu uygulamada Kod ile tüm satırdaki kutulara koşullu biçimlendirme eklenir.

Forma Metin Kutusu Ekleyin, Metin kutusunun "Denetim Kaynağına"

Kod:
=Numara()

yazın,

formun "Yüklendiğinde" olayına

Kod:
BicimlendirmeleriSil Me
BicimlendirmeEkle Me


Yeni bir modül ekleyip aşağıdaki kodu ekleyin.

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Public Sonraki_Numara As Long

Public Function Numara() As Long
If Sonraki_Numara = 0 Then Sonraki_Numara = 1 Else Sonraki_Numara = 0
Numara = Sonraki_Numara
End Function

Public Sub BicimlendirmeEkle(frm As Form)

On Error Resume Next
Dim BColor As Long
Dim ctl As Control

BColor = vbRed
For Each ctl In frm.Controls
With ctl.FormatConditions.Add(acExpression, acNotEqual, "[METİNKUTUSUADI]") 'DENETİM KAYNAĞINA =Numara() YAZILAN METİN KUTUSU

.BackColor = BColor
End With
Next

End Sub

Public Sub BicimlendirmeleriSil(frm As Form)
On Error Resume Next
Dim BColor As Long
Dim ctl As Control
BColor = vbYellow
For Each ctl In frm.Controls

ctl.FormatConditions.Item(0).Delete
ctl.FormatConditions.Item(1).Delete
ctl.FormatConditions.Item(2).Delete
Next

End Sub


Modüldeki METİNKUTUSUADI bölümünü düzeltmeyi unutmayın


"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 

Kullanici Avatari

benremix

Onursal Üye
Ra.... So....
 52
 127
 4.442
 17/05/2009
365
 Ankara
 Şirket Sahibi
 Ofis 2010 64 Bit
 21/03/2019,20:22
Paylaşım için teşekkürler.Sn Slegeab renkleri nasıl değiştirebiliriz. Raporda da bu şekilde yapabilir miyiz? Saygılar...


Bilgi paylaşıldıkça çoğalır....
Her engel, yaşam koşullarınızı daha iyileştirecek bir fırsattır.


Access için her zaman lazım olacak konu başlıkları listesi



Kullanici Avatari

Puletin

Onursal Üye
 Belirtilmemiş
 40
 1.717
 01/11/2008
416
 -
 
 Ofis 2003
 24/12/2016,00:18
Teşekkürler Sledgeab


Kaplumbağa ya dikkat et...
Sadece  başını çıkartıp risk aldığında ilerleyebiliyor...

Kullanici Avatari

ogulcan92

Aktif Üye
 54
 154
 1.159
 06/05/2009
480
 İzmir
 
 Ofis 2003
 07/08/2015,11:50
Sn:sledgeab
Paylaşım için teşekkürler.



Kullanici Avatari

accessman

Aktif Üye
 Belirtilmemiş
 561
 2.367
 31/10/2008
425
 Denizli
 
 Ofis 2003
 20/09/2016,00:20
çok teşekkürler
bir satır kırmızı bir satır mavi bir satır yeşil olabiliyor mu


@benbendedeilem

Kullanici Avatari

assenucler

Aktif Üye*
A..... Se.... Şe....
 125
 2.057
 31/10/2008
63
 İstanbul
 
 -
 03/01/2019,11:47
Sayın Sledgeab;

Günaydın.. İyi bayramlar.. Sağlık, huzur, mutluluk ve başarılar dilerim..

Paylaşımınız için teşekkür...




Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  İsim ve Soyismi ayırarak farklı kutulara yazma örneği mehmetdemiral 9 6.020 09/03/2019, 11:18
Son Yorum: haliliyas
  Form veya Rapora Barkod Ekleme ozanakkaya 17 4.942 09/01/2019, 17:49
Son Yorum: ozanakkaya
  Formda Calendar (Takvim) Uygulaması HandSword 7 3.746 17/12/2018, 13:24
Son Yorum: atkbursa
  Formda Arama nihatkr 3 2.789 21/11/2018, 17:13
Son Yorum: Mali06
  Seçili Satır Rengi Değişimi cuneyt 14 7.503 19/08/2018, 09:38
Son Yorum: ielmacilar

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.