28/11/2009, 07:48
Veri Sayfası görünümündeki formda veya alt formda her satıra farklı renk veren örnek uygulama
![[Resim: adszwqu.jpg]](http://img265.imageshack.us/img265/5003/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"yazın,
formun "Yüklendiğinde" olayına
Yeni bir modül ekleyip aşağıdaki kodu ekleyin.
Modüldeki METİNKUTUSUADI bölümünü düzeltmeyi unutmayın
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()formun "Yüklendiğinde" olayına
Kod:
BicimlendirmeleriSil Me
BicimlendirmeEkle MeYeni 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 SubModüldeki METİNKUTUSUADI bölümünü düzeltmeyi unutmayın