Access VBA afspille kode ved filtrering i dataark visning

Mangler hjælp til at køre nedenst. kode, når man i en subform i dataarkvisning har valgt filtering på en af kolonnerne. Koden virker fint, men jeg kan ikke få den til at afspille automatisk når man har valgt kolonnefiltre. Har forsøgt at anvende "vedfiltrering" og "vedanvendfilter" hændelserne - uden held.

Koden:
' ændrer filteringskriterier til AND stedet for OR
Dim FilterOld As String
Dim FilterNew As String
If Me.FilterOn = True Then
FilterOld = Me.Filter
'MsgBox "her er det gamle filter: " & FilterOld
FilterNew = Replace(FilterOld, " Or ", " And ")
'MsgBox "her er det nye filter: " & FilterNew
Me.Filter = FilterNew
Me.FilterOn = True
Me.Requery
End If