[ babayaro961 @ 18.04.2018. 21:12 ] @
U brojnim besplatnim obrascima aplikacija koje "idu uz" MS Office paket, postoji tabela "Contact" i forma "Contact Details" gde se, uz upisanu adresu kontakta, pomoću dugmeta "Click to Map", može izaći na bing.com mapu koja je pozicionirana na zadatoj adresi. Dakle, ne raid se o embedovanju, već o direktnom povezivanju sa bing.com/maps.Za izvršenje ove naredbe koristi se modul "modMapping", a i sve je dobro objašnjeno na Microsoft-ovom sajtu: Function OpenMap(Address, City, State, Zip, CountryOrRegion) 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(CountryOrRegion) 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 Da li je nekome poznato kako se umesto bing.com-a na ovaj način mogu iskoristiti google mape, jer su one, barem što se tiče unutrašnjosti, preciznije u povezivanju sa zadatom adresom. |