You may try the following procedure:
Private Sub EnterString(sBuff As String)
Dim iMAXLEN As Integer
Dim sStr As String, sRem As String
iMAXLEN = 50 'the number you want
sRem = sBuff
Do
If Len(sRem) <= iMAXLEN Then
Enter sRem
Exit Do
End If
sStr = left(sRem, iMAXLEN)
sRem = Mid(sRem, iMAXLEN + 1)
Key sStr
Wait 0.5
Stable 3
DoEvents
Loop
End Sub
Jason Que
Sr. Programmer/Analyst
Information Services
Saint Louis University Hospital
(314) 256-3528
> -----Original Message-----
> From: Linda Ralston [SMTP:[EMAIL PROTECTED]
> Sent: Friday, October 31, 2003 10:38 AM
> To: [EMAIL PROTECTED]
> Subject: [Talk] Size limitations?
>
> I am working on a Meditech Magic Script that writes to a Pathology Results
> screen. I have run into a problem where a string of text that I am
> reading from a text file and writing into the comment section will only
> wrtie 100 characters. I've put a check into the code to see the actual
> length of the string and it contains over 400 characters. But when I
> "Key" the value in it stops at exactly 100 characters. Has anyone come
> across this problem before and if so how do you get around it?
>
> Linda Ralston, ISP
> Applications Analyst
> Peace Country Health
> Grande Prairie, AB
> Canada
