Combo subform filter not working

[Ali29J]

Hi All

Having some trouble trying to apply a filter to a subform using a combo box selection.

I have the following code on the after update of the combo box, but which ever i select it just leaves the subform showing no records

Dim rs As Object

Me.frmInternalQuotesSubAll.Form.Filter= "InternalQuoteCustomer='" & Me.Combo30 & "'"
Me.frmInternalQuotesSubAll.Form.FilterOn = True

Can anyone offer some idea what i m doing wrong? i have a similar combo filter on the same form which works fine....

Ali

 

[PHV]

If InternalQuoteCustomer is defined as numeric then get rid of the single quotes.

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[gwinn7]

What happens when you set the recordsource of your subform? I rarely use the filter option.

Did you check to make sure the event code is linked to the after_update event in your control properties?

Gary
gwinn7

 

[Ali29J]

no its not a numeric a text field...