Problem with filter

[JeroenMioch]

Im trying to filter records on my form using the enter key.


Like so :

Private Sub filterplaatsnaam_Enter()
On Error GoTo Err_filterplaatsnaam_Enter


FilterForm


Exit_filterplaatsnaam_Enter:
    Exit Sub


Err_filterplaatsnaam_Enter:
    MsgBox Err.Description
    Resume Exit_filterplaatsnaam_Enter


End Sub

Then the filter form sub :

Private Sub FilterForm()


    Dim strFilter As String
    Dim blnFilter As Boolean
    
    blnFilter = False
    
    strFilter = " 1=1 "
    If Me.filterplaatsnaam <> "" Then
        strFilter = strFilter + " and plaatsnaamobject like '" & filterplaatsnaam & "*'"
        blnFilter = True
    End If
    
    If Me.fldFilterObject <> "" Then
        strFilter = strFilter + " and NaamObject like '" & fldFilterObject & "*'"
        blnFilter = True
    End If
    
    If Me.kzlFlterObject <> "" Then
        strFilter = strFilter + " and SoortObject like '" & kzlFlterObject & "*'"
        blnFilter = True
    End If
    
    
    If blnFilter Then
        Me.Filter = strFilter
    Else
        Me.Filter = "1=2"
    End If
   
    Me.FilterOn = True


End Sub

Its just that when i move from one field i search in to the other, the filter is applyed.
Also, the field kzlFlterObject is an drop down menu, and the filter doesn't work on that field.

Any ideas ?

[ranman256]

Looks good except
strFilter = " 1=1 " and strFilter = " 1=2 "
why?

I dont see why these are needed. Remove them.
To remove filter, just do filteron = false.
And youre supposed to filter the FIELD, NOT the object name. so field: [SortObject] like


(if still not working, it may be your objects. Im not sure what kind of data is in SortObject, NameObject.)

[CJ_London]

filterplaatsnaam_Enter

it is because you are applying the filter when you enter a control, try putting the calling code in the afterupdate event instead

[JeroenMioch]

If i do that the code will run once i exit the field. And i want to be able to input multiple criterea before i hit the enter key.

But i think your at the right track to help me because im beginning to think that _enter is not the enter keypress event..

Is that the case ?

[CJ_London]

correct - the enter event is when you enter a control (either by tabbing into it or clicking on it) - it is very similar to the gotfocus event

you will need a separate button to 'trigger' the filtering when clicked.

[ItsMe]

I would avoid using the "Enter" key to fire code. You could, possibly, employ SendKeys. However, this will affect the User's experience in an undesirable way. Use a button to fire the code. The User can always Tab to the button and then hit Enter.

[keviny04]

Its just that when i move from one field i search in to the other, the filter is applyed.

If you don't want the filter to apply when you leave each field, then you need a command button for the user to apply it. The user has got to have a way to tell you that he wants the filter to run.

Also, the field kzlFlterObject is an drop down menu, and the filter doesn't work on that field. Any ideas ?

Check if kzlFlterObject actually returns the value you want, either "" or a valid string. Also, watch for single quotes in all the entry fields. If the user enters something like "April Fool's Day", strFilter will evaluate into: and SoortObject like 'April Fool's Day*' , which will produce an error. Replace any single quote with TWO single quotes:

strFilter = strFilter + " and SoortObject like '" & Replace(kzlFlterObject, "'", "''") & "*'"

Naturally, you can't allow the user to enter asterisks as well, since your filter expression uses it. Any special character used by the filter expression, you need to trap it from user input.

[JeroenMioch]

I still believe that it can be done. We have another application running and it works the same way.
Unfortuantely i cant get the code.

Cant i use keypress 13 ?

[keviny04]

I still believe that it can be done. We have another application running and it works the same way.
Unfortuantely i cant get the code.

Cant i use keypress 13 ?

If you want the user to use only keystrokes to do searches, you can still accomplish it with a command button. Assign a shortcut key to the button. In the button's caption, put an ampersand next to the alphabet that you want the shortcut to be. E.g. use "&Search" as the caption, and the button will show the shortcut alphabet underlined: Search. When the user presses Alt-s, the button is "clicked". This way you allow both mouse and keyboard actions and serve the most users.

[ssanfu]

You have said What you are trying to do, but not How you are trying to do it.

You have a bound form with controls in the details section?
There are unbound controls in the form header that you want to use to filter the dataset?

If this is correct, you should look at the code here:
How to build a criteria string form the non-blank search boxes.
http://www.allenbrowne.com/ser-62code.html

Place the code in the form module. You will have to modify the code for your unbound control names.
In the afterupdate event of the unbound controls, you should call the sub "cmdFilter_Click".
Every time an unbound control gets updated, the afterupdate code runs and changes the filter.

There is also code to attach to a button to reset the filter and clear the unbound controls ("cmdReset_Click").

[Missinglinq]

I, too, have reservations about using <Enter> to do things other than its native function, as many experienced Access users use it to navigate through the Controls, instead of using the Tab Key, and having it not do that may irritate them...but that's your choice; maybe your end users aren't Access savvy!

You will need a Command Button, as has been said, to trigger the filtering, but you can then run the code behind the Command Button by simply pressing the Enter Key!

In Form Design View

1. Select the Command Button
2. Go to Properties - Other
3. You will see a Property named Default; change this Property from 'No' to 'Yes'

Now, when you hit <Enter> it will be the same as clicking on the Command Button! Obviously, this can only be done for one Command Button on any given Form!

Linq ;0)>