Command Buttons - Hiding/Unhiding

[Hello World]

Hi all,



In Access 2002 I have 6 buttons on my non continuous form. Their names being:

1. Yes
2. No
3. FormLeftBlank
4. DefacedForm
5. IlegibleForm
6. NoSignature

I also have a combobox on my form with the six values inside it being (notice the spaces):

1. Yes
2. No
3. Form Left Blank
4. Defaced Form
5. Ilegible Form
6. No Signature

What I require is that when the value in the combo box is chosen then the approriate command button becomes visible (and all the others stay hidden). I.e. If the user chooses the 'Yes' value in the combo box then the 'Yes' command button appears. I need this for all six values in the combobox.

Can anyone help?

[RuralGuy]

You would simply use code in the AfterUpdate event of the ComboBox.

[Hello World]

Hi RG,

I tried this but I didn't know how to create the code to cover all the permutations?

Private Sub Answer_AfterUpdate()
   If Answer.Text = "Yes" Then
      Yes.Visible = False
      No.Visible = True
   Else
      Yes.Visible = True
      No.Visible = False
   End If
End Sub

[RuralGuy]

Start here:

Me.Yes.Visible = False
Me.No.Visible = False
Me.FormLeftBlank.Visible = False
Me.DefacedForm.Visible = False
Me.IlegibleForm.Visible = False
Me.NoSignature.Visible = False
Select Case Me.Answer
   Case "Yes"
      Me.Yes.Visible = True
   Case "No"
      Me.No.Visible = True
   ...
End Select

[Toyman]

Hi all,

In Access 2002 I have 6 buttons on my non continuous form. Their names being:

1. Yes
2. No
3. FormLeftBlank
4. DefacedForm
5. IlegibleForm
6. NoSignature

I also have a combobox on my form with the six values inside it being (notice the spaces):

1. Yes
2. No
3. Form Left Blank
4. Defaced Form
5. Ilegible Form
6. No Signature

What I require is that when the value in the combo box is chosen then the approriate command button becomes visible (and all the others stay hidden). I.e. If the user chooses the 'Yes' value in the combo box then the 'Yes' command button appears. I need this for all six values in the combobox.

Can anyone help?

Put this in the after update event of the combo box:

 
Select case Me.YourComboBoxName
Case "Yes"
Me.[Yes].Visible=True
Me.[No].Visible=False
Me.FormLeftBlank.Visible=False
Me.DefacedForm.Visible=False
Me.IlegibleForm.Visible=False
Me.NoSignatureVisible=False
Case "No"
Me.[Yes].Visible=False
Me.[No].Visible=True
Me.FormLeftBlank.Visible=False
Me.DefacedForm.Visible=False
Me.IlegibleForm.Visible=False
Me.NoSignatureVisible=False
Case "Form Left Blank"
Me.[Yes].Visible=false
Me.[No].Visible=False
Me.FormLeftBlank.Visible=True
Me.DefacedForm.Visible=False
Me.IlegibleForm.Visible=False
Me.NoSignatureVisible=False
Case "Defaced Form"
Me.[Yes].Visible=False
Me.[No].Visible=False
Me.FormLeftBlank.Visible=False
Me.DefacedForm.Visible=True
Me.IlegibleForm.Visible=False
Me.NoSignatureVisible=False
Case "Ilegible Form"
Me.[Yes].Visible=False
Me.[No].Visible=False
Me.FormLeftBlank.Visible=False
Me.DefacedForm.Visible=False
Me.IlegibleForm.Visible=True
Me.NoSignatureVisible=False
Case "No Signature"
Me.[Yes].Visible=False
Me.[No].Visible=False
Me.FormLeftBlank.Visible=False
Me.DefacedForm.Visible=False
Me.IlegibleForm.Visible=False
Me.NoSignatureVisible=True
End Select