Memo Feilds

[GLT]

Hi,

I a memo feild that has a complete textfile loaded into it.

I am trying to scan through each line of the memo feild, and copy the line
scanned into a record in another table.

I am using the following code:

For i = 1 To Len(strParse)
test = Left([strParse], InStr([strParse], Chr(13)) - 1)
MsgBox test

rst1.AddNew
rst1![Line] = test
rst1.Update

Next i

The above code only picks up the first line in the memo feild - can anyone
advise how to make the above read line after line?

Any help is always greatly appreciated.

Cheers,
GLT.

 

[Rick Brandt]

Hi,

I a memo feild that has a complete textfile loaded into it.

I am trying to scan through each line of the memo feild, and copy the
line scanned into a record in another table.

I am using the following code:

For i = 1 To Len(strParse)
test = Left([strParse], InStr([strParse], Chr(13))
- 1) MsgBox test

rst1.AddNew
rst1![Line] = test
rst1.Update

Next i

The above code only picks up the first line in the memo feild - can
anyone advise how to make the above read line after line?

Any help is always greatly appreciated.

Cheers,
GLT.

The Split() function would give you an array with each array position
containing a line. See help for details.