Cascading Combo Code Not Working

S

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top