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

Derecelendirme: 5/5 - 1 oy
Kullanici Avatari

ozanakkaya

sledgeab
Kurucu
OZ.... AK....
 41
 11.274
 464
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Dün,22:40
Veri Sayfası görünümündeki formda veya alt formda her satıra farklı renk veren örnek uygulama


resim


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
Onursal Üye
RA.... SO....
 51
 4.441
 127
 17/05/2009
365
 Ankara
 Şirket Sahibi
 Ofis 2010 64 Bit
 Dün,07:33
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
Onursal Üye
 Belirtilmemiş
 1.716
 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
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
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
Aktif Üye*
A..... SE.... ŞE....
 2.056
 125
 31/10/2008
63
 İstanbul
 
 -
 13/08/2018,19:49
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
  Seçili Satır Rengi Değişimi cuneyt 14 6.974 19/08/2018, 09:38
Son Yorum: ielmacilar
  Sql --> Vba Convertör Access Formda. A.Kadir. 2 439 07/04/2018, 11:22
Son Yorum: akem
  Form veya Rapora Barkod Ekleme ozanakkaya 12 3.633 08/03/2018, 23:29
Son Yorum: golf2000
  [Özel Üyelerimiz İçin] Access 2007 ve 2010 da formda sağ tıklama alpeki99 18 6.300 03/09/2017, 13:52
Son Yorum: mengene2
  Farklı bir buton örneği Puletin 6 5.034 03/05/2017, 22:54
Son Yorum: huzun_bulutu

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