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

Derecelendirme: 5/5 - 1 oy
Kullanici Avatari

ozanakkaya

sledgeab
Kurucu
OZ.... AK....
 40
10.943
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
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ı: 220)
"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.440
17/05/2009
365
Ankara
Şirket Sahibi
Ofis 2010 64 Bit
08/07/2018,19:27
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
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
 53
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
Aktif Üye
 Belirtilmemiş
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

Gümüş Üye
Gümüş Üye
A..... SE.... ŞE....
2.054
31/10/2008
63
İstanbul
-
03/02/2018,00:29
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
  Sql --> Vba Convertör Access Formda. A.Kadir. 2 349 07/04/2018, 11:22
Son Yorum: akem
  Form veya Rapora Barkod Ekleme ozanakkaya 12 3.313 08/03/2018, 23:29
Son Yorum: golf2000
  [Özel Üyelerimiz İçin] Access 2007 ve 2010 da formda sağ tıklama alpeki99 18 6.151 03/09/2017, 13:52
Son Yorum: mengene2
  Farklı bir buton örneği Puletin 6 4.917 03/05/2017, 22:54
Son Yorum: huzun_bulutu
  sürekli formda sıra numarası ozanakkaya 9 4.493 10/08/2016, 01:08
Son Yorum: ozanakkaya

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