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

You an ReDim an array at runtime:

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

--
Allen Browne - Microsoft MVP. Perth, Western Australia
Tips for Access users - http://allenbrowne.com/tips.html
Reply to group, rather than allenbrowne at mvps dot org.

"Marc" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
>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

Thanks it works now!!!

Allen Browne wrote:
> You an ReDim an array at runtime:
>
> Dim lngHowMany As Long
> lngHowMany = Nz(DCount("*", "tblProperties"), 0)
> ReDim objLoc2(lngHowMany) As ...
>
> --
> Allen Browne - Microsoft MVP. Perth, Western Australia
> Tips for Access users - http://allenbrowne.com/tips.html
> Reply to group, rather than allenbrowne at mvps dot org.
>
> "Marc" <(E-Mail Removed)> wrote in message
> news:(E-Mail Removed)...
> >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