Opening a subform based on the option selected in a main form

[jinalpatel]

I have three option buttons (1 option group): construction projects, non construction projects and aquisition projects.

I have created a form with more than 35 data entry fields for each of this options.ex.frmC onstructionProj ects,frmNoncons tructionProj, frmAquisitionPr ojects

When user selects an option fromm the options group it should open the respective subform.

Private Sub optProject_Click()
If Me.optProject.Value = 1 Then
DoCmd.OpenForm "frmNonConstructionProj
Else
If Me.optProject.Value = 2 Then
DoCmd.OpenForm "frmConstructionProjects
Else
If Me.optProject.Value = 3 Then
DoCmd.OpenForm "frmAquisitionProjects"
End If
End If
End If
End Sub
 

It opens a new form rather than putting it like a subform under the option group object. How to make it look like a subform which only contains a data respective to the selected option?

Thanks !!

[ChipR]

It sounds like you want to use a Tab control, and put the appropriate data on each tab page.

[jinalpatel]

Thats one way!!
here is some change in req.
I want all those option buttons on main tab. When user selects one of the option the respective subform (or form)should be opened on 11th tab.
The goal here is :Not giving user the access to all the three kinds of prjects type's data entry fields!!
thanks much!!

[ChipR]

You could have 3 subforms and show/hide them. Or, if the format of the subform is the same, you could just dynamically set the source for a single subform.
Actually, it doesn't seem like you need a subform, just a bunch of controls (data entry fields) that you can hide/unhide.

[jinalpatel]

Where to write the code for show/hide the subform and how?
Is it under the click event of the 11th tab (page)?
something like

If Me.optProject = 1 Then
Show "frmConstructionProjects"
End If
 

[ChipR]

I'd probably keep it in the option group's After_Update. Then you won't change it needlessly. You can do:

mySubform.Visible = True

[jinalpatel]

thanks for the help!!

[ChipR]

You probably want to set one form to Visible = True, and the other two forms to Visible = False in the AfterUpdate code that you already have. Are there 3 values for your optProjects, because you need a case for each of them.

None of the subforms are going to be visible if the user isn't viewing the tab that they are on anyway, but if you really want to hide them you can watch for the tab control's Change() event, test the value of the tab control to see what # tab is now being viewed, and hide/show things accordingly.

[jinalpatel]

Thanks ChipR for your help!! I appreciate it.

[jinalpatel]

Here is the code if anybody is looking at this thread for help themselves!!

Private Sub optProjects_AfterUpdate()
If Me.optProjects.Value = 1 Then
frmConstructionProjects.Visible = True
frmNonConstructionProj.Visible = False
frmAquisitionProjects.Visible = False
End If
 
If Me.optProjects.Value = 2 Then
frmNonConstructionProj.Visible = True
frmConstructionProjects.Visible = False
frmAquisitionProjects.Visible = False
End If
 
If Me.optProjects.Value = 3 Then
frmAquisitionProjects.Visible = True
frmConstructionProjects.Visible = False
frmNonConstructionProj.Visible = False
End If
 
End Sub

OR

Private Sub optProjects_AfterUpdate()
Select Case Me.optProjects
 
Case 1
 
frmConstructionProjects.Visible = True
frmNonConstructionProj.Visible = False
frmAquisitionProjects.Visible = False
 
 
Case 2
 
frmNonConstructionProj.Visible = True
frmConstructionProjects.Visible = False
frmAquisitionProjects.Visible = False
 
Case 3
 
 
frmAquisitionProjects.Visible = True
frmConstructionProjects.Visible = False
frmNonConstructionProj.Visible = False
 
Case Else
frmAquisitionProjects.Visible = False
frmConstructionProjects.Visible = False
frmNonConstructionProj.Visible = False
End Select
 
End Sub
 

I know it is easy but still!!!