How to Split MultiLine TextBox into a ListBox

[eDIN]

In My Table there is a Memo Field.
It's representing (on Form) by a MultuLine textBox
I want get the lines of that TextBox into a ListBox (on the same Form).

Like in Excel:
Dim v As Variant
v = Split(Range("A1").Value, vbLf)
ListBox1.List = v

What is the Way?
Thanks in Advance.

 

[vbaInet]

The same concept should work as well. Look into the Split function for Access:

http://msdn.microsoft.com/en-us/library/aa263365%28v=VS.60%29.aspx

Then loop through the items and use the AddItem method of the Listbox to add each item to the listbox.

 

[eDIN]

I was trying several times, but nothing happend.
Here is one of my try:

Dim i As Long
Dim a() As String
a = Split(txNm.Text, vbCrLf)
For i = LBound(a) To UBound(a)
LbNm.AddItem a(i)
Next

What's happend - ListBox received focus - and that's All.

Could You write the code, please.
thanks.

 

[vbaInet]

Just remember to make sure the following properties are set as follows:

RowSource Type = Value List
Column Count = 1
Column Width = x
Bound Column = 1

where x is whatever you want it to be, in most cases the same as the Width of the listbox.

 

[eDIN]

EveryThing Checked but - No Result.
Any More Idea, Please.
Thanks for Your Effort.

 

[MarkK]

And if you use vba.split() you can also use vba.join()

Dim var
var = [COLOR="DarkRed"]Split[/COLOR](Me.Textbox1, vbCrLf)
Me.MyList.RowSource = [COLOR="DarkRed"]Join[/COLOR](var, ";")

 

[eDIN]

LagBolt,
You are a Realy Maestro - It Works.
I will visit Your Site.
Thanks !

PS
Could You meaby explain - why did my previously attemptings not working. Where is Mistake. It's a Clear Code - isn't it ?

AnyWay - AnyCase - ThanksAgain.

 

[nanscombe]

eDin,

Dim i As Long
Dim a as variant
a = Split(txNm.Text, vbCrLf)
For i = LBound(a) To UBound(a)
LbNm.AddItem a(i)
Next i

I think it may have worked if you had defined 'a' as a variant rather than trying to define it as an array.

Just out of interest I set the Row Source Type to Value List, tried it and found this to work.

Dim i As Long
Dim a As Variant
Me.txNm.SetFocus
a = Split(txNm.Text, vbCrLf)
LbNm.RowSource = ""
For i = LBound(a) To UBound(a)
    LbNm.AddItem a(i)
Next i

I see Listbox.clear seems to have been done away with. No wonder I couldn't find it.

 

[eDIN]

NansCombe,
Thanks, but... - it doesn't work (on myComp).
I'm eager to know - Why?

 

[vbaInet]

Can you upload a stripped down version of your db.

 

[eDIN]

Yes, of course.
I'll do it tomorrowEvening.
Actually, I'm on a shorTrip.
Best Regards.

 

[eDIN]

Hello vbaInet
Here is a VeryVery stripped version of myDB
Thank's for You Efforts.
eDIN

 

[vbaInet]

Right, I don't have Access 2010 installed on my machine. SAVE AS an older version and re-upload.