![[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"
Kod:
=Numara()formun "Yüklendiğinde" olayına
Kod:
BicimlendirmeleriSil Me
BicimlendirmeEkle MeKod:
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
