Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations gkittelson on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Label flash question

Status
Not open for further replies.

tamer64

IS-IT--Management
Aug 27, 2007
120
US
I hava form called "Customer_Data" which is a continous form. Its bound to a table called "Customer" In this table I have four field: CustID(Pri-key, Cust_Name, Cust_Inv, DueDate. I am trying make the duedate field flash if its greater than todays date. the problem is it making the entire column "DueDate" flash. How do I adjust the code below to so it will only flash for the record in question, in this case record number 1.

Example of my form:

CustID Cut_Name Cust_Inv Due Date
1 Mary Jane 24534 [red]03/23/2010[/red]
2 Kay Jarvis 45465 [red]04/03/2010[/red]
3 David Elder 65765 [red]04/03/2010[/red]

[blue]Private Sub Form_Current()
If Me!DueDate >= Date Then
Me.DueDate.Visible = True
Me.TimerInterval = 300
Else
Me.DueDate.Visible = True
Me.TimerInterval = 0
End If

Private Sub Form_Timer()
With Me.DueDate
.ForeColor = (IIf(.ForeColor = vbRed, vbBlack, vbRed))
End With
End Sub [/blue]
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top