variable array

Hi sirbounty;

ReDim requires an array which the following statement is not

        Dim strAccounts As String

so then this statement will fail

        ReDim strAccounts(myAdoRS.RecordCount)

On the other hand this is fine as long as you do not need the data that was already in the array if any.

        Dim myStringArray() as string

        ReDim myStringArray(whateverObject.Count)

If you don't want to lose the data then use this form:

        Dim myStringArray() as string

        ReDim Preserve myStringArray(whateverObject.Count)

Also this should return an integer.

Fernando

Well, like I'm using this in a module: (this is 'upgraded' via the wizard code from vb6):

Public Function FindWindowLike(ByRef hWndArray() As Integer, ByVal hWndStart As Integer, ByRef WindowText As String, ByRef Classname As String) As Integer

and in my form...
        Dim hWnds() As Integer
        Dim cnt As Integer
        cnt = FindWindowLike(hWnds, 0, "1.3*", "*")

and I get a green squiggley under hWnds:
Variable hWnds is passed by reference before it has been assigned a value.  A null reference exception could result at run time.

Do I care?   I'm just trying to find my window... :^)