How to set a file filter when exiting a text box??

[stanmurphy]

Hello Everyone,

I have a form with 1 text box and 1 combobox. The combobox RowSource is set to a clientfile. I want to enter an initial into the text box and then set a filter on the clientfile so it only displays last names starting with that initial when I click on the ComboBox. I've placed the code below everywhere I can think of but I keep getting the error: "THISFORM Can Only Be Used Within A Method". I've changed the code to refer to the Form name, but then I get an error say it can't find the form.

SELECT Clientfile
SET FILTER TO SUBSTR(Clientfile.Clientlast,1,1) = THISFORM.TEXT1.VALUE
GO TOP


Can someone tell me how to do this properly before I go completely insane )

Thanks

 

[Scott24x7]

Smurphy,
Place your code into the Interactive Change event of the text1 textbox, with this change:

SELECT Clientfile
SET FILTER TO
SET FILTER TO SUBSTR(Clientfile.Clientlast,1,1) = This.Value
GO TOP

That should do it for you.

Best Regards,
Scott

"Everything should be made as simple as possible, and no simpler."

 

[stanmurphy]

Thanks for the reply. I tried your code and I get an error.

"THIS can only be used within a method"

 

[rgbean]

Filter's need to be evaluated any time the record is moved, so you really need to either use a global (bad idea!) or use the actual value. In the Interactive Change event try:

SELECT Clientfile
xx = Alltrim(This.Value)
SET FILTER TO SUBSTR(Clientfile.Clientlast,1,1) = &xx
GO TOP

Rick

 

[stanmurphy]

Thank you rgbean. I tried your code but I got a message saying "variable name (whatever letter I entered) not found" each time I entered a letter. I managed to make it work with:

SELECT Clientfile
thisform.pLastInitial= ALLTRIM(UPPER(thisform.text2.Value))

store 'SET FILTER TO SUBSTR(Clientfile.Clientlast,1,1);
= "'+thisform.pLastInitial+'"' to mdoit
&mdoit

GO TOP

 

[stanmurphy]

To clarify the code above, pLastInitial is a Form Property to which I stored the contents of the text box as I exited it.

 

[ramani]

HI smurphy,


myForm.InitEvent
****************
PUBLIC cLastInitial
cLastInitial = SPACE(1)
This.Text1.ControlSource = m.cLastInitial
SELECT Clientfile
SET FILTER TO SUBSTR(Clientfile.Clientlast,1,1) = This.Value
GO TOP


myForm.UnLoad
*************
RELEASE cLastInitial

This should see you thru to your form having Text1 and combo1 control you speciofied.
ramani
(Subramanian.G),FoxAcc, ramani_g@yahoo.com

 

[rgbean]

smurphy,
Ah yes, I forgot one detail:

SET FILTER TO SUBSTR(Clientfile.Clientlast,1,1) = "'"+&xx+"'"

When using string constants, it's important to Quote them!

Rick