none
VBA MS-Access Google Map

    Question

  • How Can make google earth kind of application in VBA MS-Access ?

    Need some guidance. Thanks.


    Regards, Brij
    Sunday, May 08, 2011 12:01 PM

All replies

  • You can use the following function:

    Function OpenMap(Address, City, State, Zip, Country)
        Dim strAddress As String
       strAddress = Nz(Address)
       strAddress = strAddress & IIf(strAddress = "", "", ", ") & Nz(City)
       strAddress = strAddress & IIf(strAddress = "", "", ", ") & Nz(State)
       strAddress = strAddress & IIf(strAddress = "", "", ", ") & Nz(Zip)
       strAddress = strAddress & IIf(strAddress = "", "", ", ") & Nz(Country)
        If strAddress = "" Then
           MsgBox "There is no address to map."
       Else
           Application.FollowHyperlink "http://maps.live.com/default.aspx?where1=" & strAddress
       End If
    End Function

    You would use it by issuing the command
        Call OpenMap([Address], [City], [State/Province], [Zip/Postal Code], [Country/Region])

    Where you supply the items in [] via controls on your form.


    Hope this helps.

    Doug Robbins - Word MVP,
    dkr[atsymbol]mvps[dot]org
    Posted via the Community Bridge

    "BrijrajRathod" wrote in message news:c5a01514-c93a-47f0-b902-a82853af1d21@communitybridge.codeplex.com...

    How Can make google earth kind of application in VBA MS-Access ?

    Need some guidance. Thanks.


    Regards, Brij


    Doug Robbins - Word MVP dkr[atsymbol]mvps[dot]org
    Sunday, May 08, 2011 7:49 PM
  • Hi ,

    Thanks for reply,

    Well i need to have one control on MS-Access form and user can enter axes.

    I will try with web browser control on form and then i need to use your code , but how to make search base on axes.


    Regards, Brij
    Monday, May 09, 2011 1:42 PM