Conditional Formatting Access 2003

[LostBoy]

Hi All,

I have a couple Date fields in a form that are usually Null but when they are not I would like the field to be highlighted, bold and flash. I usually right click on the field and go to Conditional Formatting, there I know you can set the conditions but I do not know how to make the field flash (hopefully that is the right term). If there is any reference someone can give me that would be great. If this cannot be done please let me know as well. Thank you for any input.

[puppydogbuddy]

Hi All,

I have a couple Date fields in a form that are usually Null but when they are not I would like the field to be highlighted, bold and flash. I usually right click on the field and go to Conditional Formatting, there I know you can set the conditions but I do not know how to make the field flash (hopefully that is the right term). If there is any reference someone can give me that would be great. If this cannot be done please let me know as well. Thank you for any input.

See this link for a step by step:
http://www.databasedev.co.uk/control_flash.html

[ADezii]

Hi All,

I have a couple Date fields in a form that are usually Null but when they are not I would like the field to be highlighted, bold and flash. I usually right click on the field and go to Conditional Formatting, there I know you can set the conditions but I do not know how to make the field flash (hopefully that is the right term). If there is any reference someone can give me that would be great. If this cannot be done please let me know as well. Thank you for any input.

1. I'll provide the code for the 1st Date Field which I named txtDateField1, just incorporate similar code for the 2nd Field.
2. Set the Form's Timer Interval to 1000 (1 second), adjust to your liking.
3. The following code will poll the Status of txtDateFiel1 every second to see if it is Null or not. If it is Not Null, the Font will be Bold and a pseudo flashing will occur.
4. Place the following code in the Form's Timer() Event.
   

   Private Sub Form_Timer()
   Static lngCounter As Long, fld1 As TextBox
    
   Set fld1 = Me![txtDateField1]
    
   lngCounter = lngCounter + 1
    
   If IsNull(fld1) Then
     fld1.FontBold = False
     fld1.BackColor = QBColor(15)
   Else
     fld1.FontBold = True
       If lngCounter Mod 2 = 0 Then    'produces the Flash Effect
         fld1.BackColor = QBColor(15)
       Else
         fld1.BackColor = 10092543   'Light Yellow
       End If
   End If
   End Sub

[LostBoy]

Thanks puppydogbuddy and ADezii for the reference and the code, I was able to understand it. I got all the fields working, I really appreciate all the help.