Hello everyone

Can anyone tell me why the cursor does not flash and these two unbound boxes I'm sure they used to I can send the code what's behind the unbound boxes if the site will let me upload it

Private Sub Command48_Click()

End Sub

Public Sub SearchButton_Click()
Dim txtEndDates As String
Dim txtStartDates As String
Dim task As String

txtStartDates = "[DateBanked]"
txtEndDates = "[DateBanked]"
Dim strDateField As String

Const strcJetDate = "\#mm\/dd\/yyyy\#"

    
If IsDate(Me.txtStartDate) And IsDate(Me.txtEndDate) Then

strCriteria = "(" & txtStartDates & " >= " & Format(Me.txtStartDate, strcJetDate) & ")"

strCriteria = strCriteria & "AND " & "(" & Format(txtEndDates, strcJetDate) & " < " & Format(Me.txtEndDate, strcJetDate) & ")"


End If



task = "select * from TransactionsHeader where (" & strCriteria & ") order by [DateBanked]"
        
DoCmd.ApplyFilter task
    


End Sub


Public Sub Command51_Click()
' Search Financial Year
Call FSearch
End Sub

Sub FSearch()
Dim strCriteria, task As String
Me.Refresh
    strCriteria = "([DateBanked] >= #" & "1-Apr-16" & "# And [DateBanked] <= #" & "31-Mar-17" & "#)"
    task = "select * from TransactionsHeader where (" & strCriteria & ") order by [DateBanked]"
    DoCmd.ApplyFilter task
End Sub

Public Sub Command61_Click()
Call F17Search
End Sub

Sub F17Search()
Dim strCriteria, task As String
Me.Refresh
    strCriteria = "([DateBanked] >= #" & "1-Apr-17" & "# And [DateBanked] <= #" & "31-Mar-18" & "#)"
    task = "select * from TransactionsHeader where (" & strCriteria & ") order by [DateBanked]"
    DoCmd.ApplyFilter task
End Sub

Private Sub Command63_Click()
Call F18Search
End Sub

Sub F18Search()
Dim strCriteria, task As String
Me.Refresh
    strCriteria = "([DateBanked] >= #" & "1-Apr-18" & "# And [DateBanked] <= #" & "31-Mar-19" & "#)"
    task = "select * from TransactionsHeader where (" & strCriteria & ") order by [DateBanked]"
    DoCmd.ApplyFilter task
End Sub

Private Sub Command64_Click()
Call F19Search
End Sub

Sub F19Search()
Dim strCriteria, task As String
Me.Refresh
    strCriteria = "([DateBanked] >= #" & "1-Apr-19" & "# And [DateBanked] <= #" & "31-Mar-20" & "#)"
    task = "select * from TransactionsHeader where (" & strCriteria & ") order by [DateBanked]"
    DoCmd.ApplyFilter task
End Sub

Private Sub Command65_Click()
Call F20Search
End Sub

Sub F20Search()
Dim strCriteria, task As String
Me.Refresh
    strCriteria = "([DateBanked] >= #" & "1-Apr-20" & "# And [DateBanked] <= #" & "31-Mar-21" & "#)"
    task = "select * from TransactionsHeader where (" & strCriteria & ") order by [DateBanked]"
    DoCmd.ApplyFilter task
End Sub

Private Sub Command66_Click()
Call F21Search
End Sub

Sub F21Search()
Dim strCriteria, task As String
Me.Refresh
    strCriteria = "([DateBanked] >= #" & "1-Apr-21" & "# And [DateBanked] <= #" & "31-Mar-22" & "#)"
    task = "select * from TransactionsHeader where (" & strCriteria & ") order by [DateBanked]"
    DoCmd.ApplyFilter task
End Sub


Private Sub Command67_Click()
Call F22Search
End Sub

Sub F22Search()
Dim strCriteria, task As String
Me.Refresh
    strCriteria = "([DateBanked] >= #" & "1-Apr-22" & "# And [DateBanked] <= #" & "31-Mar-23" & "#)"
    task = "select * from TransactionsHeader where (" & strCriteria & ") order by [DateBanked]"
    DoCmd.ApplyFilter task
End Sub

Public Sub Command68_Click()
Call F23Search
End Sub

Sub F23Search()
Dim strCriteria, task As String
Me.Refresh
    strCriteria = "([DateBanked] >= #" & "1-Apr-23" & "# And [DateBanked] <= #" & "31-Mar-24" & "#)"
    task = "select * from TransactionsHeader where (" & strCriteria & ") order by [DateBanked]"
    DoCmd.ApplyFilter task
End Sub

Public Sub Command69_Click()
Call F24Search
End Sub

Sub F24Search()
Dim strCriteria, task As String
Me.Refresh
    strCriteria = "([DateBanked] >= #" & "1-Apr-24" & "# And [DateBanked] <= #" & "31-Mar-25" & "#)"
    task = "select * from TransactionsHeader where (" & strCriteria & ") order by [DateBanked]"
    DoCmd.ApplyFilter task
End Sub


Public Sub Search_Button_Click()

End Sub

Private Sub txtStartDate_Click()

End Sub