01-05-14, 20:43
|
| Όνομα: ΚΩΣΤΑΣ Έκδοση λογισμικού Office: Ms-Office 2007, Ms-Office 2016 Γλώσσα λογισμικού Office: Ελληνική | | Εγγραφή: 22-04-2010 Περιοχή: Νέα Ιωνία
Μηνύματα: 115
| |
 Application.FollowHyperlink MyHyperlink
Γεια στο καλύτερο Forum
έχω ένα κουμπί σε μια forma που κάνει αναζήτηση στη GOOGLE MAP
2 χρονια δούλευε καλά με τους νέους χάρτες google δεν μου δουλεύει
η εντολή είναι
Private Sub ΧΑΡΤΕΣ_Click()
Dim MyHyperlink Ας String
Dim strGoogleLoaction Ας String
strGoogleLoaction = Replace([ΟΔΟΣ] & " " & [ΚΩΔ_ΠΕΡ] & " " & [ΤΑΧ_ΚΩΔΙΚΟΣ], " ", "+")
MyHyperlink = "https://maps.google.gr/maps?hl=el&geocode=&time=&date=&ttype=&q=" & strGoogleLoaction & "&ie=UTF8&σρι=0.067101,0.165138"
Application.FollowHyperlink MyHyperlink
End Sub
στη αναζήτηση της google είναι ???????? 16 ??????? 14562
|