Button On Click Open Subform

[jaanisf]

Hi!
Seems like a simple thing but I do not know, how to make it. Well, I have an index form with a set of buttons. On pressing a button I want a subform to come up with another set of buttons according to the button pressed in an index form. And I want there a subform with no buttons when an index form opens. So, what I should write behind my first button's On Click, presuming I want a subform [sbfrmName1] to come up, and what I should write behind my index form's On Open, presuming I want a subform [sbfrmIndex] to come up?
Thanks in advance!

 

[jfgambit]

Why make a subform with buttons? I would suggest just adding the buttons to the form and set the Visible Properties to NO. Then add the following to the On Click event of a command button:

Me.NameofButton.Visible = True
Me.NameofButton2.Visible = True


If you really need to do this on a subform you can do the sme thing. Create teh subform with the buttons. Add it to the Main form and set the Visible Properties to NO. Then add the following to the On Click event of a command button:

Me.SubFormName.visible = False

To make it invisible with the click of another button the code is

Me.SubFormName.visible = True

HTH



"I know what you're t'inkin', ma petite. Dat Gambit... still de suave one, no?"

 

[jaanisf]

It does not work. Error 424: Object required.
And, I need 5 subforms, not one. All five in the same place. And every subform will contain also 5 buttons, so, if I do not use subforms, I have a mess with buttons in my index form.

 

[jfgambit]

Please post your code so that we can review it


"I know what you're t'inkin', ma petite. Dat Gambit... still de suave one, no?"

 

[jaanisf]

Private Sub btnIenaakumi_Click()
Subfindex.Visible = False
Subfienaakumi.Visible = True
End Sub

 

[danvlas]

The code looks fine. Check the names of the subforms as controls on the main form. Maybe those names are not the same as (sub)forms names...




Daniel Vlas
Systems Consultant

http://www.geocities.com/danvlas/AutoMail.html

 

[jaanisf]

This was all I needed, now it works, thank you

Private Sub btnIenaakumi_Click()
Me!subf.Visible = True
Me!subf.SourceObject = "SubfIenaakumi"
Forms!Index!subf.SetFocus
End Sub