Combo box selection determines which data entry (new*) subform to open

[stephanie77]

Hi



I desesperately need help on this. I've done lot of research on the net but couldn't find an effecient code that actually works. My database concerns vehicle's manufacturing information and sales follow up.

I have 2 forms (use as subforms) intend to fill in information on vehicle's major components serial numbers. We have two different types of vehicles : diesel or electric. This characteristic changes the whole manufacturing concept of the vehicle and what components is installed.

The selection between diesel and electric would be executed with a combo box. Once selected, I want this selection to determine which data entry form (form as new*) will be shown as sub form so I will only have fields really concerning the info I've got to store in the database regarding this specific vehicle.

Can anyone help me on this matter?

Thanks in advance!

[andy49]

So when the combo says petrol you want one subform. And when you select diesel you want another?


Sent from my iPhone using Tapatalk

[stephanie77]

So when the combo says petrol you want one subform. And when you select diesel you want another?


Sent from my iPhone using Tapatalk

Exactly!

SubFrm_DieselMajorComponents or
SubFrm_ElectricMajorComponents

[stephanie77]

Exactly! Either

SubFrm_DieselMajorComponents or
SubFrm_ElectricMajorComponents

[andy49]

I'd say Change the combo boxes on update event.

Use an if statement in Code to open the subform you need




Sent from my iPhone using Tapatalk

[aytee111]

Use the subform's Visible property - set Me!Subformname.Visible=True/False depending on the combobox value.

[stephanie77]

Andy : I had this but something's wrong with it, gives me an error

Private Sub CboChassisType_AfterUpdate()


Select Case Me.CboChassisType

If Me.CboChassisType.Value = 1 Then
SubFrm_DieselMajorComponents.Visible = True
SubFrm_ElectricMajorComponents.Visible = False
End If


If Me.CboChassisType.Value = 2 Then
SubFrm_DieselMajorComponents.Visible = False
SubFrm_ElectricMajorComponents.Visible = True
End If
End Select
End Sub


aytee111 : let me check that

[andy49]

try this:

Private Sub CboChassisType_AfterUpdate()


 Select Case Me.CboChassisType.value

case = 1 
 SubFrm_DieselMajorComponents.Visible = True
 SubFrm_ElectricMajorComponents.Visible = False



case = 2 

 SubFrm_DieselMajorComponents.Visible = False
 SubFrm_ElectricMajorComponents.Visible = True

 End Select
 End Sub

[stephanie77]

Thanks a lot Andy for your help ! Aytee your suggestion was in fact part of the solution!

Just in case anyone would like the same kind of code, here is the final/working code :


Private Sub CboChassisType_AfterUpdate()


Select Case Me.CboChassisType.Value


Case Is = 1
SubFrm_DieselMajorComponents.Visible = True
SubFrm_ElectricMajorComponents.Visible = False




Case Is = 2


SubFrm_DieselMajorComponents.Visible = False
SubFrm_ElectricMajorComponents.Visible = True


End Select


End Sub



Also for newbies like me, you put all your subforms in the main form (stacked on each other) and set "visible" property to "no"