>>>>>
>>>>>SELECT (THIS.Parent.Parent.RecordSource)
>>>>>if SEEK(UPPER(THIS.cSearchString),cAliasToSearch,this.cSeekTag)
>>>>> if cAliasToSearch # THIS.Parent.Parent.RecordSource
>>>>> =seek(eval(cAliasToSearch+"."+relation(1)),THIS.Parent.Parent.RecordSource,relation(1))
>>>>> endif
>>>>> IF THIS.nHoldRecord#RECNO(THIS.Parent.Parent.RecordSource)
>>>>> THIS.lSeekMode=.T.
>>>>> ENDIF
>>>>>ELSE
>>>>> GO THIS.nHoldRecord in (THIS.Parent.Parent.RecordSource)
>>>>>ENDIF
>>>>
>>>>Hi Cetin,
>>>>
>>>>I'm studying this thing now. But I'm curious. How do you get the spaces to stay in your message? Everytime
>>>>I put spaces into a message here on the UT, they get eliminated. I can't even put a "." at the front of the
>>>>line to prevent trimming it.
>>>> For example: I indented this line about 20 spaces.
>>>>
>>>>Bill
>>>Resending in case you miss the branch.
>>>I was afraid codes would work between qutations and it was the case. So I write the sequence sperated by underscores :
>>>Start : <_P_R_E_> End : <_/_P_R_E_>
>>
>>" I'm testing the quotations in this line."
>>I don't understand this message at all.
>>I don't know what the sequences represent.
>>
>>Bill
>
>Send a code surrounded with <_P_R_E_> and <_/_P_R_E_> (remove underscores. They are there to supress interpretation). The code will be intended as you entered.

Got it........ Thanks

I don't suppose there is some way to have it generated automatically?

Bill