Simple Code: or should be!! Newby Help Please!

[Richard Green]

Can anyone help please. I have several controls on a Main Form. One of them is a combo box named "Designation". It calls from a table the employment status of a person. On my form when the word "RESIGNED" is displayed in the combo box, I want a label to become visible stating "This Person Has Resigned".I used this code in the Form Properties/On Current.

Private Sub Form_Current()

Me![ImageFrame].Picture = Me

If Me.Designation.Value = "RESIGNED" Then
Label101.Visible = True
Else
Label101.Visible = False
End If
End Sub
I don't get any error message, but I don't get the label either. Can someone help please?

 

[s1police]

need to add "me.refresh" at the last line. Can you try?

 

[boblarson]

Actually, put this code in the combo box's After Update too so that it updates when the combo is changed. The On Current event only fires when you move between records.

 

[Richard Green]

Thanks s1Police and Bob Larson. Tried both of those but to no avail

 

[boblarson]

Are you sure that your combo is returning a string value or maybe it is returning an ID number which then wouldn't be equal to "Resigned"

In the After Update event of the combo put this to see what it is returning:

Msgbox Me.YourComboBoxNameHere

 

[Richard Green]

Thanks Bob, Have put in the code, but nothing - no message box.

 

[boblarson]

What version of Access are you using?

 

[boblarson]

The reason I ask is that, if you are using 2007, you should be aware of this:
http://www.btabdevelopment.com/main...owtoenablecodeandmacros/tabid/57/Default.aspx

because it sounds as if your code isn't actually running.

 

[s1police]

are you using "RESIGNED" when design? Not the ID, right?!!

 

[s1police]

I suggest you try to create a variable and store the value of Me.Designation.Value, then use MsgBox to print it out. Let see what is the value it is storing first.