+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Örnekleri ve Uygulamaları (https://accesstr.net/forum-excel-ornekleri-ve-uygulamalari.html)
+--- Konu Başlığı: Rgb Fonksiyonu Bordercolor, Backcolor (/konu-rgb-fonksiyonu-bordercolor-backcolor.html)
Rgb Fonksiyonu Bordercolor, Backcolor - accessman - 12/01/2020
Sub Form_Current()
Dim curAmntDue As Currency, lngBlack As Long
Dim lngRed As Long, lngYellow As Long, lngWhite As Long
If Not IsNull(Me!txtPastDue.Value) Then
curAmntDue = Me!txtPastDue.Value
Else
Exit Sub
End If
lngRed = RGB(255, 0, 0)
lngBlack = RGB(0, 0, 0)
lngYellow = RGB(255, 255, 0)
lngWhite = RGB(255, 255, 255)
If curAmntDue > 100 Then
Me!txtPastDue.BorderColor = lngRed
Me!txtPastDue.ForeColor = lngRed
Me!txtPastDue.BackColor = lngYellow
Else
Me!txtPastDue.BorderColor = lngBlack
Me!txtPastDue.ForeColor = lngBlack
Me!txtPastDue.BackColor = lngWhite
End If
End SubCvp: Rgb Fonksiyonu Bordercolor, Backcolor - ozanakkaya - 12/01/2020
Sayın @accessman, paylaşımınız için teşekkür ederim, ancak. "Rgb Fonksiyonu Bordercolor, Backcolor" adında bir konu, konu içeriğinde kod.
Bu kodu görenler ne anlayacak, basit bir Excel belgesine uyarlayıp ekler misiniz?