VBA Filter not working with Multiple criteria

[jlgray0127]

Hi!


I am having an issue with using two different criteria to filter a form and am asking for some assistance!

The Part Type Def data type is short text and that part of the code works fine.
When I added in the Workorder_ID, which is a numeric data type, I am getting a mismatch error.
Any thoughts on what I'm missing? I've searched and searched and can not find a solution that works. Any help is greatly appreciated! Thank you!


Private Sub PART_TYPE_DEF_DblClick(Cancel As Integer)
Me.Filter = "PART_TYPE_DEF Like '*" & Me.PART_TYPE_DEF & "*'" And WorkOrder_ID = "& Me.WorkOrder_ID"
Me.FilterOn = True




End Sub

[CJ_London]

Double quotes are not correct

Me.Filter = "PART_TYPE_DEF Like '*" & Me.PART_TYPE_DEF & "*' And WorkOrder_ID = " & Me.WorkOrder_ID

[jlgray0127]

I had tried this. I'm getting a runtime error 3709 "The Search Key was not found in any record"

I just tried again, in case I did a typo, and copy and pasted and am getting the same error. It's a head scratcher!

[Welshgasman]

You haven't gone and done what this person did, have you?

https://www.access-programmers.co.uk...record.327867/

[jlgray0127]

LOL!
I did NOT make that same error! :P

[CJ_London]

I did NOT make that same error!

suggest show the sql to your form recordsource to verify that

given your propensity for the use of the underscore, perhaps WorkOrder_ID should be Work_Order_ID?