dynamic array question???

[Marc]

Hi the below code works fine.

however as i wont always know that the objloc array has 4
parameters...how can i modify this code so that the array is dynamic??

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

[tommaso.gastaldi]

Hi marc,

you could use for instance

dim objLoc2 as New arraylist

dim objLoc2 as New List(Of MapPoint.Location)
[Imports System.Collections.Generic]

or similar
....
Marc ha scritto:

Hi the below code works fine.

however as i wont always know that the objloc array has 4
parameters...how can i modify this code so that the array is dynamic??

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

[Marc]

thanks tommaso,

ive think im in the wrong forum....this is all access vba..i dont think
it suppports array lists?
to**************@uniroma1.it wrote:

Hi marc,

you could use for instance

dim objLoc2 as New arraylist

dim objLoc2 as New List(Of MapPoint.Location)
[Imports System.Collections.Generic]

or similar
...
Marc ha scritto:

Hi the below code works fine.

however as i wont always know that the objloc array has 4
parameters...how can i modify this code so that the array is dynamic??

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