Skip to main content

AccessTr.neT M.


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 (  https://www.excelcampus.com/tools/  )
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?

Cevapla
...........

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task