[AccessD] Check if array is initialized

Thnx Gustav. 
It's more or less the same. You've got some extra
checks (is it an array). 
I'll send it through...and the developers can make the
decission. HAHA and I can shoot them down if their
decission doesn't work HAHA. I'm getting DILBERT
visions :-)

thnx again.

SD

--- Gustav Brock <Gustav at cactus.dk> wrote:

> Hi SD
> 
> We use this function to check that:
> 
> Public Function IsReDimmed(ByRef varArrayToCheck) As
> Boolean
> 
> ' Checks a dynamic array to see if it has been
> ReDim'med.
> ' This is to prevent errors before applying LBound()
> or UBound().
> '
> ' Returns False if varArrayToCheck is dynamic and
> ' never has been ReDim'med or just has been erased.
> '
> ' 2001-08-11. Cactus Data ApS, CPH. Gustav Brock.
> 
>   Dim booIsReDimmed As Boolean
>   
>   On Error GoTo Err_IsReDimmed
>    
>   If IsArray(varArrayToCheck) = True Then
>     ' Check if varArrayToCheck is ReDim'med.
>     ' LBound() will fail if varArrayToCheck not has
> been ReDim'med.
>     booIsReDimmed = LBound(varArrayToCheck) Imp True
>     ' No error raised; varArrayToCheck is ReDim'med.
>   Else
>     ' varArrayToCheck is not an array.
>   End If
>   
>   IsReDimmed = booIsReDimmed
>   
> Exit_IsReDimmed:
>   Exit Function
>   
> Err_IsReDimmed:
>   Select Case Err
>     Case 9
>       ' Subscript (array index) out of range.
>       ' varArrayToCheck is dynamic and not
> ReDim'med.
>     Case Else
>       ' Other error.
>   End Select
>     ' Exit function returning False.
>   Resume Exit_IsReDimmed
> 
> End Function
> 
> /gustav
> 
> 
> >>> accessd666 at yahoo.com 06/02 1:13 pm >>>
> Hi group,
> 
> one of our programmers came to me with a question
> regarding an error when the UBOUND() of an array was
> retrieved. The error occures when an array has been
> DIMmed, without specifing the size, but not
> REDIMmed.
> 
> In the sample below I've created a simple example.
> When the function is called a byref array is to be
> filled with values. However the line:
>   for lngCntr = 0 to UBOUND(r_alngMyArray)
> Will always fill since it hasn't been ReDimmed.
> 
> I suggested a workaround:
> 1 - use the function IsInitialized() and check if
> the
> function returns -1. If so the array isnt't
> intitialized.
> 
> However, is there an official way of handling this
> error/problem/occurence?
> 
> Thnx
> 
> Regards,
> 
> SD
> --------------------
> EXAMPLE
> --------------------
> 
> Main
>   Dim alngValues() as long
>   Call RetrieveSomething(alngValues())
> End Main
> 
> Public Function RetrieveSomething(byref
> r_alngMyArray() as Long)
> dim lngCntr as long 
> 
> for lngCntr = 0 to UBOUND(r_alngMyArray)
>   Redim PRESERVE r_alngMyArray(lngCntr)
>   r_alngMyArray(lngCntr) = "THIS DOES NOT WORK!"
> next lngCntr
> 
> End Function
> 
> ------------------
> WORKAROUND
> ------------------
> Function IsInitialized(byref r_alngInitialized) as
> Long
>  On Error Goto error_not_initialized
>  
>   IsInitialized = UBOUND(r_alngInitialized)
> 
> Exit Function
> Goto error_not_initialized
>   IsInitialized = -1
> End Function
> 
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 



		
__________________________________ 
Discover Yahoo! 
Stay in touch with email, IM, photo sharing and more. Check it out! 
http://discover.yahoo.com/stayintouch.html