It should work fine for any text box.

If I use copy and paste which, (for example is WhereSeen) BOTH fields flash. I only want the field I have selected to flash. Where is my VBA code wrong?

How are you selecting the field? Are you using a combo box with a list of field names in it? Or do you mean the field that has focus?

I am selecting the field with the following sub-routine:-

Private Sub btnWhereSeenSearch_Click()
    Dim S As String
    S = InputBox("Enter Where Seen", "Where Seen Search Box", "")
    If S = "" Then Exit Sub
    Me.Filter = "WhereSeen Like ""*" & S & "*"""
    Me.FilterOn = True
End Sub

If that's the case, then ALL of the fields will have values that match your criteria. Are you talking about the currently selected RECORD?

I have 8 fields on my form each with their own unique search button to trigger each search (As above Search Sub-routine). This works correctly on all of the fields. (The above Timer Sub-routine) also works correctly on the field VehicleMake, but if I copy and paste into this routine and alter VehicleMake to WhereSeen BOTH fields flash. I do not want this to happen, I only want the field I have searched on. I want to use both of the Sub-routines on all of the fields (by altering text field names for each field).

Then you'll need to make a variable (or another field) to store the name of which field you're searching on. Use that in your code to determine which field to make flash.

This is far too complicated for me to understand. I need some sort of example to show me what you mean, or I shall have to give in.

I'll add it to the list.

If I'm understanding right, just make an unbound text field on the form. Say its called SearchColor. On you're search buttons on click event, do SearchColor="SearchFieldNameYouClickedHere", then just need to grab that in your timer.

Private Sub Form_Timer()
      Dim X As String
      X = SearchColor
      If Me.FilterOn = True Then
      If X.BorderColor = vbBlack Then
           X.BorderColor = vbRed
           X.ForeColor = vbRed
        Else
           X.BorderColor = vbBlack
           X.ForeColor = vbBlack
    End If
       End If
End Sub

Upon testing, it appears that wont work. Same idea but need to change if statement. This may be the overcomplicated way
If X = "SearchFieldName" Then
SearchFieldName.BorderColor = vbRed
ElseIf X = "OtherFieldName" Then
OtherFieldName.BorderColor = vbRed
etc

There ya go. That's what I was suggesting. :)

Richard, this is a super example of how you take time from a busy day to take care of someone.  To this I have to say CUDOS.

V/r
Juan

First of all I would like to thank Richard and Adam for their efforts in trying to help me. However, I still don't fully understand Adam's
solution. I would be obliged if this example was written out in full.

I'll try to explain how I would do it a little more clearly, otherwise I'll leave it to Richard's videos. Will take a few posts.
You say you have 8 search buttons, for my example I'm going to call the 2 of my buttons used in my examples VehicleSearchButton and YearSearchButton and their 2 respective flashing fields are going to be VehicleSearchField and YearSearchField You will need to take my names and rename them accordingly to your fields.

Start with the Unbound Text field, put a text field on the form and I'll name mine SearchFieldName
You can set Visible No so it won't be around on your form.

Go through and add this line SearchFieldName="VehicleSearchButton" to all of your search buttons On Click Events, replacing VehicleSearchButton with the respective Buttons Name, this will let us know which button was pressed, and it will store it in our unbound field SearchNameField.

Now we know which button was pressed, we just need to add it to our timer event.

Private Sub Form_Timer()
      Dim X As String
      X = SearchFieldName
      If Me.FilterOn = True Then
      If X = "VehicleSearchButton" Then
           If VehicleSearchField.BorderColor = vbBlack Then
               VehicleSearchField.BorderColor = vbRed
               VehicleSearchField.ForeColor = vbRed
           Else
              VehicleSearchField.BorderColor = vbBlack
              VehicleSearchField.ForeColor = vbBlack
            End If
      ElseIf X = "YearSearchButton" Then
           If YearSearchField.BorderColor = vbBlack Then
           YearSearchField.BorderColor =vbRed
           YearSearchField.ForeColor = vbRed
           Else
           YearSearchField.BorderColor = vbBlack
           YearSearchField.ForeColor = vbBlack
           End If
   End If
End If
End Sub

Continue to add all 8 of your buttons in this fashion. An ElseIf X = for each one. Hopefully I didn't typo anything was little difficult keeping it in the character limits. Hope this helps!

Nice job, Adam. Above and beyond!

Promote ASAP!