I've got this code on a few of my Fields to do Specific searches on those Fields, but for some reason I never noticed this happen before.  When I search for on a particular Field that does have what I'm looking for everything is fine, but when it doesn't find anything and I try to get out of the Filter I get this error:

Run-Time Error "3021"
No Current Record.

When I debug it brings me to this code:

Private Sub Form_ApplyFilter(Cancel As Integer, ApplyType As Integer)
    Me.Recordset.MoveLast
End Sub

With Me.Recordset.MoveLast highlighted.

This is my search code:

Private Sub SearchAirportCodeBtn_Click()
    Dim S As String
    
    S = InputBox("Please Enter The IATA or IACO Airport
    Code", "SEARCH For A Specific IATA or IACO Airport
    Code")

    If S = "" Then Exit Sub
      
    Me.Filter = "AirportCode LIKE ""*" & S & "*"""
    Me.FilterOn = True
End Sub

But the First Code is associated with this code:

Private Sub Form_Current()
    RecCountBx = Me.Recordset.AbsolutePosition + 1 & " of "
    & Me.Recordset.RecordCount
End Sub