Why Experts Exchange?

Experts Exchange always has the answer, or at the least points me in the correct direction! It is like having another employee that is extremely experienced.

Jim Murphy
Programmer at Smart IT Solutions

When asked, what has been your best career decision?

Deciding to stick with EE.

Mohamed Asif
Technical Department Head

Being involved with EE helped me to grow personally and professionally.

Carl Webster
CTP, Sr Infrastructure Consultant
Ask ANY Question

Connect with Certified Experts to gain insight and support on specific technology challenges including:

Professional Opinions
Ask a Question
Did You Know?

We've partnered with two important charities to provide clean water and computer science education to those who need it most. READ MORE

troubleshooting Question

Event Procedures not working

Avatar of msmerry
msmerryFlag for Australia asked on
Microsoft AccessSQL
12 Comments1 Solution523 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