Problem with Cascading Combo/List Boxes

[kcdoell]

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:

  Procedure declaration does not match description of event or procedure having the same name. 

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:

Private Sub CboDivision_AfterUpdate()
 
'When the Division is selected, the appropriate Segment list will
'display in the drop down list of CboSegment
 
   With Me![cboSegment]
     If IsNull(Me!cboDivision) Then
        .RowSource = ""
      Else
        .RowSource = "SELECT DISTINCT tblSegment.SegmentID, " & _
         "tblSegment.SegmentName " & _
         "FROM TblLocationsMM INNER JOIN tblSegment " & _
        "ON TblLocationsMM.SegmentIDFK = tblSegment.SegmentID " & _
         "WHERE [DivisionIDFK]=" & Me!cboDivision
      End If
     Call .Requery
End With
 
End Sub
 

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

Thanks,

Keith.

[kcdoell]

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.