Dim MyArray() As String
MyArray = split(MyString, " ")

If an array currently has two valid string
elements, MyArray(0) and MyArray(1), how
can the UBound(MyArray) be equal to -1?

(Base is defaulted to 0)

It can't be. Let's see the actual code you're using.

--
Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
(no private e-mails, please)


"Bill" <(E-Mail Removed)> wrote in message
news:aONyg.1651$(E-Mail Removed)...
> Dim MyArray() As String
> MyArray = split(MyString, " ")
>
> If an array currently has two valid string
> elements, MyArray(0) and MyArray(1), how
> can the UBound(MyArray) be equal to -1?
>
> (Base is defaulted to 0)
>
>

My isolated test code:

Dim Parts() As String
strChairman = "(reference data) Bill"
Parts = Split(chairman, ")")
If UBound(Parts) > 0 Then
strRef = Right(Parts(0), Len(Parts(0)) - 1)
strChairman = Parts(1)
Else
strRef = "None"
End If
Debug.Print UBound(Parts) & ", " & LBound(Parts)
Debug.Print strRef
Debug.Print strChairman
Exit Sub

Immediate Window:

-1, 0
None
(reference data) Bill

I was, of course, expecting UBound to be "1".

Bill


"Douglas J. Steele" <NOSPAM_djsteele@NOSPAM_canada.com> wrote in message
news:(E-Mail Removed)...
> It can't be. Let's see the actual code you're using.
>
> --
> Doug Steele, Microsoft Access MVP
> http://I.Am/DougSteele
> (no private e-mails, please)
>
>
> "Bill" <(E-Mail Removed)> wrote in message
> news:aONyg.1651$(E-Mail Removed)...
>> Dim MyArray() As String
>> MyArray = split(MyString, " ")
>>
>> If an array currently has two valid string
>> elements, MyArray(0) and MyArray(1), how
>> can the UBound(MyArray) be equal to -1?
>>
>> (Base is defaulted to 0)
>>
>>
>
>

"Bill" <(E-Mail Removed)> wrote in message
<YsOyg.1683$(E-Mail Removed)>:
> My isolated test code:
>
> Dim Parts() As String
> strChairman = "(reference data) Bill"
> Parts = Split(chairman, ")")
> If UBound(Parts) > 0 Then
> strRef = Right(Parts(0), Len(Parts(0)) - 1)
> strChairman = Parts(1)
> Else
> strRef = "None"
> End If
> Debug.Print UBound(Parts) & ", " & LBound(Parts)
> Debug.Print strRef
> Debug.Print strChairman
> Exit Sub
>
> Immediate Window:
>
> -1, 0
> None
> (reference data) Bill
>
> I was, of course, expecting UBound to be "1".
>
> Bill

You split a variable called "chairman", but the one you've assigned
a value to, is "strChairman" ;-)

(Option Explicit?)

--
Roy-Vidar

Jeez! I see it.
Bill


"Bill" <(E-Mail Removed)> wrote in message
news:YsOyg.1683$(E-Mail Removed)...
> My isolated test code:
>
> Dim Parts() As String
> strChairman = "(reference data) Bill"
> Parts = Split(chairman, ")")
> If UBound(Parts) > 0 Then
> strRef = Right(Parts(0), Len(Parts(0)) - 1)
> strChairman = Parts(1)
> Else
> strRef = "None"
> End If
> Debug.Print UBound(Parts) & ", " & LBound(Parts)
> Debug.Print strRef
> Debug.Print strChairman
> Exit Sub
>
> Immediate Window:
>
> -1, 0
> None
> (reference data) Bill
>
> I was, of course, expecting UBound to be "1".
>
> Bill
>
>
> "Douglas J. Steele" <NOSPAM_djsteele@NOSPAM_canada.com> wrote in message
> news:(E-Mail Removed)...
>> It can't be. Let's see the actual code you're using.
>>
>> --
>> Doug Steele, Microsoft Access MVP
>> http://I.Am/DougSteele
>> (no private e-mails, please)
>>
>>
>> "Bill" <(E-Mail Removed)> wrote in message
>> news:aONyg.1651$(E-Mail Removed)...
>>> Dim MyArray() As String
>>> MyArray = split(MyString, " ")
>>>
>>> If an array currently has two valid string
>>> elements, MyArray(0) and MyArray(1), how
>>> can the UBound(MyArray) be equal to -1?
>>>
>>> (Base is defaulted to 0)
>>>
>>>
>>
>>
>
>

Wouldn't you know it! The only module I have in
all my mdb's that was missing its Option Explicit!
Thanks,
Bill


"RoyVidar" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> "Bill" <(E-Mail Removed)> wrote in message
> <YsOyg.1683$(E-Mail Removed)>:
>> My isolated test code:
>>
>> Dim Parts() As String
>> strChairman = "(reference data) Bill"
>> Parts = Split(chairman, ")")
>> If UBound(Parts) > 0 Then
>> strRef = Right(Parts(0), Len(Parts(0)) - 1)
>> strChairman = Parts(1)
>> Else
>> strRef = "None"
>> End If
>> Debug.Print UBound(Parts) & ", " & LBound(Parts)
>> Debug.Print strRef
>> Debug.Print strChairman
>> Exit Sub
>>
>> Immediate Window:
>>
>> -1, 0
>> None
>> (reference data) Bill
>>
>> I was, of course, expecting UBound to be "1".
>>
>> Bill
>
> You split a variable called "chairman", but the one you've assigned
> a value to, is "strChairman" ;-)
>
> (Option Explicit?)
>
> --
> Roy-Vidar
>
>