Streets and Trips

[B]

Has anyone ever exported FROM Access to Streets and Trips, if so how? I
would like to send my new appointments to S&T by clicking a button. Where
does S&T keep this file, if I knew that I might be able to send the data.

 

[Arvin Meyer [MVP]]

I wasn't aware that S&T is programmable, but MapPoint is and I've opened
maps in Access from Access database stored addresses.

Set a reference to MapPoint. The code might look something like:

Dim oApp As Object
Dim oMap As Object
Dim oPush(1 To 2) As Object
Dim oLoc(1 To 2) As Object

Set oApp = CreateObject("Mappoint.Application")
Set oMap = oApp.NewMap

Set oLoc(1) = oMap.Find(Me.txtAddress & " , " & Me.txtCity & " , " &
Me.txtState)

If Not oLoc(1) Is Nothing Then
Set oPush(1) = oMap.AddPushpin(oLoc(1))
oPush(1).GoTo

With oMap.ActiveRoute
.Waypoints.Add oLoc(1)
End With
oMap.CopyDirections
DoEvents
Me.txtDir.SetFocus
DoCmd.RunCommand acCmdPaste

End If

oMap.DataSets(1).ZoomTo
oMap.CopyMap
imgClip.Visible = True
imgClip.Action = acOLEPaste

lblMapInfo.Caption = ""
Else
lblMapInfo.Caption = "Address Not Found!"
End If
Set oMap = Nothing
Set oApp = Nothing
--
Arvin Meyer, MCP, MVP
Microsoft Access
Free Access downloads
http://www.datastrat.com
http://www.mvps.org/access

 

[B]

Thanks, wish I bought MapPoint now. I will make this work for now and then
buy it later.