Hello,
I have a main form. I want forms to open in a subform control box.
What is the code for the option group to open the subforms in the
control box.
I didn't create subforms, I created regular forms, but will create
subforms if that is needed for this to work.
My main goal is when a user clicks on a menu item and comes to a main
form, they can click on different buttons to open the needed form
without me having to create the same main form over and over again to
make it look good.
Below is what I was provided but I'm getting an error saying the
subform doesn't exist or is closed.
Create an option group with the number of options the same as the
number of
subforms. Here's the code for three subforms, you can expand it to
what ever
you need:
Me!MyTabCtl.Value = Me!MyOptionGroup - 1
Select Case Me!MyOptionGroup
Case 1
Me!Subform1MyField.SetFocus
Case 2
Me!Subform2MyField.SetFocus
Case 3
Me!Subform3MyField.SetFocus
End Select
Put your menu on the left and add a subform control on the right. Use
the
menu to set the recordsource of the subform control
(Me!nameOfSubformControl.Form.Recordsource = "SFrmMySubformName1").
You can
tinker with the properties of the subform control so that the subform
control is transparent and all you see is the current subform.
Put your menu on the left and add a subform control on the right. Use
the
menu to set the recordsource of the subform control
(Me!nameOfSubformControl.Form.Recordsource = "SFrmMySubformName1").
You can
tinker with the properties of the subform control so that the subform
control is transparent and all you see is the current subform.
Let's say you need three different subforms. Create each subform and
name
them:
MySubform1
MySubform2
MySubform3
On the right side of your main form, add a subform control (from the
toolbox) and name it MySubformControl. At this point, do not enter a
source
object for the subform control. For your menu you could use an option
group
with three options. Name the option group MyOptionGroup. Put the
following
code in the Afterupdate event of the option group:
Select Case Me!MyOptionGroup
Case 1
Me!MySubformControl.Form.SourceObject = "MySubform1"
Case 2
Me!MySubformControl.Form.SourceObject = "MySubform2"
Case 3
Me!MySubformControl.Form.SourceObject = "MySubform3"
End Select
