Emergency plz help.

[Lewis2015]

I have this problem and cannot figure out for the life of me what I am doing wrong or what I am missing. Any help would be appreciate please and Thank you in advance.

Private Sub Form_Current()
'If the Expiration date value is ealier than January 1, 2017
'display the words "Time to renew"
'in label control to the right of the Expiration text box in bold, and red,
'display the text in the Expiration control in red
If ExpirationDate < #1/1/2017# Then
lblExpirationMsg.Visible = True
ExpirationDate.ForeColor = vbRed
End If
lblExpirationMsg.Visible = False
lblExpirationMsg.ForeColor = vbBlack
End Sub

 

[FuzMic]

Your cry for emergency help draws my attention, great :banghead:

I am not sure what your problem is, i presume you can't filter the date right. If that is the your problem, your #1/1/2017# may be clearer with #1/Jan/2017#. On 2nd thought because it is 1/1 can only mean Jan, so i am not sure it will solve your unstated problem.

What is the error message when you run it or debug it?

 

[pbaldy]

Your last 2 lines should be in an a Else clause. As is, they run no matter what.

 

[FuzMic]

Master Paul is very right; no error, just nothing will happen eg no change of colour.

 

[Lewis2015]

Ok so here is the problem written out!

Create an event procedure for the form's OnCurrent event in the frmMemberInfo form to do the following:
a. If the Expiration date value is earlier than January 1, 2017, display the words "Time to renew" in a label control to the right of the Expiration text box in bold, and red, and display the text in the Expiration control in red.

b. No special action is required for other Expiration field values.
c. Test the procedure, and then save your form changes.

That is everything in a nut shell. Thank you all for your help in advance. I have been on this problem for 4 days now.

 

[Lewis2015]

Your cry for emergency help draws my attention, great :banghead:

I am not sure what your problem is, i presume you can't filter the date right. If that is the your problem, your #1/1/2017# may be clearer with #1/Jan/2017#. On 2nd thought because it is 1/1 can only mean Jan, so i am not sure it will solve your unstated problem.

What is the error message when you run it or debug it?

Ok so here is the problem written out!

Create an event procedure for the form's OnCurrent event in the frmMemberInfo form to do the following:
a. If the Expiration date value is earlier than January 1, 2017, display the words "Time to renew" in a label control to the right of the Expiration text box in bold, and red, and display the text in the Expiration control in red.

b. No special action is required for other Expiration field values.
c. Test the procedure, and then save your form changes.

That is everything in a nut shell. Thank you all for your help in advance. I have been on this problem for 4 days now.

 

[pbaldy]

Did you read post 3?

 

[Lewis2015]

Thank you Paul. And thank you to all. Have a wonderful week.

 

[pbaldy]

Happy to help!