Possible to use this in VBA

[jo15765]

Is it possible to use a statement like this in VBA coding?

'Declaring Name here
Dim Name(10) As String

'Code using to call Name and it is throwing a debug error on the Name(i) = Name(i+1) 
j = i
    i = 0
    If j > 10 Then j = 10
While i <= j
If i < 19 Then
FName(i) = FName(i + 1)
 End If
        End If
        i = i + 1
End

Debug error says...line saying subscript is out of range? Which is what makes me question is it possible to do this in VBA, I know you can in C# and other languages, thought i'd give it a whirl in VBA.

[boblarson]

NAME is an Access Reserved Word. Use sName or something else.

[jo15765]

Sorry, It's actually FName. It was a typo on my part.

[boblarson]

Next part -

j = i
i = 0

makes no sense the way it is written. j can't be set to i since i has no value yet.

also

FName(i) = FName(i+1)
makes no sense either. There is no value in FName(i + 1) yet so how can it be used to set the value of the previous item?

shouldn't one of them be j instead?

Also, what is it you are really wanting to do here? C# would have a problem with this logic as well.

[ssanfu]

Also,

i & j have not been declared (as in Dim i As Integer, ...)

You have FName(10), but then you have

      If i < 19 Then
         FName(i) = FName(i + 1)
      End If

IF the array is limited to 10, why do you count up to 19 in the loop?
I think this is the "subscript is out of range" error.

[boblarson]

IF the array is limited to 10, why do you count up to 19 in the loop?
I think this is the "subscript is out of range" error.

Actually, I tried running the code EXACTLY as written and I don't think that is the problem with the 'subscript is out of range" error. I think it has to do with the fact that, the way the code is currently written, it just runs until the variant for i gets too large. There is really no end to it - it is an endless loop because of the way it is written.

[jo15765]

It's a database that was used and then the programmer gave up one it, and I am trying to for lack of a better term "revive" it becauase now the same thing is taking place. I just don't understand his coding at all. I removed the j = 1 and it took care of the 1st subscript error mentioned, but now it is throwing the same error on this line:

DisplayText = SqlValues & "," & FName(i) & ",'" & LName(i) & "','" & Phone(i)

[ajetrumpet]

Jo, the problem is here my friend:

FName(i) = FName(i + 1)

When i gets to 9, you're trying to put the 11th element of the array into the 10th element. And of course, there are only 10 elements available because the array is fixed at (10). And it's base 0 as well. Even if your module is Base 1, it will still throw an error on line this line, but the problem will be the right side of the equality not the left side.

[ssanfu]

Any chance of you posting a copy of the MDB, sans data? Do a compact and repair, then zip it to make it smaller.
It will be much easier for us to see what the code is trying to do and to see the problem......