ms access search while type

Dear All,

How to resolved below :

In search-1 I searched for the word "Body" I got results from this result I searched with Search-2 in PPU number 12.
All I want is to show in the word ItemDescription with "BODY" and in PPU "12" see photo



I use below VBA :

Private Sub txtSearch_KeyUp(KeyCode As Integer, Shift As Integer)
   Me.frmlistprod.Form.Filter = "[ItemCode] Like '*" & Me.txtSearch.Text & "*' or " _
    & "[ItemDescription] Like '*" & Me.txtSearch.Text & "*' or " _
    & "[PPU] Like '*" & Me.txtSearch.Text & "*'"
    Me.frmlistprod.Form.FilterOn = True

End Sub

Private Sub txtSearch2_KeyUp(KeyCode As Integer, Shift As Integer)
 Me.frmlistprod.Form.Filter = "[ItemCode] Like '*" & Me.txtSearch.Text & "*' or " _
    & "[ItemDescription] Like '*" & Me.txtSearch.Text & "*' or " _
    & "[PPU] Like '*" & Me.txtSearch.Text & "*'"
    Me.frmlistprod.Form.FilterOn = True
  
End Sub

If PPU is filtered by the text in Search-2, you should change the section filtering PPU to "[PPU] Like '*" & Me.txtSearch2.Text & "*'"

Use txtSearch_Change() and txtSearch2_Change() event is better.

Private Sub txtSearch_Change()
   Me.frmlistprod.Form.Filter = "[ItemDescription] Like '*" & txtSearch.Text & "*' and " _
    & "[PPU] Like '*" & Me.txtSearch2 & "*'"
    Me.frmlistprod.Form.FilterOn = True
End Sub



Private Sub txtSearch2_Change()
   Me.frmlistprod.Form.Filter = "[ItemDescription] Like '*" & Me.txtSearch & "*' and " _
    & "[PPU] Like '*" & txtSearch2.Text & "*'"
    Me.frmlistprod.Form.FilterOn = True
End Sub