dynamic array help

[Marc]

i need to change the below array so that it is dynmanic...how can i do
this?

i.e there wont always be 4 values.

Sub MapSelectedProperties()
Dim objLoc2(1 To 4) As MapPoint.Location
Dim i As Integer
i = 0
Set Recordset = CurrentDb.OpenRecordset("SELECT * FROM
tblProperties;")
If Recordset.RecordCount > 0 Then
While Not Recordset.EOF
i = i + 1
Set objLoc2(i) = objMap.FindAddressResults(Recordset!strStreet,
Recordset!strCity, Recordset!strState, Recordset!strPostalCode)(1)
Set objPin = objMap.AddPushpin(objLoc2(i), Recordset!strStreet)
Recordset.MoveNext
Wend
End If
objMap.Shapes.AddPolyline objLoc2


End Sub

 

[Allen Browne]

You an ReDim an array at runtime:

Dim lngHowMany As Long
lngHowMany = Nz(DCount("*", "tblProperties"), 0)
ReDim objLoc2(lngHowMany) As ...

 

[Marc]

Thanks it works now!!!

You an ReDim an array at runtime:

Dim lngHowMany As Long
lngHowMany = Nz(DCount("*", "tblProperties"), 0)
ReDim objLoc2(lngHowMany) As ...