MapForums

Option Compare Database

Private objMap As MAPPOINT.MappointControl
Private objRoute As MAPPOINT.Route
Private objSA As MAPPOINT.StreetAddress
Private objPush As Pushpin
'Private objway As Waypoints
Private oLoc As Object


Private Sub cmdPlot_Click()
    If txtAddress <> "" Then
        ApplyPoint
    End If
End Sub


Private Sub Form_Load()
    Set objMap = Mapctl.Object
    objMap.NEWMAP geoMapEurope
End Sub


Public Function ApplyPoint()

    If objMap Is Nothing Then Set objMap = Me!Mapctl.Object
    Set objSA = objMap.ActiveMap.ParseStreetAddress(PICKUPADDRESS & " , " & PICKUPTOWN & " , " & PICKUPCOUNTY & " , " & PICKUPPOSTCODE)
    Set oLoc = objMap.ActiveMap.FindAddressResults(objSA.Street, objSA.City _
     , , objSA.Region, objSA.PostalCode)
     
    If Not oLoc Is Nothing And oLoc.ResultsQuality <> geoNoResults Then
    
        Set objPush = objMap.ActiveMap.AddPushpin(oLoc(1).Location, Me.PICKUPCUSTOMER)
        objPush.BalloonState = geoDisplayName
        objMap.ActiveMap.ActiveRoute.Waypoints.Add oLoc(1) 'Adds Awaypoint to map
        objPush.Location.GoTo
        Set objPush = Nothing
        Set oLoc = Nothing
    End If

End Function