Originally Posted by
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?
Put this in the after update event of the combo box:
Code:
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