The object doesn't contain the automation object.

[qwerty]

I am using a single text box to filter numbers from two fields in a query, and I am receiving the following error when testing. My textbox name is TxtSpec, Query Name = QueryForm, and Field Names PopMin and PopMax. Also, what do I add to the code if left blank show all data?

My code is written =[QueryForm]![PopMin,PopMax]=[TxtSpec]=[«Expr»]>50<500

[CJ_London]

think you need to provide a more detailed explanation

where is the code? a query a control? in VBA?

field names should not have non alphanumeric characters - PopMin,PopMax

what is the code supposed to do?

[pbaldy]

That's the textbox control source? For starters, you can't refer to query values that way, unless the query is the record source of the form. The expression doesn't make sense to me. In words, what are you trying to accomplish?

[qwerty]

That's the textbox control source? For starters, you can't refer to query values that way, unless the query is the record source of the form. The expression doesn't make sense to me. In words, what are you trying to accomplish?

The query is the record source for the form. What I want to accomplish is using a single text box to filter numbers from two fields in a query.

[qwerty]

think you need to provide a more detailed explanation

where is the code? a query a control? in VBA?

field names should not have non alphanumeric characters - PopMin,PopMax

what is the code supposed to do?

Sorry apparently what I am using is a macro expression. Didn't realize it is different from sql.

If the value is left blank it is just going to show all values.


The code suppose is filter numeric data in two fields. It's only bird population based on nearest number you enter the in textbox. There are two fields popmax and popmin. The form is getting its data from a query.

My form is linked to the Query.

[CJ_London]

regret I don't use macros, so no idea if your construct is macro correct or not

[pbaldy]

I don't regret that I don't use macros either.

If you want to switch to VBA, sounds like you'd want this type of thing:

If Len(Me.TxtSpec & vbNullString) > 0 Then
  Me.Filter = "PopMin <= " & Me.TxtSpec & " AND PopMax >= " & Me.TxtSpec
  Me.FilterOn = True
Else
  Me.Filter = ""
  Me.FilterOn = False
End If