I dimension an array using Dim in the general declarations section of a form
so it can be used throughout the form.  Then I want to ReDim it in a Sub
within the form, but it won't let me.  Any ideas?

***************************************************
* Visit The Otis Page at http://www.*-*-*.com/ *
*Your source for useless information since 6-27-96*
***************************************************

I find this post from an ambiguous sender:

Steve Comstock
Denver, Colorado
USA

telephone: 800-993-8716
or:        303-393-8716
fax:       303-393-8718

Rainer

------------------------------------------------------

yOU CAN'T REDEFINE A ARRAY DECLARED WITH DIM.

DECLARE WITH REDIM THEN YOU REDEFINE IT, EVEN YOU CAN PRESERVE CONTRNTS

DIM A(20) AS INTEGER
REDIM A(40) --- THIS WON'T WORK

REDIM A(40) AS INTEGER
REDIM A(100) --- THIS WILL WORK

YOU CAN PRESERVE CONTENTS ALSO

REDIM PRESERVE A(100) -- PREVIOUS ITEMS WILL BE PRESERVED

M.D.

in a module i have made a userdefined type:

Type Test
        x as Integer
        y as String
End Type

in the general Declarations section i have initialized the array:
'just according to the help-files and examples

Dim TestArray() As Test

'and a variable i need later

Dim Counter

So now i have an array of zero and i can use ReDim to change the size.

In the Form_load event i set the Counter to zero:

Counter=0

In a procedure i have to change the size, i coded like this:

Sub Command1_click()
        Counter=Counter+1
        ReDim Preserve TestArray(Counter)
        TestArray(Counter).x=1
        TestArray(Counter.y="a"
end Sub

gr. walther

------------------- cut here ---------------
Walther Musch
Tilburg University Holland

dim myarray(10) as integer

if you do so the array can not be resized. You must declare your array with an
statment of this type :

dim myarray() as integer

tchuss Rainer