>>>my first experience with memo field and am a litte confused. perhaps i should abandon opening up this can of worms.
>>>a couple of questions - my field is called memonote - i am using it to store text data only.
>>>
>>>1) how can i test if there is data in a memofield.
>>>
>>>if memonote # " " doesn't work nor does
>>>n=fsize('memonote')
>>>if n >0
>>>
>>>2. what is the best way to enter data in the memofield
>>>@3, 0 get memonote
>>>read
>>>double click opens the window for data input
>>>is there something more elegant way to do this.
>>>
>>>thanks for any information - help menu is a little short on help for this one.
>>>
>>>k
>>
>>
>>IF NOT EMPTY(MemoNote)
>> ****
>>ENDIF
>>
>>
>>Better way to edit Memo field is to place EditBox in the form and bind it to this memo.
>thank you Boris
>i came up with this - seems to work ok
>
>
>strtofile(memonote,'m.txt')
>LOCAL oFrm
>
>oFrm= CREATEOBJECT("Note")
>oFrm.Edit1.Value = filetostr('m.txt')
>oFrm.Show(1)
>
>************************************
>DEFINE CLASS Note AS Form
>
> ADD OBJECT Edit1 AS EditBox WITH ;
> Height= 109, ;
> Left= 36, ;
> ReadOnly= .f., ;
> TabIndex= 2, ;
> Top= 84, ;
> Width= 289, ;
> Value= ""
>ENDDEFINE
>Public Event MouseWheel As MouseWheelEventHandler
>
>PROCEDURE Object.MouseWheel
>LPARAMETERS nDirection, nShift, nXCoord, nYCoord
>PROCEDURE edit1.MouseWheel
> LPARAMETERS nDirection, nShift, nXCoord, nYCoord
>
> ENDPROC
>oFrm.hide(1)
>
>
There is no need to save the value of the field to TXT file and then get it back as memory variable:
LOCAL oFrm
oFrm = CREATEOBJECT("Note")
oFrm.Edit1.Value = AliasName.memonote
oFrm.Show(1)
Against Stupidity the Gods themselves Contend in Vain - Johann Christoph Friedrich von Schiller
The only thing normal about database guys is their tables.