filter form form Unbound text box

[theinviter]

Hi
i have a form and want to filter the form based on the number i enter in unbound text box to search the tow field ( Sealing Number 1 and Sealing Number 2 ) if found in any then filter the form.


i tried the code bellow but it does not work

If Me.Sealing_Number_1 = Me.TxtSealNo Then
Me.Filter = "[Sealing Number 1]  =" & Me.TxtSealNo
 Me.FilterOn = True
 ElseIf [Sealing Number 2] = Me.TxtSealNo Then
 Me.Filter = "[Sealing Number 2]  =" & Me.TxtSealNo
  Me.FilterOn = True
else 
MsgBox "No record"
 End If

any advise please

 

[Uncle Gizmo]

MsgBox No record"

Should be:-

MsgBox "No record"

 

[Orthodox Dave]

if Sealing_Number_1 and Sealing_Number_2 are text fields, then you need single quote-marks around them like this:-

If Me.Sealing_Number_1 = Me.TxtSealNo Then
Me.Filter = "[Sealing Number 1] = '" & Me.TxtSealNo & "'"
Me.FilterOn = True
ElseIf [Sealing Number 2] = Me.TxtSealNo Then
Me.Filter = "[Sealing Number 2] = '" & Me.TxtSealNo & "'"
Me.FilterOn = True
else 
MsgBox No record"
End If

I assume also you've taken account of the fact that you have underscores in some places "If Me.Sealing_Number_1" and not others "Me.Filter = "[Sealing Number 1] ="

 

[theinviter]

if Sealing_Number_1 and Sealing_Number_2 are text fields, then you need single quote-marks around them like this:-

If Me.Sealing_Number_1 = Me.TxtSealNo Then
Me.Filter = "[Sealing Number 1] = '" & Me.TxtSealNo & "'"
Me.FilterOn = True
ElseIf [Sealing Number 2] = Me.TxtSealNo Then
Me.Filter = "[Sealing Number 2] = '" & Me.TxtSealNo & "'"
Me.FilterOn = True
else 
MsgBox No record"
End If

I assume also you've taken account of the fact that you have underscores in some places "If Me.Sealing_Number_1" and not others "Me.Filter = "[Sealing Number 1] ="

i tried but it just give me message " No record" but does not filter the form

 

[theinviter]

even tried this way as bellow but got this message
" Compile error
method or data member not found

the code :
Me.Filter = "[Sealing Number 2] = " & Me.TxtSeal Or Me.Filter = "[Sealing Number 1] = " & Me.TxtSeal
Me.FilterOn = True

 

[Minty]

Baby steps. as Dave said earlier is the sealing number stored as text or is it a number?

If its a number then get it working with one filter first.

 Me.Filter = "[Sealing Number 1] = " & Me.TxtSeal

It would probably really help if you removed the spaces from your field names before getting too far. They are a pain to type, easy to get wrong and add to the possible errors.

 

[theinviter]

Baby steps. as Dave said earlier is the sealing number stored as text or is it a number?

If its a number then get it working with one filter first.

 Me.Filter = "[Sealing Number 1] = " & Me.TxtSeal

It would probably really help if you removed the spaces from your field names before getting too far. They are a pain to type, easy to get wrong and add to the possible errors.

as a number

 

[Minty]

So does that code work on a single filter?

 

[theinviter]

So does that code work on a single filter?

yes it work perfectly as below:
Me.Filter = "[Sealing Number 2] = " & Me.TxtSealNo
Me.FilterOn = True


but i want to search another field at the same time

 

[Minty]

Okay then

Me.Filter = "[Sealing Number 2] = " & Me.TxtSealNo  & " OR [Sealing Number 1] = " & Me.TxtSealNo
Me.FilterOn = True

Should work

 

[theinviter]

Okay then

Me.Filter = "[Sealing Number 2] = " & Me.TxtSealNo  & " OR [Sealing Number 1] = " & Me.TxtSealNo
Me.FilterOn = True

Should work

done successfully
thank you