I have a form which has alphabet buttons to allow filtering.
The following code is attached:-
Private Sub ApplyACustomFilter(strFilter As String)
If IsDebugMode = 0 Then On Error GoTo ApplyACustomFilter_Error
Me.[AccountsOutstandingsubfrm].Form.Filter = strFilter
Me.[AccountsOutstandingsubfrm].Form.FilterOn = True
' DoCmd.ApplyFilter "", strFilter
' Me.cmdShowAll.Visible = True
Call ErrorLog(Err.Description, Err.Number, Me.Name, Erl, "ApplyACustomFilter")
and each letter has a variant of this code attached:-
Private Sub Cmd_A_Click()
Call ApplyACustomFilter("([AccountsNotPaidQry].[contactcode] Like ""A*"")")
When I check the Event, all looks right. Each letter has the corret details
These all worked perfectly last week, but don't this week.
Any advice would be greatly appreciated