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]
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]