Memo Field Size Limit

[jbk]

Is there a way to limit the size of the memo field data. Right now a user can type as much as they want. The problem I'm having is that I have the memo field tied to a report and the area on the page is only so big and sometimes a user will get carried away with what there typing and when a report is printed some of what they type is "cut off". Any suggestions... Thank you in advance

[Tom Cone Jr]

Re: Memo Field Size Limit

Isn't there an option to "allow growth when printing" for the object in your report layout that displays the memo field text? Check the properties of that object in your report layout.

[jbk]

Re: Memo Field Size Limit

Thanks Tom for the reply. Yes that is an option but I would still like limit the size of the memo field.

[Steve Workings]

Re: Memo Field Size Limit

Here's one way:

Put the memo field on a form.

Add a session variable to the form called memo_length.

Put the variable on the form for display purposes.

In form properties, set the form timer to one second.

Add this code to your form's OnTimer event (field name in the code below is "m1" and the object containing the variable on the form is named "memo_length"

dim shared memo_length as n
memo_length = len(alltrim(m1.text))
memo_length.refresh()

if memo_length > 10
	msgbox("Memo Length", "Maximum 10 chars.")
	m1.text = left(m1.text,10)
end if

I've added a .zip of the table and form to this message if that helps.

[MikeC]

Re: Memo Field Size Limit

You could also place Steve's code just on the OnKey event without a timer.

If you did not want to count spaces for some reason you could also use
len(strtran(alltrim(m1.text)," ","")) for the character count......just a thought/alternative.

[Garry Flanigan]

Re: Memo Field Size Limit

This is a good plan but not foolproof. For example, someone uses lots of crlf's.
Garry

[G Gabriel]

Re: Memo Field Size Limit

Not to take away from the suggestions made which are good except that I don't like OnTimer and OnKey events, so here is couple alternatives:
1-Use same script per Steve, but instead of the OnTimer event, put it in the OnDepart event of the RTF, or
2-Instead of the user entering text directly in the RTF, remove the RTF from the form and instead embedd an xdlg in the form in place of the RTF and make it a multi-line input object with a max number of characters (Or just overlap the xdlg on top of the RTF object). In the OnSave event, the contents of the text object in the xdlg will be saved to your memo field in the table.

[jbk]

Re: Memo Field Size Limit

Cannot get zip file to open. Any suggestions?