Cascading Combo Code Not Working

[ShannaD]

Can anyone help me with this? I am using the following code for cascading
combo boxes and I keep getting an "Undefined Function" error and the end of
the "Where VendorCode" line is highlighted.

Private Sub VendorChoiceCombo_AfterUpdate()
Me!ProcessChoiceCombo = Null

If IsNull(VendorChoiceCombo) Then
Me!VendorChoiceCombo.SetFocus
Me!ProcessChoiceCombo.Enabled = False
Else
Me!ProcessChoiceCombo.Enabled = True
Me!ProcessChoiceCombo.RowSource =
ReplaceWhereClause(Me!ProcessChoiceCombo.RowSource, _
"Where VendorCode = " & Me!VendorChoiceCombo)
Me!ProcessChoiceCombo.Requery
End If
End Sub

I am about to pull my hair out. Any help would be greatly appreciated!

Thanks!
Shanna

 

[Daniel Pineault]

Does the procedure

ReplaceWhereClause() actually exist, can you locate it in a module?
--
Hope this helps,

Daniel Pineault
http://www.cardaconsultants.com/
For Access Tips and Examples: http://www.devhut.net
Please rate this post using the vote buttons if it was helpful.