Help Plz. Creating cascading comboBoxes then form crashes

[dbalilti]

Hi everyone,

So I am creating a new database with four tables.

I want to create a simple form which allows the user to go through the four hierarchies in order to display some data.

I am using 4 or 5 combo boxes in a cascading fashion in order to filter through the database.

combo boxes work correctly and the data starts to populate as i get more and more detailed with the combo boxes, but if I go back up to the combo boxes before the form usually crashes!

I will give an explain

I go from combo box 1-->2-->3-->4 then back up to 2-->3 (crash). I can change 2 but once i get to 3 and change it, the form crashes.!



Please help me! Tell me what other information you might need.

Main form: http://s23.postimg.org/qt8pxqim3/main_form.jpg
Table Relationship:http://s8.postimg.org/xcardyxj9/table_relationships.jpg

Here is my Visual Basics code.

Option Compare Database

Private Sub asset_AfterUpdate()

Me.description.Requery
Me.Requery
Me.a.Visible = True
Me.b.Visible = True
Me.c.Visible = True
Me.d.Visible = True
Me.e.Visible = True
Me.f.Visible = True
Me.g.Visible = True
Me.h.Visible = True
Me.i.Visible = True
Me.j.Visible = True
Me.k.Visible = True
Me.l.Visible = True
Me.m.Visible = True
Me.a.Visible = True
Me.n.Visible = True
Me.o.Visible = True
Me.p.Visible = True
Me.q.Visible = True
Me.r.Visible = True
Me.s.Visible = True
Me.t.Visible = True
Me.u.Visible = True
Me.v.Visible = True
Me.w.Visible = True
Me.x.Visible = True
Me.y.Visible = True
Me.z.Visible = True
End Sub

Private Sub classification_AfterUpdate()
Me.facility.Requery
Me.Requery
End Sub

Private Sub description_AfterUpdate()
Me.Requery
End Sub

Private Sub facility_AfterUpdate()
Me.address.Visible = True
Me.c_year.Visible = True
Me.r_value.Visible = True
Me.City.Visible = True
Me.m_unit.Visible = True
Me.o_condition.Visible = True
Me.a_catagory.Visible = True

Me.Asset.Requery
Me.Requery

End Sub
Private Sub Form_Load()
Me.address.Visible = False
Me.c_year.Visible = False
Me.r_value.Visible = False
Me.City.Visible = False
Me.m_unit.Visible = False
Me.o_condition.Visible = False
Me.a_catagory.Visible = False
Me.a.Visible = False
Me.b.Visible = False
Me.c.Visible = False
Me.d.Visible = False
Me.e.Visible = False
Me.f.Visible = False
Me.g.Visible = False
Me.h.Visible = False
Me.i.Visible = False
Me.j.Visible = False
Me.k.Visible = False
Me.l.Visible = False
Me.m.Visible = False
Me.a.Visible = False
Me.n.Visible = False
Me.o.Visible = False
Me.p.Visible = False
Me.q.Visible = False
Me.r.Visible = False
Me.s.Visible = False
Me.t.Visible = False
Me.u.Visible = False
Me.v.Visible = False
Me.w.Visible = False
Me.x.Visible = False
Me.y.Visible = False
Me.z.Visible = False
End Sub

Note, the combo boxes cascade from classification-->facility-->asset-->description

[June7]

If you want to provide db for analysis, follow instructions at bottom of my post.

[dbalilti]

I will provide a database for analysis as soon as I remove confidential data. Unfortunetly, there is alot of data

[Dal Jeanis]

The first thing I'd check - when the user changes the higher-level combo box, are you properly clearing the values of all the dependent combo boxes? Have you set the order of the AfterUpdate operations so that you don't get an infinite requery?


for instance, in the cboClassification_AfterUpdate, do these in this order

Me.cboAsset = Null
Me.cboFacility = Null
Me.Requery

Then in cboFacility_AfterUpdate, you can test for the NULL and not do a requery unless you have actual data, thus avoiding an infinite loop.

[dbalilti]

Perfect.

Once I did this, Alot of my crashing stopped. I also removed any uneccesary requeries & so far everything looks good. No crashing..

Thank you