Field Visibility Based on Yes/No Option Group

[tm1274]

Hello Everyone. I am working on a small database that currently has a single form with a yes/no option group named "ROption" and I would like to make a text box, named "RMargin" visible if the option "No" is selected in the group but make the text box "RMargin" invisible if the user selects "Yes" in the option group "ROption".
I cannot find a good example online to make it work correctly and was wondering if someone would have an example I could look at to see how it should be coded? This is what I have but it only makes the text box invisible if "Yes" is selected but does not make it visible when "No" is selected.

Private Sub ROption_AfterUpdate()
If Me.ROption = "No" Then
Me.RMargin.Visible = True
Else
Me.RMargin.Visible = False
End If
End Sub

[June7]

You mention textbox RMargin but code shows RetailMargin.

[tm1274]

You are correct. I was typing something in another application and switching back and forth and somehow inadvertently typed "Retail" in the code. I have corrected it in my original post. Thanks for pointhing that out.

[June7]

Option Group takes value of selected RadioButton (or checkbox or toggle). This value would be a number, not text. Why do you use "No"?

What values do you assign to each RadioButton - 1 and 2? Reduce code to one line:

Me.RMargin.Visible = Me.ROption = 1

Or 0 and -1

Me.RMargin.Visible = Not Me.ROption

All records will apply same setting because there is only the one RMargin textbox. This may be confusing for users if form is in Continuous View (or maybe they will be just fine). Conditional Formatting could dynamically enable/disable textbox for each record all at once.

[Welshgasman]

If you used Boolean you could get away with

Me.RMargin.Visible = Not ROption

[tm1274]

I have very little coding experience. I have looked on the web for examples and seen 1 and 0 used but also saw an example where words were used instead, so I thought either was fine.

[June7]

If you saw words then likely some code was taking the number value and translating to text. Would be interested in seeing the example you found.

[tm1274]

Hello June7. Your code

Me.RMargin.Visible = Me.ROption = 1

worked perfectly. I have visited a lot of sites so I don't which had the code I saw the text but I will go through my history and let you know if I can find it again. I really appreciate your assistance with this specific issue.

[tm1274]

No luck on the website with the text on the option group but if I do find it later I will post a link.