Brand New to Access need Assist with Search via txt box in a form

[soapbox3000]

I have the database imported from an excel spreadsheet.

I am using the Asset Template for Access (Office365 ProPlus version 1904).

The filter form and table were not needed so I removed them.

My need:
I am looking for a simple search function that allows me to Search across 4 - 5 columns for specific or keyword information in the form. I would prefer to not use a query if at all possible.

What I have done thus far:
I took the filters macro that came with the template and converted it to VBA for easier editing. (My VBA knowledge is very basic FYI) I added and removed things I knew I didn't need like setting up temp vars in reference to the Filter Details Form and Table. Under QuickSearch, I changed the filter names for the columns to the columns I had imported from the Excel Spreadsheet.

My Issue:
I am currently having an issue trying to get the Command Buttons to either call the function from the Module via Macro or to use an Event Procedure to call the specific Function from the Module.

I would graciously accept any assistance you guys can provide.

Thanks in Advance!

Code is below:

Attribute VB_Name = "Converted Macro- Filters"
Option Compare Database
 
'------------------------------------------------------------
' Filters
'
'------------------------------------------------------------
Function Filters()
On Error GoTo Filters_Err
 
    Beep
    ' Macro can't be run from the navigation pane.
    Exit Function
 
 
Filters_Exit:
    Exit Function
 
Filters_Err:
    MsgBox Error$
    Resume Filters_Exit
 
End Function
 
'------------------------------------------------------------
' Filters_ClearFilter
'
'------------------------------------------------------------
Function Filters_ClearFilter()
On Error Goto Filters_ClearFilter_Err
 
    With CodeContextObject
        If (CurrentProject.IsTrusted And .Form.Name = "Asset List") Then
            .Form!cboFilterFavorites = ""
        End If
        ' Clear Filter
        DoCmd.ApplyFilter "", """""", ""
        If (.Form.Name = "Asset List" And Not (.Form!chkShowRetired)) Then
            ' Filter out Retired assets if checkbox is cleared
            DoCmd.ApplyFilter "", Eval("""[Retired Date ] is null or [Retired Date ] > date()"""), ""
        End If
        DoCmd.GoToControl "txtSearchBox"
        DoCmd.SetProperty "cmdSearchClear", acPropertyVisible, "0"
        DoCmd.SetProperty "iconSearchClear", acPropertyVisible, "0"
        DoCmd.SetProperty "cmdSearchGo", acPropertyVisible, "-1"
        If (CurrentProject.IsTrusted) Then
            .txtSearchBox = ""
        End If
        Exit Function
    End With
 
 
Filters_ClearFilter_Exit:
    Exit Function
 
Filters_ClearFilter_Err:
    MsgBox Error$
    Resume Filters_ClearFilter_Exit
 
End Function
 
'------------------------------------------------------------
' Filters_QuickSearch
'
'------------------------------------------------------------
Function Filters_QuickSearch()
On Error Goto Filters_QuickSearch_Err
 
    With CodeContextObject
        If (.txtSearchBox = "") Then
            ' Clear Filter when search box empty
            DoCmd.RunMacro "Filters.ClearFilter", , ""
            End
        End If
        If (VarType(.txtSearchBox) <> 8) Then
            End
        End If
        DoCmd.SetProperty "cmdSearchGo", acPropertyVisible, "-1"
        If (.txtSearchBox = "" And .cmdSearchClear.Visible <> 0) Then
            DoCmd.SetProperty "cmdSearchClear", acPropertyVisible, "0"
            End
            DoCmd.SetProperty "iconSearchClear", acPropertyVisible, "0"
        End If
        ' Handle "'s in search
        TempVars.Add "strSearch", Replace(.txtSearchBox, """", """""")
        ' Build the Filter for the Asset list
        If (.Form.Name = "Asset List") Then
            TempVars.Add "strFilter", "([Status] Like "" * " & [TempVars]![strSearch] & " * "" )"
        End If
        If (.Form.Name = "Asset List") Then
            TempVars.Add "strFilter", TempVars!strFilter & " OR ([Account/Matter] Like "" * " & [TempVars]![strSearch] & " * "" )"
        End If
        If (.Form.Name = "Asset List") Then
            TempVars.Add "strFilter", TempVars!strFilter & " OR ([Container] Like "" * " & [TempVars]![strSearch] & " * "" )"
        End If
        If (.Form.Name = "Asset List") Then
            TempVars.Add "strFilter", TempVars!strFilter & " OR ([NTID] Like "" * " & [TempVars]![strSearch] & " * "" )"
        End If
        If (.Form.Name = "Asset List") Then
            TempVars.Add "strFilter", TempVars!strFilter & " OR ([BP Barcode] Like "" * " & [TempVars]![strSearch] & " * "" )"
        End If
 
        ' Apply the Filter
        DoCmd.ApplyFilter "", TempVars!strFilter, ""
        TempVars.Remove "strFilter"
        TempVars.Remove "strSearch"
        DoCmd.SetProperty "cmdSearchClear", acPropertyVisible, "-1"
        DoCmd.SetProperty "iconSearchClear", acPropertyVisible, "-1"
        DoCmd.GoToControl "txtSearchBox"
        DoCmd.SetProperty "cmdSearchGo", acPropertyVisible, "-1"
    End With
 
 
Filters_QuickSearch_Exit:
    Exit Function
 
Filters_QuickSearch_Err:
    MsgBox Error$
    Resume Filters_QuickSearch_Exit
 
End Function
 
 

[twinnyfo]

soapbox3000,

Welcome to Bytes!

First, before we get too far down the "this is really an overcomplexification of avery simple thing" road, I want to ask exactly what it is you are trying to do? It looks like one of the most complicated basic searches I've every seen.

If, you simply want to "search for" something, then, if the form has the navigation buttons displayed (which is a built in feature of Access forms), then just use the search box at the bottom of your form.

But, If you must actually create a filter for the records you are displaying, that is an entirely different story and there is probably a series of additional questions, answers and calrifying details we will need on this one.

Don't give up hope--we just need to know more before we can give you better guidance.