Error 3021 on a few workstations

[Turncloud]

I am getting a 3021 No record found error on some workstations. They are running Access 2013 runtime, though the database is coded in 2007.

It doesn't happen for all workstations running this runtime version. It doesn't happen for users with full access installed.


Private Sub ApplyNewFilter()






On Error GoTo errHandler

Select Case cboFilter.Value
Case "All"
Me.Filter = ""
Case "Active"
Me.Filter = "Status = ""Active"""
Case "Pending closure"
Me.Filter = "PendingClosure = True"
Case "High level"
Me.Filter = "Level_of_Inspection = ""High"""
Case "Medium level"


Me.Filter = "Level_of_Inspection = ""Medium"""
Case "Low level"
Me.Filter = "Level_of_Inspection = ""Low"""
Case "100% level"
Me.Filter = "Level_of_Inspection = ""100%"""
Case "Stock Code"
If Not IsNull(cboFiltCond.Value) Then
Me.Filter = "[Part_Number] = """ + cboFiltCond.Value + """"
Else
Me.Filter = "[Part_Number] is null"
End If


cboFiltCond.Visible = True
End Select


Me.FilterOn = Not cboFilter.Value = "All"

If Not cboFilter.Value = "Stock Code" Then
cboFilter.SetFocus
cboFiltCond.Visible = False
End If
GoTo endsub


errHandler:
MsgBox Err.Number & ": " & Err.Description, vbOKOnly, "Error : " & Err.Source

endsub:
End Sub



The error is happening somewhere in the Select Case loop

Any help much appreciated

regards
Simon

[John_G]

Hi -

It's a bit of a guess, but what might be happening is that when the filter is turned on, no records qualify to be displayed, so the cboFilter.setfocus (?) command fails.

See if you can isolate exactly what users who get the error are doing when the error occurs; there are all kinds of things that could be causing it. If you are using user log-in and permissions - can users who get the error log in on a full version of Access and do the same thing without the error?

John

[Turncloud]

Thanks John.

I have noticed on doing a bit more testing, that the unbound field called cbofilter should have a default value of "Active" when the form is displayed. It does if you open the application in a full copy of Access 2007, but it's empty if you open it in Access 2013 runtime - though this may be momentarily before the error occurs.

I have tried making the first line of the sub

if cbofilter.value="" then cbofilter.value = "Active"

but this line alone causes the same error to appear.

regards
Simon

[John_G]

Unless Active is a boolean (Yes/No) type, the filter syntax is wrong - it has to include a fieldname:

if cbofilter.value="" then cbofilter.value = "fieldname = 'Active'"

That error may in fact be causing it to exclude all records, because it is not detecting "Active" as an error.