Form display different wording and font color if a field is active.

[Subizzle]

I am totally new to Access/Programming in general. In fact this question is based on an assignment I have to complete. In fact it is the last assignment for the semester. So far I have scored all 100's on my assignments. I have picked up this vanilla version of Access fairly easily. But it is pretty basic. But this problem I cannot for the life of me figure out what to do. I have tried multiple things and none seem to work. My current version has been the closest to being complete yet. But I am stumped. I need a label to change what it says depending on if the MemberID box is active or not.

Active = Word1 Bold, and change font color
Inactive= Word 2 Bold, and change font color.



This is what I have so far.

Private Sub Form_Current()    'For when the MembershipStatus field is active, display the word current and the field value in magneta
    'For when the MembershipStatus field is not active display the word review and the field value in blue
        If MemberID.Value = "Active" Then
            MemberID.ForeColor = FF00FF
            Me.lblCurrentMsg.Caption = "Current"
        Else
            MemberID.ForeColor = 16711680
            Me.lblCurrentMsg.Caption = "Review"
      End If
End Sub

Thanks for any and all assistance.

[orange]

You mention

MembershipStatus field

but you're testing

If MemberID.Value = "Active"

??

Do you get an error message??

[Subizzle]

I corrected the comment thanks for pointing that out. When I was reworking it I did some sloppy coding. Below is the correct info as it currently stands. I think the issue could possibly be with If

MemberID.Value = "Active" Then

. Brain is fried. I am enjoying learning this material though. Also I tried saving it as a mdb and it would not let me. All of our work is done in accdb, we are required to use Access 2010.

Private Sub Form_Current() 'For when the MemberID field is active, display the word current and the field value in magneta
'For when the MemberID field is not active display the word review and the field value in blue
If MemberID.Value = "Active" Then
lblCurrentMsg.ForeColor = FF00FF
Me.lblCurrentMsg.Caption = "Current"
Else
lblCurrentMsg.ForeColor = 16711680
Me.lblCurrentMsg.Caption = "Review"
End If
End Sub

[Subizzle]

I tried this and I get a compile error.

If Me.MemberID.active = "true" Then
     Me.lblCurrentMsg.ForeColor = FF00FF
     Me.lblCurrentMsg.Caption = "Current"
Else
     Me.lblCurrentMsg.ForeColor = 16711680
      Me.lblCurrentMsg.Caption = "Review"
End If

[orange]

MemberId sounds like it should be a number.
Can you recheck the assignment info and confirm exactly which field could contain "Active"?

[Subizzle]

Ok, so since you said that I realized I made a boneheaded mistake. There is an entirely separate field labeled MembershipStatus. I really need to take my time doing this stuff. So now it works. Only problem is when it switches to "current" the color is black and not magenta. I wonder if the property settings have something to do with that?

Private Sub Form_Current()    'For when the MemberID field is active, display the word current and the field value in magneta
    'For when the MemberID field is not active display the word review and the field value in blue
        If MembershipStatus.Value = "Active" Then
            lblCurrentMsg.ForeColor = F433FF
            Me.lblCurrentMsg.Caption = "Current"
        Else
            lblCurrentMsg.ForeColor = 16711680
            Me.lblCurrentMsg.Caption = "Review"
      End If
End Sub

[Subizzle]

I think it was because when I think of a field as being active I think that is actually selected and active.

[orange]

The are some vb constants for color. Try vbMagenta and vbBlue for the colors.

[Subizzle]

I will give that a go.

[Subizzle]

vb colors worked!! Learned something new there. Literally I have like 2 hours experience with VB haha. Now just hunting down the bold option. You have been a tremendous help orange! I look forward to learning more on this forum, my contact with vb, access and other languages is just beginning.

[Subizzle]

All done and submitted, thanks again orange.

[orange]

Glad to help.