Yes/No options linking to other Fields

  • Thread starter Thread starter adrian007uk
  • Start date Start date
A

adrian007uk

Hi i was wondering if anybody can point me in the right direction.

I would like to know if there is anyway of using a yes/no box that when a
user changes its state to 'Yes' (in a form) a text box will appear (in the
same form) allowing ther user to enter the appropriate text. The text box
does not have to be hidden (but it would be great if it could be grayed out),
it just cannot allow text to be entered into it when the box is marked as
'No'.

Adrian
 
Hi i was wondering if anybody can point me in the right direction.

I would like to know if there is anyway of using a yes/no box that when a
user changes its state to 'Yes' (in a form) a text box will appear (in the
same form) allowing ther user to enter the appropriate text. The text box
does not have to be hidden (but it would be great if it could be grayed out),
it just cannot allow text to be entered into it when the box is marked as
'No'.

Adrian
Click to expand...

Code the Check Box AfterUpdate event:
Me.[OtherControl].Enabled = Me.[CheckBoxName]

Place the same code in the Form's Current event.
 
Private Sub chkWhatever_AfterUpdate()
If Me.chkWhatever = True Then

' Uncomment the 1 you want to happen
' Me.txtOther.Enabled = True
' MetxtOther.Visible = True
Else
' Me.txtOther.Enabled = False
' MetxtOther.Visible = False
End If
End Sub

If you want this to persist after you change records and/or re-open records
you'll also need to call it in the form's Current event:

Private Sub Form_Current()
chkWhatever_AfterUpdate
End Sub
 
Hi fredg

Thanks, that worked great.

fredg said:
Hi i was wondering if anybody can point me in the right direction.

I would like to know if there is anyway of using a yes/no box that when a
user changes its state to 'Yes' (in a form) a text box will appear (in the
same form) allowing ther user to enter the appropriate text. The text box
does not have to be hidden (but it would be great if it could be grayed out),
it just cannot allow text to be entered into it when the box is marked as
'No'.

Adrian
Click to expand...

Code the Check Box AfterUpdate event:
Me.[OtherControl].Enabled = Me.[CheckBoxName]

Place the same code in the Form's Current event.
Click to expand...
 
Thanks Arvin

I thought your code was complicated but i managed to get it to work. I can
now use yours or fredg's answers as both work.

Many thanks.

Adrian
 
Back
Top