multiple filter button

[Beppe]

Hello Access experts!
I have a form where are listed all the records which have of course multiple fields. I have a number of buttons that do the filtration as per field, by writing what to search on a beside textbox.

The code for each filter is the following:

[/code]
If IsNull(Me.Testo152) Then
Me.FilterOn = False
Else
Me.Filter = "TIPO Like '" & Me.Testo152.Value & "*" & "'"
Me.FilterOn = True
End If
[code]



With this code I just filter only with one field.
I would like to filter the records with the other filters, but taking into account the filtration of the other fields.

For example, if I type in "TIPO" DCT and I have 3 records with this but different employee number, for example 11 and 2, I would like to do a further filtration by writing 11 on the employee field and have the DCT done by the employee 11.

I think that I need to change something in the Me.filter instruction, maybe adding some AND or OR...

Please help me I'm really stuck on this
Beppe

[Beppe]

I tried this:

[/code]
If IsNull(Me.Testo152) Then
Me.FilterOn = False
Else
Me.Filter = "TIPO Like '" & Me.Testo152.Value & "*" & "'" & "AND IMPIEGATO Like '" & Me.Testo139.Value & "'"
Me.FilterOn = True
End If
[code]

and seems that the button "type" functions, but only if both fields are not empty. Like this the "type" button does not works alone as before

[aytee111]

Me.Filter="TIPO Like '*" & Me!Testo152 & "*' AND IMPIEGATO Like '*" & Me!Testo139 & "*'"

This requires that both fields are text data type and that both fields on the form contain values.

[ranman256]

beppe, your [CODE] idents are backwards

code :1st
/code :last

[ssanfu]

Also see the search example code at Allen Browne's site

The search criteria article is here

[Beppe]

Hello!
I solved the issue like this:

If IsNull(Me.Testo152) Then
        Me.FilterOn = False
    Else
        Me.Filter = "TIPO Like '" & Me.Testo152.Value & "*" & "'" & _
        "AND PORTATA Like '" & Me.Testo161.Value & "*" & "'" & _
        "AND COD_FORNITORE Like '" & Me.Fornitore.Value & "*" & "'" & _
        "AND COD_CLIENTE Like '" & Me.Cliente.Value & "*" & "'" & _
        "AND DATA Like '" & Me.Testo155.Value & "*" & "'" & _
        "AND COMMESSA Like '" & Me.Testo158.Value & "*" & "'"
        Me.FilterOn = True
    End If

Thank you everyone!