Problem with Cascading Combo/List Boxes

Good Morning:

I have a form where I am trying to create cascading combo boxes. I have done this before but I am getting the following error that is throwing me off:

Basically have three tables:

One for the Division location:

tblDivision
DivisionID = Autonumber
DivisionName = Text

One for the Segment:

tblSegment
SegmentID = Autonumber
SegmentName = Text

One for the Unique Locations (Many to Many Relationship Tbl):
tblLocationsMM

JtnLocationsID = Autonumber
DivisionIDFK = Number (Foreign Key)
SegmentIDFK = Number (Foreign Key)
WrkRegIDFK = Number (Foreign Key)
CreditRegIDFK= Number (Foreign Key)
BrokerTypeIDFK= Number (Foreign Key)


I followed the cascading script method posted on this website and created a form, put 3 combo boxes on it:

cboDivision (bound on column 1, row source tblDivision, column count set to 2, Column Widths set @ 0";1")
cboSegment (bound on column 1, row source blank, column count set to 2, Column Widths set @ 0";1")
cboWrkReg (bound on column 1, row source blank, column count set to 2, Column Widths set @ 0";1")


In the after update event of my cboDivision I placed the following code:

Any ideas why I am getting an error? Any ideas would be helpful.

Thanks,

Keith.

re: Problem with Cascading Combo/List Boxes

I solved this one, no need to reply.....

I had another cascading code where the definition event procedure was the issue:

Private Sub cboSegment_AfterUpdate(Cancel As Integer)

Changed to:

Private Sub cboSegment_AfterUpdate()

That is what happens when you copy your old code to something new.......

Thanks,

Keith.