Afstandberekening via Google Maps en MS Access

[richard99]

Beste programmeurs

Ik probeer een afstand te berekenen via MS Access en ik heb de syntaxis gekopieerd waarmee vanuit excel dit berekent werd.
Probleem is dat het vastloopt met de declaratie van een xml object dat wel in Excel werkt maar niet in Access.
Kan iemand mij helpen deze syntaxis ook te laten werken in MS Access 2003?
Het loopt vast op: With New MSXML2.XMLHTTP
Wellicht zal ik een browser object moeten pakken maar misschien weet iemand direct wat ik fout doe.

Hier is de syntaxis:
strPostcode1 = Me.txtPostcode1
strPostcode2 = Me.txtPostcode2
With New MSXML2.XMLHTTP

.Open "Get", "http://maps.google.nl/maps?f=d&source=s_d&saddr=" & strPostcode1 & "&daddr=" & strPostcode2
.send
Do
DoEvents
Loop Until .readyState = 4
Debug.Print .responseText


End If
.abort
End With

 

[OctaFish]

Je hebt waarschijnlijk de bibliotheek niet geladen die wordt aangeroepen. Kijk in Excel hoe die heet, en activeer 'm ook in Access.

 

[richard99]

Beste Michel

Ik heb inderdaad in de verwijzingen van de VBA module in Excel gekeken maar daar stond niets in verwezen. Ik heb een xml dan maar ingeladen in Access echter geen succes.
Heb jij geen code waar je de inhoud van een browser op kan vragen.
De inhoud kent een vast structuur en deze kan ik prima inlezen en vanuit daar het gewenste resultaat behalen.

 

[richard99]

OPGELOST!
strPostcode1 = Me.txtPostcode1
strPostcode2 = Me.txtPostcode2
strWebsite = "http://maps.google.nl/maps?f=d&source=s_d&saddr=" & strPostcode1 & "&daddr=" & strPostcode2
fh = FreeFile
Set msXML = CreateObject("Microsoft.XMLHTTP")
msXML.Open "GET", strWebsite, False
msXML.setRequestHeader "Content-type", "text/xml"
msXML.send
strpageContent = msXML.responseText