Help with Filter Form

[Elvis72]

I have this code for one of my text boxes:

If Not IsNull(Me.txtfirstname) Then
strWhere = strWhere & "([First Name] Like ""*" & Me.txtfirstname & "*"") AND "
End IF

Now, I need to make one that can handle a range of numbers.

I have the following field:

Years Experience

They need to be able to type in

Years Experience
Minimum: 5
Maximum: 25

And it bring up all records that have between 5-25 years of experience.

Any help?

 

[TheAceMan1]

How are ya Elvis72 . . .

Have a look at the [blue]InputBox[/blue] function!

See Ya! . . . . . .

Be sure to see thread181-473997
Also faq181-2886

 

[PHV]

I'd use two TextBox.

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[Elvis72]

PHV -

I did put two text boxes, but how to get it to recognize both of them as a range that is linked I'm lost...

 

[PHV]

What is your actual code with the 2 textbox and where are you stuck ?

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[Elvis72]

It is:

If Not IsNull(Me.txtyrsexp) Then
strWhere = strWhere & "([Years Experience] = """ & Me.txtyrsexp & """) AND "
End If

If Not IsNull(Me.txtyrsexpend) Then 'Less than the next day.
strWhere = strWhere & "([Years Experience] = """ & Me.txtyrsexpend & """) AND "
End If

 

[PHV]

What about this ?

If Not IsNull(Me.txtyrsexp) Then
  strWhere = strWhere & "([Years Experience]>='" & Me.txtyrsexp & "') AND "
End If
If Not IsNull(Me.txtyrsexpend) Then   'Less than the next day.
  strWhere = strWhere & "([Years Experience]<='" & Me.txtyrsexpend & "') AND "
End If

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[Elvis72]

PHV -

It works great when I type in 20-30 but for some reason when I type in 1-5 I get other numbers besides those?