ms 97
howto call from a label box? thank you :)
Sub Form_Current()
Dim curAmntDue As Currency, lngBlack As Long
Dim lngRed As Long, lngYellow As Long, lngWhite As Long
If Not IsNull(Me!txtPa stDue.Value) Then
curAmntDue = Me!txtPastDue.V alue
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.B orderColor = lngRed
Me!txtPastDue.F oreColor = lngRed
Me!txtPastDue.B ackColor = lngYellow
Else
Me!txtPastDue.B orderColor = lngBlack
Me!txtPastDue.F oreColor = lngBlack
Me!txtPastDue.B ackColor = lngWhite
End If
End Sub
^from ms... how to call this?
from http://msdn.microsoft.com/en-us/libr...ffice.11).aspx
thank you
u know i luv u :)
howto call from a label box? thank you :)
Sub Form_Current()
Dim curAmntDue As Currency, lngBlack As Long
Dim lngRed As Long, lngYellow As Long, lngWhite As Long
If Not IsNull(Me!txtPa stDue.Value) Then
curAmntDue = Me!txtPastDue.V alue
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.B orderColor = lngRed
Me!txtPastDue.F oreColor = lngRed
Me!txtPastDue.B ackColor = lngYellow
Else
Me!txtPastDue.B orderColor = lngBlack
Me!txtPastDue.F oreColor = lngBlack
Me!txtPastDue.B ackColor = lngWhite
End If
End Sub
^from ms... how to call this?
from http://msdn.microsoft.com/en-us/libr...ffice.11).aspx
thank you
u know i luv u :)
Comment