Date problem??

Topic

New Reply

I have some code in a birthday report that I would like it to highlight and put a star beside everyone whose birthday is in the current month. So far this is what I have:

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)

Dim MyDate, MyMonth, MyMonth2, MyDate2
MyDate = [BirthDate+]
MyMonth = Month(MyDate)
MyDate2 = Date
MyMonth2 = Month(MyDate2)
If MyMonth2 = MyMonth Then
Me![BirthDate+].FontBold = True
Me![BirthDate+].FontName = “Arial Black”
Me![BirthDate+].FontSize = 12
Me![BirthDate+].ForeColor = vbRed
Me![BirthDate+].BackColor = vbYellow
Me![imggoldstar].Visible = True
Else
Me![BirthDate+].FontBold = False
Me![BirthDate+].FontName = “Arial”
Me![BirthDate+].FontSize = 9
Me![BirthDate+].ForeColor = vbBlack
Me![BirthDate+].BackColor = vbWhite
Me![imggoldstar].Visible = False
End If

End Sub

It is not working. The birthdays that it is highlighting are 01 and 08 for the month. The current month is 04. Can anyone suggest a way to do this?

Reply | Quote

Replies

Hello Linda:
No need for all the parsing: If Month(MyDate) = Month(Date()) should work.

Reply | Quote

Thanks – it works!!

Reply | Quote

I think your 4th line should be:

MyDate2=Date() Using Parenthesis.

Reply | Quote

Try changing the statement

MyDate = [BirthDate+] to

MyDate = me![BirthDate+]

Richard Aheron
raheron@hotmail.com

Reply | Quote

Be careful with naming fields. Using a name BirthDate+ could lead to problems with the + sign.

Reply | Quote