make fields visible onclick() button

[rivereridanus]

Hello,

I am struggling with some vba coding in access 2007.

I have a form which has 4 fields for inputting items directly into a table. I also have a button called Command122 which I want users to be able to click to display 4 more (invisible) input fields.

When I click the button, I get the error "Method or Data Not Found". Could someone help me with my code?

Private Sub Command122_Click()
Me.Label18.Visible = True
Me.Label19.Visible = True
Me.Label20.Visible = True
Me.Label21.Visible = True
Me.object5.Visible = True


Me.object6.Visible = True
Me.object7.Visible = True
Me.object8.Visible = True
End Sub

[boblarson]

Just a quick note for you (as your edit appears that you solved the problem) but make sure to give your controls MEANINGFUL names. Using names like Command122 or object5, unless you absolutely need to have that naming for iterating through them for some reason, is not good. The reason is that it becomes a real pain later on down the road (even 6 months to a year for you) when you have to go back to things and then you (or someone who comes after you) needs to figure out what is what instead of being able to look at the code and say, "OH! There's the name field." Or something like that.

[rivereridanus]

Yeah, you're right. I didn't bother to do that since this is the only instance of vba coding that I was doing in this db, but I will be sure to be careful of that.

I appreciate your help!

[syed faraz]

Hi
I am also facing the same issue : make fields visible onclick() button. I am trying to make visible the fields when i press add command. Please help me with this.

Thanks
Syed

[syed faraz]

Hi Bob,

Could you please tell me the solution of the below request i.e.below. I am also facing the similar issue.

---------------------------------------------------------
I am struggling with some vba coding in access 2007.

I have a form which has 4 fields for inputting items directly into a table. I also have a button called Command122 which I want users to be able to click to display 4 more (invisible) input fields.

When I click the button, I get the error "Method or Data Not Found". Could someone help me with my code?

Private Sub Command122_Click()
Me.Label18.Visible = True
Me.Label19.Visible = True
Me.Label20.Visible = True
Me.Label21.Visible = True
Me.object5.Visible = True
Me.object6.Visible = True
Me.object7.Visible = True
Me.object8.Visible = True
End Sub