Check-box to hide/show input fields

[RapidFireGT]

I’m trying to use a check-box to show/hide several input fields on a form. The names of the objects are:

• Check-box: CustomerCheckBox
• Input 1 field: customer_first_name
• Input 2 field: customer_last_name
• Input 3 field: customer_phone

According to my Google searching, I have the proper code and I’ve tried entering it into the check-box’s events After Update and On Click, and I’ve also tried adding the code to the form’s On Current event. Here is the code I’ve used in all 3 places (it’s the same code repeated):

Private Sub CustomerCheckBox_AfterUpdate()


  Me.customer_first_name.Visible = (Me.CustomerCheckBox = True)
  Me.customer_last_name.Visible = (Me.CustomerCheckBox = True)
  Me.customer_phone.Visible = (Me.CustomerCheckBox = True)


  End Sub

Private Sub CustomerCheckBox_Click()


  Me.customer_first_name.Visible = (Me.CustomerCheckBox = True)
  Me.customer_last_name.Visible = (Me.CustomerCheckBox = True)
  Me.customer_phone.Visible = (Me.CustomerCheckBox = True)


  End Sub

Private Sub Form_Current()


  Me.customer_first_name.Visible = (Me.CustomerCheckBox = True)
  Me.customer_last_name.Visible = (Me.CustomerCheckBox = True)
  Me.customer_phone.Visible = (Me.CustomerCheckBox = True)


  End Sub

Strange thing is, this code worked just fine when I created a brand new blank database and tried using a check-box to show/hide a label on a form.

Private Sub Check1_Click()

Me.Label0.Visible = (Me.Check1)

End Sub

Any ideas why it’s not working in my populated database/form?

[boblarson]

If it isn't working from the After Update event, you should

1. make a copy of the database file first before step 2 (just in case something goes wrong)
2. Decompile the database file.
(see here for how: http://www.granite.ab.ca/access/decompile.htm )

[aytee111]

Or...

you can simplify the code:

(OnClick)
If checkbox=true then
customer.visible=true
else
customer.visible=false
end if

repeat for each text box