VBA Programming for After Change() event?

[mrmims]

Hello,



I have two unbound text boxes I use to search through Components by Part Number or Manufacturer. They both work perfect independently of each other, but I want to combine the search so if searching by Manufacturer doesn't narrow down far enough then typing a Part Number will filter based on what is already narrowed down from typing in a Manufacturer. Here is the VBA I am using. How do I combine these two???

Private Sub CompTxt_Change()


Dim str1 As String


str1 = "[PartNumber] LIKE '*" & Me.CompTxt.Text & "*'"


Me!SUBFRM_Component_Datasheet.Form.Filter = str1
Me!SUBFRM_Component_Datasheet.Form.FilterOn = True
Me!SUBFRM_Inventory_Totals.Form.Filter = str1
Me!SUBFRM_Inventory_Totals.Form.FilterOn = True


End Sub


Private Sub ManuTxt_Change()


Dim str2 As String


str2 = "[ManufacturerName] LIKE '*" & Me.ManuTxt.Text & "*'"


Me!SUBFRM_Component_Datasheet.Form.Filter = str2
Me!SUBFRM_Component_Datasheet.Form.FilterOn = True
Me!SUBFRM_Inventory_Totals.Form.Filter = str2
Me!SUBFRM_Inventory_Totals.Form.FilterOn = True


End Sub

Thank you for you help

[pbaldy]

Along the lines of:

str1 = "[PartNumber] LIKE '*" & Me.CompTxt.Text & "*' AND [ManufacturerName] LIKE '*" & Me.ManuTxt.Text & "*'"

But of course you can only use the .Text property in the change event of the control with focus. Personally I'd use the after update event, unless you want keystroke by keystroke results.

[mrmims]

Thank you for the help!

I do want the keystroke by keystroke feature. It is a small enough database, I am not worried about slowing down.

I tried your suggestion, but get this error:

Run Time Error '2185':

You can't reference a property or method for a control unless the control has the focus.


I am guessing because I am typing in CompTxt while referencing ManuTxt?

Any other ideas?

[pbaldy]

Like I said, you can only use the Text property in the event of the control with focus. Don't use it referencing the other control.

[mrmims]

Ah, thank you

[pbaldy]

No problem.