Formda veya Alt Formda Her Satır Farklı Renk

1 2 3
28/11/2009, 07:48

ozanakkaya

Veri Sayfası görünümündeki formda veya alt formda her satıra farklı renk veren örnek uygulama





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:
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
28/11/2009, 08:11

benremix

Paylaşım için teşekkürler.Sn Slegeab renkleri nasıl değiştirebiliriz. Raporda da bu şekilde yapabilir miyiz? Saygılar...
28/11/2009, 09:05

Puletin

Teşekkürler Sledgeab
28/11/2009, 10:13

ogulcan92

Sn:sledgeab
Paylaşım için teşekkürler.
28/11/2009, 10:58

accessman

çok teşekkürler
bir satır kırmızı bir satır mavi bir satır yeşil olabiliyor mu
28/11/2009, 11:12

assenucler

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...
1 2 3