troubleshooting Question

Event Procedures not working

Avatar of msmerry
msmerryFlag for Australia asked on
Microsoft AccessSQL
12 Comments3 Solutions523 ViewsLast Modified:
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

 Exit Sub

    Call ErrorLog(Err.Description, Err.Number, Me.Name, Erl, "ApplyACustomFilter")
    Resume ApplyACustomFilter_Exit
End Sub

and each letter has a variant of this code attached:-

Private Sub Cmd_A_Click()
    Call ApplyACustomFilter("([AccountsNotPaidQry].[contactcode] Like ""A*"")")
End Sub

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
Join our community to see this answer!
Unlock 3 Answers and 12 Comments.
Start Free Trial
Learn from the best

Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.

Andrew Hancock - VMware vExpert
See if this solution works for you by signing up for a 7 day free trial.
Unlock 3 Answers and 12 Comments.
Try for 7 days

”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.

-Mike Kapnisakis, Warner Bros