Filter by using inputbox

[maes2]

Can anyone help me how to do this:

I want the user to just click a button, a inputbox pops up asking for: "Enter the first SerialNo"-----ENTER
A new Inputbox pops up asking: "Enter the last SerialNo"-----ENTER.
Then it filter (Between First and Last value).

I had an Idea:
*****************************************************
Private Sub Commandbutton4_Click()
Dim First
Dim Last
First = InputBox("Enter the first SerialNo&quot
Last = InputBox("Enter the last SerialNo&quot

Me.Filter = Between "First" and "Last"

Me.FilterOn = True

End Sub

******************************************************
This code does not work, but how can I make it ??
Please help it´s urgent.
//Magnus

 

[binky]

I think you are close. Try this...
Me.Filter = "Var Between '" & First & "' And '" & Last
Me.FilterOn = True

Var would be the name of the field you are sorting on. And don't forget to turn the filter on!

HTH
Ken :

 

[Guest_imported]

It worked allright, thanks !
I publish the total code in case someone needs it:

//Magnus

CODE:
******

'Turn On filter'

Private Sub Commandbutton10_Click()
Dim First
Dim Last
First = InputBox("Enter the first SerialNo&quot
Last = InputBox("Enter the last SerialNo&quot

Me.Filter = "serienr Between " & First & " And " & Last

Me.FilterOn = True

End Sub


'Turn off filter'

Private Sub Commandbutton11_Click()
Me.FilterOn = False

End Sub

 

[binky]

You are very welcome. I'm glad I could help!

Ken :