Copy 1 Field To Multiple Fields

[threeo2]

I have a field [CustInfo] on a Customer Information form with control source to a memo field. It looks like this:

NAME
ADDRESS
CITY
STATE
ZIP

I want to be able to press a button that will copy the individual lines of this field to their respective fields on the form.

example:

.Name = Line1 ([CustInfo])
.Address = Line2 ([CustInfo])
.City = Line3 ([CustInfo])
.State = Line4 ([CustInfo])
.Zip = Line5 ([CustInfo])

Is there an easy way to do this?

 

[threeo2]

Thanks Pat, We're getting rid of old customers in the db and at the same time trying to convert to seperate fileds for their info.

 

[threeo2]

Figured out a way to do it from several other posts. Works pretty well.
Thanks to all.



Mystring = [CustInfo]
MyArray = Split(Mystring, Chr(13), -1, 1)

Me![Name] = MyArray(0)
Me![Address] = Mid(MyArray(1), 2)
Me![City] = Mid(MyArray(2), 2)
Me![State] = Mid(MyArray(3), 2)
Me![Zip] = Mid(MyArray(4), 2)