I'm having problems with a piece of code.
The form has two controls:
*Text Box
*Submit button

Users should be able to enter multiple lines in the textbox (this is
enabled) and each line is entered into a new row.

The code seems stuck in this section:
Dim mediaArray() As String
Dim count As Integer
Dim start As Integer
count = Split(txtMedia.Value, vbNewLine)
ReDim mediaArray(count) As String
mediaArray = txtMedia.Value

What am I doing wrong?

-Justin

not sure what you're trying to do, but this worked for me

Private Sub TextBox1_Change()
Dim mediaArray() As String
Dim i As Long
mediaArray = Split(textbox1.Value, vbNewLine)
For i = LBound(mediaArray) To UBound(mediaArray)
Debug.Print mediaArray(i)
Next
End Sub

--


Gary


"Justin" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> I'm having problems with a piece of code.
> The form has two controls:
> *Text Box
> *Submit button
>
> Users should be able to enter multiple lines in the textbox (this is
> enabled) and each line is entered into a new row.
>
> The code seems stuck in this section:
> Dim mediaArray() As String
> Dim count As Integer
> Dim start As Integer
> count = Split(txtMedia.Value, vbNewLine)
> ReDim mediaArray(count) As String
> mediaArray = txtMedia.Value
>
> What am I doing wrong?
>
> -Justin
>

I am trying to get the end result to be
row 1: name 1
row 2: name 2
row 3: name 3

from 1 textbox where the input is:
name 1
name 2
name 3

Gary Keramidas wrote:
> not sure what you're trying to do, but this worked for me
>
> Private Sub TextBox1_Change()
> Dim mediaArray() As String
> Dim i As Long
> mediaArray = Split(textbox1.Value, vbNewLine)
> For i = LBound(mediaArray) To UBound(mediaArray)
> Debug.Print mediaArray(i)
> Next
> End Sub

>

Justine

Another way to do it is to have three text boxes in the form and don't have
multi line.

It is easier than having people mess with multi line text boxes.

--
Hope this helps
Martin Fishlock


"Justin" wrote:

> I am trying to get the end result to be
> row 1: name 1
> row 2: name 2
> row 3: name 3
>
> from 1 textbox where the input is:
> name 1
> name 2
> name 3
>
> Gary Keramidas wrote:
> > not sure what you're trying to do, but this worked for me
> >
> > Private Sub TextBox1_Change()
> > Dim mediaArray() As String
> > Dim i As Long
> > mediaArray = Split(textbox1.Value, vbNewLine)
> > For i = LBound(mediaArray) To UBound(mediaArray)
> > Debug.Print mediaArray(i)
> > Next
> > End Sub
>
> >
>
>

It doesn't quite work because we don't know how many entries we will
need. For example, we could have 15 one time, and 2 the next. The
dynamic nature of the problem necesitates trusting the user a bit.
Martin Fishlock wrote:
> Justine
>
> Another way to do it is to have three text boxes in the form and don't have
> multi line.
>
> It is easier than having people mess with multi line text boxes.
>
> --
> Hope this helps
> Martin Fishlock
>
>
> "Justin" wrote:
>
> > I am trying to get the end result to be
> > row 1: name 1
> > row 2: name 2
> > row 3: name 3
> >
> > from 1 textbox where the input is:
> > name 1
> > name 2
> > name 3
> >
> > Gary Keramidas wrote:
> > > not sure what you're trying to do, but this worked for me
> > >
> > > Private Sub TextBox1_Change()
> > > Dim mediaArray() As String
> > > Dim i As Long
> > > mediaArray = Split(textbox1.Value, vbNewLine)
> > > For i = LBound(mediaArray) To UBound(mediaArray)
> > > Debug.Print mediaArray(i)
> > > Next
> > > End Sub
> >
> > >
> >
> >