Date question

[kpryan]

Hi,
Is it possible when a date reaches a certain date that the background colour can change?

many thanks,

KP

 

[missinglinq]

I'm afraid you're going to have to make it a little clearer exactly what you mean by "when a date reaches a certain date." It might also help to know what version of Access you're running.

The Missinglinq

Richmond, Virginia

There's ALWAYS more than one way to skin a cat!

 

[randy700]

Sure.
Something like this in the forms open event...

Private Sub Form_Open(Cancel As Integer)
    If Date >= #11/20/2007# Then
        Me.Detail.BackColor = vbBlue
        Me.FormFooter.BackColor = vbBlue
        Me.FormHeader.BackColor = vbBlue
    Else
        Me.Detail.BackColor = vbGreen
        Me.FormFooter.BackColor = vbGreen
        Me.FormHeader.BackColor = vbGreen
    End If
End Sub

Randy

 

[kpryan]

Many thanks missingling,
for your reply. I'm using Access 2002
I have a staff planner system.
When the date reaches a public hloiday I want the dates background to change colour so that our co ordinator will not allcoate staff work on this day.


Regards,

KP

 

[kpryan]

Hi Randy700,

Many thanks for your help it works, but the date format want to do it in USA. When I change it to the Australian Format it changes back to USA. In the computer setup it is set for Australia.

Is there a reaon why this sholud happen in MS access?

KP

 

[JerryKlmns]

VBA expects dates and decimal point to be in US. To bypass that, use the DateSerial function that always returns a well accepted date value.

Something
If Date >= DateSerial(2007, 11, 14)