Dtata not being filtered

[qwerty]

I have a text box on Form 2 that needs to filter data on Form 3. I typed in the following on Form 3, and I did try typing the code with private sub txtexample_AfterUpdate() on Form 2. They both did nothing.


Private Sub Form_LOad()
If Len(Form_002_Criteria.TxtExample & vbNullString) > 0
Then Me.Filter = "ExpMin <= " & Form_002_Criteria.TxtExample & " AND ExpMax >= " & Form_002_Criteria.TxtExample
Me.FilterOn = True
Else
Me.Filter = ""


Me.FilterOn = False
End If
End Sub

In the query for the list box, I added ExpMin and ExpMax fields unchecked with criteria stating Forms![002_Criteria]!TxtExample to filter the data needs to be shown base on Min and Max values.

[davegri]

Private Sub Form_LOad()
 If Len(Form_002_Criteria.TxtExample & vbNullString) > 0 Then 
    Me.Filter = "ExpMin <= " & Form_002_Criteria.TxtExample & " AND ExpMax >= " & Form_002_Criteria.TxtExample 
    debug.print me.filter    
Me.FilterOn = True 
Else 
    Me.Filter = "" 
    Me.FilterOn = False 
End If
End Sub

The debug.print will show you what the query contains.

In the query for the list box, I added ExpMin and ExpMax fields unchecked with criteria stating Forms![002_Criteria]!TxtExp to filter the data needs to be shown base on Min and Max values.

Where is this list box? How does it tie in with your problem?

[ranman256]

why didnt you put the filter for form 3 ON form 3?

[qwerty]

Private Sub Form_LOad()
 If Len(Form_002_Criteria.TxtExample & vbNullString) > 0 Then 
    Me.Filter = "ExpMin <= " & Form_002_Criteria.TxtExample & " AND ExpMax >= " & Form_002_Criteria.TxtExample 
    debug.print me.filter    
Me.FilterOn = True 
Else 
    Me.Filter = "" 
    Me.FilterOn = False 
End If
End Sub

The debug.print will show you what the query contains.


Where is this list box? How does it tie in with your problem?

The list box is on form 3, this ties into the problem because I have several fields of species that needs to be filter when you enter a value. You don't want to scroll down several thousand data looking for species that live at certain climate conditions. For example This will bring up species that live at min or max of 50 elevation.

[davegri]

because I have several fields of species that needs to be filter when you enter a value

Another set of criteria in addition to the first post? All too confusing. I don't understand your setup at all, and can't help at this point.

[pbaldy]

You must not be a PRO davegri.

ryder, not sure why you started a new thread, but if you're trying to filter a listbox you'd have to change its row source. The code you're using filters the form's record source, not a listbox.

[CJ_London]

I don't want to get involved because I still don't understand - but would love to know how something can be less than or equal to something else AND more than or equal to it at the same time. Might as well use something=something else

[pbaldy]

If I read correctly, there are 2 different fields in the table. Filtering for records where the given value on the form is >= a minimum value and <= a maximum value.

[qwerty]

If I read correctly, there are 2 different fields in the table. Filtering for records where the given value on the form is >= a minimum value and <= a maximum value.

Yes that is correct. There a text box on page (2) is to enter the value you want displayed on page (3). I have zero coding written in vba. For list boxes I have it pointed to a query for Field1, Field2, Field3, and Field4. The txt suppose to filter the list box data based on

The text box suppose work for example, say there a value of 15 to 80.
if someone enters 20 is 20 >= 15? T or 20 <= 80? T
If someone enters 100 is 100 >= 15? T or is 100 <= 80? F

Then it will show all the data in those ranges. I was going to put Field1, Field2, Field3, Field4 all in one list box, but the problem working with science data there is more than ond unique name attached to different species. So the results will be missing information. Right now they are separated in their own list box and all unique values show.

Thank you pbadly...I am new to access and really try to learn. I am even really to pay for someone to do gotomeeting fo show what I am doing, and guide me in the right direction. I even offered to pay in one post, but for some reason people want me to post information. It's much easier to explain over gotomeeting or skype.