How-2 Make A TextBox Flash On A Specific Date

  • Thread starter Thread starter Charles Phillips
  • Start date Start date
C

Charles Phillips

Hello,
I am using MS-Access 97.
I am trying to make a text box flash on a specific date in/on the
form/label...
This is my code:

Private Sub Form_Current()
If Date >= Text224.Date() Then
Me.TimerInterval = 500
Else
Me.TimerInterval = 0
Me.Text224.ForeColor = vbRed
End If
End Sub

Can someone tell me what I am doing wrong?

Charles L. Phillips
 
Hi Charles

Do you also have a Timer procedure to perform the flashing?

Private Sub Form_Timer()
With Me.Text224
If .ForeColor = vbRed Then
.ForeColor = vbWhite
Else
.ForeColor = vbRed
End If
End With
End Sub
 
Back
Top