.Visible is going wrong or Prevalue is not set?

[Thompyt]

I have a Radial button that I am trying to set up so wneh selected another field pops up. With the following it works if I select twice as the other field alwats shows upon opening the form:

I am trying to set the default value of NIE without going into the Design view of the Table or Form.

Private Sub NIE_Default_Click()
If Me![NIE_Default] = True Then
Me![NIE].Visible = True


Else
Me![NIE].Visible = False
End If
End Sub

I would prefer to use a button though. I do think I can relate this same code to a button and have it work.

Where is it going wrong?

Thanks
T

[ssanfu]

What is "a Radial button"? Do you mean a option button?

If so, you could use"

Private Sub NIE_Default_Click()
    Me![NIE].Visible = Not Me![NIE].Visible
End Sub

I am having a hard time understanding what you are asking. Need more details.

[burrina]

Not sure of your intentions here! Try this: Of course you will need a Me.Requery and Me,Dirty = False using the OnClickEvent of the button and of course the main code needs to be on the OnCurrentEvent.

If Me.NIE = -1 Then
Me.NIE.Visible = False
Else
Me.NIE.Visible = True
End If

HTH

[burrina]

Guess I was too slow Steve! Better option is yours anyway.

[Thompyt]

ssnafu,
Thanks. You version is shorter, but gives the same result.

I am trying to set the default value of NIE field without going into the Design view of the Table or Form. So I am wanting the NIE Field lookup to be not visible until the the radial/button is selected. Once the value is entered, then the NIe field Lookup disappears. If there is an easier way, please advise. Otherwise the user will need to edit the list that pops up.

thanks

[Thompyt]

Works best for me:

Private Sub NIE_Beforeupdate()
Me![NIE].Visible = False
End Sub
Private Sub NIE_Default_Click()
Me![NIE].Visible = Not Me![NIE].Visible
End Sub

[ssanfu]

You can set the default value of a form or control, but to save that value, you have to set it in design view.

One option is to have a table with one field to store the value you want as the default and use VBA to read/write the value to the control/table.