Skip to main content

AccessTr.neT


Rgb Fonksiyonu Bordercolor, Backcolor

Rgb Fonksiyonu Bordercolor, Backcolor

#1
Visual Basic Code
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 Sub
@benbendedeilem
Cevapla
#2
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?
"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. 
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da