Public Arrays...

[Slyke]

Say if i had the following code...

'This is in a module
Public Word_Str() As String
 
 
Public Sub Send_Words(Amount_Of_Words As Integer)
 
ReDim Word_Str(0 To Amount_Of_Words)
 
For I = 0 To Amount_Of_Words
 
Word_Str(I) = Get_Random_Word 'This is just a function that produces a 
                                              'random word of any length when called.
Next I
 
End Sub

Now if i call this sub from a form the data that i get back is null and there's only one array (just 0) in the actual array, but if i call it from the same module the code works fine. Also if i don't ReDim the array it works, but i can't have a variable array.

Can any one help me make it so that i can still have the public array that it variable and not turning the sub into a function and so that i can read it from any other part of the project.

[penagate]

1) Where have declared I?

2) hence, are you using Option Explicit?

3) How are you calling the function?

[pnish]

I just tried it using your code and it works fine.

The form

Option Explicit
 
Private Sub Form_Load()
 
    Dim i As Integer
    Send_Words 50
    
    For i = 0 To 50
        Debug.Print Word_Str(i)
    Next i
    
End Sub

and the module

Option Explicit
 
Public Word_Str() As String
 
Public Sub Send_Words(Amount_Of_Words As Integer)
 
    Dim i As Integer
    ReDim Word_Str(0 To Amount_Of_Words)
    
    For i = 0 To Amount_Of_Words
        Word_Str(i) = "fred" & CStr(i)
    Next i
 
End Sub

[Slyke]

Oh, ok i'll go look else where for the problem, maybe i've Redimmed it some where else.
Thanks.

[randem]

Slyke,

The problem seems to be in your Get_Random_Word routine, which of course you did not post.