Problems dynamically filling an array

[Jon]

Hi all,

I am trying to dynamically fill an array with any unique values from a field
(objRS.Fields(5 )) in my database with the following code below. However it
errors with "The array is fixed or temporarily blocked" for the line "REDIM
PRESERVE UserArray(Array count+1)". I can't seem to get around this. Any
suggestions? Many thanks.

Dim p
Dim UserArray(0) ' Max number of users
Dim Arraycount
Dim flag
objRS.MoveFirst
Do While Not objRS.EOF
p = 0
flag = false
'--Check if username is already in the array
Arraycount = UBound(UserArra y)
do while (p <= Arraycount) And (flag = false)
if objRS.Fields(5) = UserArray(p) then flag = true
P=P+1
loop
if (flag = false) then ' name not in array
UserArray(Array count) = objRS.Fields(5)
REDIM PRESERVE UserArray(Array count+1)
End if
objRS.MoveNext
Loop

[Ray at]

Try Dim UserArray() instead of Dim UserArray(0)

Dymamic arrays are dimmed just as () as the ubound.

But, why not just just select distinct or something when you create your
recordset? And if not, why use that flag thing? You can just do:
Do While Not objRS.EOF
If objRS.Fields.It em(5).Value = UserArray Then
Redim Preserve UserArray(Array Count+1)
UserArray(UBoun d(UserArray)) = objRS.Fields.It em(5).Value
Exit Do
End If
p = p + 1
objRS.MoveNext
Loop

Ray at home

"Jon" <Jo*@nospam.com > wrote in message
news:64Bmc.408$ VR4.390@newsfe1-win...

Hi all,

I am trying to dynamically fill an array with any unique values from a field (objRS.Fields(5 )) in my database with the following code below. However it errors with "The array is fixed or temporarily blocked" for the line "REDIM PRESERVE UserArray(Array count+1)". I can't seem to get around this. Any
suggestions? Many thanks.

Dim p
Dim UserArray(0) ' Max number of users
Dim Arraycount
Dim flag
objRS.MoveFirst
Do While Not objRS.EOF
p = 0
flag = false
'--Check if username is already in the array
Arraycount = UBound(UserArra y)
do while (p <= Arraycount) And (flag = false)
if objRS.Fields(5) = UserArray(p) then flag = true
P=P+1
loop
if (flag = false) then ' name not in array
UserArray(Array count) = objRS.Fields(5)
REDIM PRESERVE UserArray(Array count+1)
End if
objRS.MoveNext
Loop

[Jon]

Thanks...all sorted now.

"Ray at <%=sLocation% > [MVP]" <myfirstname at lane34 dot com> wrote in
message news:%2******** **********@tk2m sftngp13.phx.gb l...

Try Dim UserArray() instead of Dim UserArray(0)

Dymamic arrays are dimmed just as () as the ubound.

But, why not just just select distinct or something when you create your
recordset? And if not, why use that flag thing? You can just do:
Do While Not objRS.EOF
If objRS.Fields.It em(5).Value = UserArray Then
Redim Preserve UserArray(Array Count+1)
UserArray(UBoun d(UserArray)) = objRS.Fields.It em(5).Value
Exit Do
End If
p = p + 1
objRS.MoveNext
Loop

Ray at home

"Jon" <Jo*@nospam.com > wrote in message
news:64Bmc.408$ VR4.390@newsfe1-win...

Hi all,

I am trying to dynamically fill an array with any unique values from a

field

(objRS.Fields(5 )) in my database with the following code below. However

it

errors with "The array is fixed or temporarily blocked" for the line

"REDIM

PRESERVE UserArray(Array count+1)". I can't seem to get around this. Any suggestions? Many thanks.

Dim p
Dim UserArray(0) ' Max number of users
Dim Arraycount
Dim flag
objRS.MoveFirst
Do While Not objRS.EOF
p = 0
flag = false
'--Check if username is already in the array
Arraycount = UBound(UserArra y)
do while (p <= Arraycount) And (flag = false)
if objRS.Fields(5) = UserArray(p) then flag = true
P=P+1
loop
if (flag = false) then ' name not in array
UserArray(Array count) = objRS.Fields(5)
REDIM PRESERVE UserArray(Array count+1)
End if
objRS.MoveNext
Loop