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