Change the Title to new label

I tried to change the name of some field at existing database but now when
I 
try to run some re****ts or macros I receive "Enter Parameter Value" , I am

looking for the best way to find all the old article and change it to new 
title,
I've tried to use The "Issues" template at Access Database and I change
all 
the "Issues" with "Action" and All  "Title" to "Action Required" but when
I 
tried to run the "Search Actions" for filtering of "Title"I receive the
above 
Message,

My New VB for Search Action is:

Option Compare Database
Option Explicit

Private Sub Clear_Click()
    DoCmd.Close
    DoCmd.OpenForm "Search Actions"
End Sub

Private Sub Search_Click()
    Const cInvalidDateError As String = "You have entered an invalid
date."
    Dim strWhere As String
    Dim strError As String
    
    strWhere = "1=1"
     
    ' If Assigned To
    If Not IsNull(Me.AssignedTo) Then
        'Create Predicate
        strWhere = strWhere & " AND " & "Actions.[Assigned To] = " & 
Me.AssignedTo & ""
    End If
    
    ' If Opened By
    If Not IsNull(Me.OpenedBy) Then
        'Add the predicate
        strWhere = strWhere & " AND " & "Actions.[Opened By] = " & 
Me.OpenedBy & ""
    End If
    
    ' If Status
    If Nz(Me.Status) <> "" Then
        'Add it to the predicate - exact match
        strWhere = strWhere & " AND " & "Actions.Status = '" & Me.Status &
"'"
    End If
    
     ' If Priority
    If Nz(Me.Priority) <> "" Then
        'Add it to the predicate - exact match
        strWhere = strWhere & " AND " & "Actions.Priority = '" &
Me.Priority 
& "'"
    End If
      
    ' If Opened Date From
    If IsDate(Me.OpenedDateFrom) Then
        ' Add it to the predicate - exact
        strWhere = strWhere & " AND " & "Actions.[Opened Date] >= " & 
GetDateFilter(Me.OpenedDateFrom)
    ElseIf Nz(Me.OpenedDateFrom) <> "" Then
        strError = cInvalidDateError
    End If
    
    ' If Opened Date To
    If IsDate(Me.OpenedDateTo) Then
        ' Add it to the predicate - exact
        strWhere = strWhere & " AND " & "Actions.[Opened Date] <= " & 
GetDateFilter(Me.OpenedDateTo)
    ElseIf Nz(Me.OpenedDateTo) <> "" Then
        strError = cInvalidDateError
    End If
    
    ' If Due Date From
    If IsDate(Me.DueDateFrom) Then
        ' Add it to the predicate - exact
        strWhere = strWhere & " AND " & "Actions.[Due Date] >= " & 
GetDateFilter(Me.DueDateFrom)
    ElseIf Nz(Me.DueDateFrom) <> "" Then
        strError = cInvalidDateError
    End If
    
     ' If Due Date To
    If IsDate(Me.DueDateTo) Then
        ' Add it to the predicate - exact
        strWhere = strWhere & " AND " & "Actions.[Due Date] <= " & 
GetDateFilter(Me.DueDateTo)
    ElseIf Nz(Me.DueDateTo) <> "" Then
        strError = cInvalidDateError
    End If
    
    ' If Action Required
    If Nz(Me.Action_Required) <> "" Then
        ' Add it to the predicate - match on leading characters
        strWhere = strWhere & " AND " & "Actions.Action_Required Like '*"
& 
Me.Action_Required & "*'"
    End If
    
    

    If strError <> "" Then
        MsgBox strError
    Else
        'DoCmd.OpenForm "Browse Actions", acFormDS, , strWhere,
acFormEdit, 
acWindowNormal
        If Not Me.FormFooter.Visible Then
            Me.FormFooter.Visible = True
            DoCmd.MoveSize Height:=Me.WindowHeight + Me.FormFooter.Height
        End If
        Me.Browse_All_Actions.Form.Filter = strWhere
        Me.Browse_All_Actions.Form.FilterOn = True
    End If
End Sub

Function GetDateFilter(dtDate As Date) As String
    ' Date filters must be in MM/DD/YYYY format
    GetDateFilter = "#" & Format(dtDate, "MM/DD/YYYY hh:mm:ss AM/PM") &
"#"
End Function