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

Derecelendirme: 5/5 - 1 oy
Kullanici Avatari

ozanakkaya

Kurucu
OZ.... AK....
 41
 11.597
 469
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Dün,22:47
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


Ek Dosyalar
.rar   SatirFarkliRenk.rar(Dosya Boyutu: 920,94 KB / İndirme Sayısı: 221)
"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....
 51
 4.443
 127
 17/05/2009
365
 Ankara
 Şirket Sahibi
 Ofis 2010 64 Bit
 Dün,13:06
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ş
 1.717
 40
 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
 1.159
 154
 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ş
 2.367
 561
 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....
 2.057
 125
 31/10/2008
63
 İstanbul
 
 -
 01/12/2018,10:52
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
  Formda Arama nihatkr 3 2.616 21/11/2018, 17:13
Son Yorum: Mali06
  Form veya Rapora Barkod Ekleme ozanakkaya 15 4.390 09/10/2018, 17:53
Son Yorum: pelitt
  Seçili Satır Rengi Değişimi cuneyt 14 7.278 19/08/2018, 09:38
Son Yorum: ielmacilar
  Sql --> Vba Convertör Access Formda. A.Kadir. 2 553 07/04/2018, 11:22
Son Yorum: akem
  [Özel Üyelerimiz İçin] Access 2007 ve 2010 da formda sağ tıklama alpeki99 18 6.409 03/09/2017, 13:52
Son Yorum: mengene2

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