Hi again
I have never really looked at this before - so this is just a first (2 min
coffee break) attempt. You can get anyones location as long as you have the
post code (not sure how it would work in the US or elsewhere)
I assume you have a control called "postcode" somewhere on your form.
Just create a lable with this OnClick - Yes I know it's a mess but it works
- I may clean it up when I've got another coffee break (get rid of all the
Mid - postcodes, like I said, 1st stab at this)
Oh and this is really fun.
Private Sub LableName_Click()
Dim MyHyperlink As String
MyHyperlink =
"
http://maps.google.co.uk/maps?f=q&hl=en&geocode=&time=&date=&ttype=&q=" &
Mid([CDPostcode], 1, 1) & Mid([CDPostcode], 2, 1) & Mid([CDPostcode], 3, 1) &
"+" & Mid([CDPostcode], 5, 1) & Mid([CDPostcode], 6, 1) & Mid([CDPostcode],
7, 1) & Mid([CDPostcode], 8, 1) & Mid([CDPostcode], 9, 1) &
"&ie=UTF8&ll=53.443899,-3.158569&spn=0.695244,1.851196&z=9&iwloc=addr&om=0"
Application.FollowHyperlink MyHyperlink
End Sub
Give it go -