dynamic array question???

  • Thread starter Thread starter Marc
  • Start date Start date
M

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
 
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:
 
thanks tommaso,

ive think im in the wrong forum....this is all access vba..i dont think
it suppports array lists?


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
Click to expand...
Click to expand...
 
Back
Top