The most successful MSPs rely on metrics – known as key performance indicators (KPIs) – for making informed decisions that help their businesses thrive, rather than just survive. This eBook provides an overview of the most important KPIs used by top MSPs.
Call two subforms on a Main Form with one buton
Experts I have a Main Form which has two (Unbound) Subforms [SFsubform] and [SFsubform1] which call subforms depending on which button is clicked however each button only calls one subform (i.e.) button1 on a click event calls a subform to [SFsubform] only and I am looking for a button on a click event to be able to call different subforms to both subforms [SFsubform] and [SFsubform1].
I have attached the code I use for one button 1 subform procedure can someone please show me how i convert it to one button 2 subforms please.
Thanks in advance.
I have attached the code I use for one button 1 subform procedure can someone please show me how i convert it to one button 2 subforms please.
Thanks in advance.
Option Compare Database
Option Explicit
'MainForm and SubForm Visability Control ************
'
Sub closesf(sForm As String)
Me.sfsubform.SourceObject = sForm
End Sub
'******Open Mainform SubForm Option1********
'
Private Sub Command104_Click()
Call closesf("CMSMainSubForm1")
End Sub
Who is Participating?
Experts Exchange Solution brought to you by
Enjoy your complimentary solution view.
Get every solution instantly with Premium.
Start your 7-day free trial.
I wear a lot of hats...
"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.
Hi I have tried your solution but I cannot get to work I keep getting
Compile Error:
Argument not optional
I have attached my final code. The only other thing that might be causing a problem is that I have more than one button which calls a subform to [SFsubform] and [SFsubform1] which works well when one button opens one subform but not when I try to cahnge code as suggested.
I
Many thanks again in advance for your help.
Compile Error:
Argument not optional
I have attached my final code. The only other thing that might be causing a problem is that I have more than one button which calls a subform to [SFsubform] and [SFsubform1] which works well when one button opens one subform but not when I try to cahnge code as suggested.
I
Many thanks again in advance for your help.
Option Compare Database
Option Explicit
'MainForm and SubForm Visability Control ************
'
Sub closesf(sForm As String, sForm5 As String)
Me.sfsubform.SourceObject = sForm
Me.sfsubform1.SourceObject = sForm5
End Sub
''******Open MainFormSubform Start Screen********
'This opens Subform [CMSMainformMain] on subform sfsubform
Private Sub Command123_Click()
Call closesf("CMSMainSubFormMain", "CMSReportsModule")
End Sub
'******Open Mainform SubForm Option1********
'This opens Subform [CMSMainformSub1] on subform sfsubform1
Private Sub Command104_Click()
Call closesf("CMSMainSubForm1")
End Sub
'******Open Mainform SubForm Option1********
'This opens the Find Project Form on subform sfsubform1
Private Sub Command59_Click()
Call closesf("FindProjectForm")
End Sub
'******Open Mainform SubForm Option2********
'This opens Subform [CMSMainformSub2] on subform sfsubform1
Private Sub Command105_Click()
Call closesf("CMSMainSubForm2")
End Sub
'******Open Mainform SubForm Option3********
'This opens Subform [CMSMainformSub3] on subform sfsubform1
Private Sub Command106_Click()
Call closesf("CMSMainSubForm3")
End Sub
'******Open Mainform SubForm Option4********
'This opens Subform [CMSMainformSub4] on subform sfsubform1
Private Sub Command107_Click()
Call closesf("CMSMainSubForm4")
End Sub
'******Open Mainform SubForm Option5********
'This opens Subform [CMSMainformSub5] on subform sfsubform1
Private Sub Command108_Click()
Call closesf("CMSMainSubForm5")
End Sub
Ok, If I'm understanding this correctly, you have two subform controls on your main form - and you want to be able to set either one of them to have any form as a source object - correct?
If that is the case, you would have to change the sub and the way the sub is called in each of your click events.
The sub would have to be changed like this (I've shown you the syntax for a few here. You need to do this with all of the calls to closesf:
Sub closesf(sForm As String, sFormControl as string) '<--- Add sFormControl so that the name of the subform control can be specified
Me.controls(sFormControl).
End Sub
''******Open MainFormSubform Start Screen********
'This opens Subform [CMSMainformMain] on subform sfsubform
Private Sub Command123_Click()
Call closesf("CMSMainSubFormMai
Call closesf("CMSReportsModule"
End Sub
'''' **** Note that since you have added an argument to the sub, you need to include that argument in ALL of the calls to that sub. ****
'******Open Mainform SubForm Option1********
'This opens Subform [CMSMainformSub1] on subform sfsubform1
Private Sub Command104_Click()
Call closesf("CMSMainSubForm1",
End Sub
'******Open Mainform SubForm Option1********
'This opens Subform [CMSMainformSub1] on subform sfsubform1
Private Sub Command59_Click()
Call closesf("FindProjectForm",
End Sub
'******Open Mainform SubForm Option2********
'This opens Subform [CMSMainformSub2] on subform sfsubform1
Private Sub Command105_Click()
Call closesf("CMSMainSubForm2",
End Sub
If that is the case, you would have to change the sub and the way the sub is called in each of your click events.
The sub would have to be changed like this (I've shown you the syntax for a few here. You need to do this with all of the calls to closesf:
Sub closesf(sForm As String, sFormControl as string) '<--- Add sFormControl so that the name of the subform control can be specified
Me.controls(sFormControl).
End Sub
''******Open MainFormSubform Start Screen********
'This opens Subform [CMSMainformMain] on subform sfsubform
Private Sub Command123_Click()
Call closesf("CMSMainSubFormMai
Call closesf("CMSReportsModule"
End Sub
'''' **** Note that since you have added an argument to the sub, you need to include that argument in ALL of the calls to that sub. ****
'******Open Mainform SubForm Option1********
'This opens Subform [CMSMainformSub1] on subform sfsubform1
Private Sub Command104_Click()
Call closesf("CMSMainSubForm1",
End Sub
'******Open Mainform SubForm Option1********
'This opens Subform [CMSMainformSub1] on subform sfsubform1
Private Sub Command59_Click()
Call closesf("FindProjectForm",
End Sub
'******Open Mainform SubForm Option2********
'This opens Subform [CMSMainformSub2] on subform sfsubform1
Private Sub Command105_Click()
Call closesf("CMSMainSubForm2",
End Sub
Experts Exchange Solution brought to you by
Your issues matter to us.
Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.
Start your 7-day free trial
Final code for other users to understand how problem was solved !
'*****************************************************************************************************************
'New Mainform Subform window switching code 5th July 2009
'*****************************************************************************************************************
Sub closesf10(sform As String, sformcontrol As String)
Me.Controls(sformcontrol).SourceObject = sform
End Sub
Private Sub Command166_Click()
Call closesf10("CMSMainSubFormMain", "sfsubform")
Call closesf10("CMSReportsModule", "sfsubform1")
End Sub
'This opens Subform [CMSMainformSub1] on subform sfsubform and Reports Module on sfsubform1
Private Sub Command104_Click()
Call closesf10("CMSMainSubForm1", "sfsubform")
Call closesf10("CMSReportsModule", "sfsubform1")
End Sub
'This opens Subform [CMSMainformSub2] on subform sfsubform and Reports Module on sfsubform1
Private Sub Command105_Click()
Call closesf10("CMSMainSubForm2", "sfsubform")
Call closesf10("CMSReportsModule", "sfsubform1")
End Sub
'This opens Subform [CMSMainformSub3] on subform sfsubform and Reports Module on sfsubform1
Private Sub Command106_Click()
Call closesf10("CMSMainSubForm3", "sfsubform")
Call closesf10("CMSReportsModule", "sfsubform1")
End Sub
'This opens Subform [CMSMainformSub4] on subform sfsubform and Reports Module on sfsubform1
Private Sub Command107_Click()
Call closesf10("CMSMainSubForm4", "sfsubform")
Call closesf10("CMSReportsModule", "sfsubform1")
End Sub
'This opens Subform [CMSMainformSub5] on subform sfsubform1 and Reports Module on sfsubform1
Private Sub Command108_Click()
Call closesf10("CMSMainSubForm6", "sfsubform")
Call closesf10("CMSReportsModule", "sfsubform1")
End Sub
'This opens Subform [CMSMainformMain] on subform sfsubform
Private Sub Command123_Click()
Call closesf10("CMSMainSubFormMain", "sfsubform")
Call closesf10("CMSReportsModule", "sfsubform1")
End Sub
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Microsoft Access
From novice to tech pro — start learning today.
Experts Exchange Solution brought to you by
Enjoy your complimentary solution view.
Get every solution instantly with Premium.
Start your 7-day free trial.
Sub closesf(sForm As String, sForm1 as string)
Me.sfsubform.SourceObject = sForm
Me.sfsubform1.SourceObject
End Sub
Private Sub Command104_Click()
Call closesf("CMSMainSubForm1",
End Sub