Kode til filter

Hej
jeg har et stykke kode der filtrerer ud fra 2 forskellige datofelter. Filter indeholder de poster hvor enten det ene eller det andet datofelt = dags dato idag.

Jeg skulle gerne lave en variant der udover det ovennævnte kun medtager  poster hvor  numerisk felt AFS <1

koden ser således ud lige  nu :

Private Sub filterIdag_Click()
On Error GoTo Err_filterIdag_Click
    Me.Filter = "levdato = #" & Format(Date, "MM-DD-YYYY") & " # Or afhdato = #" & Format(Date, "MM-DD-YYYY") & " # "
    Me.FilterOn = True
    DoCmd.GoToControl "[levdato]"
   

Exit_filterIdag_Click:
    Exit Sub

Err_filterIdag_Click:
    Resume Exit_filterIdag_Click
   
End Sub

mvh
Knud