pmiroslav 19.04.2012 14:34
Predmet:Access i GoogleMaps

Čitao sam neÅ¡to da je moguće integrirati access i Google maps.
Pa me zanima dali možemo pokušati napraviti nešto tako.
Imam tablicu Partneri u kojoj su i njihove adrese pa bi bilo interesanto kada bi odabirom određenog parnera dobio na karti njegov položaj.

zxz 19.04.2012 14:46
Predmet:Re: Access i GoogleMaps

Evo ovo je neciji primjer ali neznam ciji. Ko prepozna neka se javi. Nisam nista mijenjao.
Koliko se sjecam to je bilo na starom forumu kada smo raspravljali o integraciji Win medija plejera.
I taj primjer ima negdje.

Primjer koji je postavljen je radio:
Zoran Eremija iz Beograda
Prilozi:
GoogleMaps 20100404.zip (Velicina datoteke:16.98 KB)

pmiroslav 19.04.2012 14:52
Predmet:Re: Access i GoogleMaps

Hvala na primjeru pogledat ću ga i nadam se pomoći oko eventualnih prilagođavanja mojoj aplikaciji.

zxz 19.04.2012 15:16
Predmet:Re: Access i GoogleMaps

Ako budes imao problema javis se.

pmiroslav 20.04.2012 18:08
Predmet:Re: Access i GoogleMaps

Primjer koji si poslao napravio je izvjesni Zoran Eremija iz Beograda (to sam vidio iz koda) i red je da mu se zahvalimo).
Ja sam na tome nešto radio i napravio da mi se sa foreme frmPartneri otvori mapa i postavi kursor na lokaciju iz koje je partner.
E sada ja imam zahjev da se na karti prikaže viÅ¡e lokacija odjednom. Recimo da napravim Query u koja je sve mjesta određena roba prodana i da se na temelju toga otvori karta i markiraju ta mjesta.
Da li je to nekako izvodivo?
Prilozi:
Google Maps.rar (Velicina datoteke:37.98 KB)

zxz 21.04.2012 12:32
Predmet:Re: Access i GoogleMaps

Smanji Zum Bar na 5 ili 4.
Na formi koju zoves WWW Napravi jedan komandni taster i stavi ovaj kod na on Klick.
PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub Command_Click()
  2. Dim Db As Database
  3. Dim Rs As Recordset
  4. Dim Mjesto As String, Zemlja As String
  5.  
  6. Set hd = Me.WebBrowser0.Document
  7. Set Db = CurrentDb
  8.  
  9. Set Rs = Db.OpenRecordset("tblPartneri")
  10.  
  11. Do While Not Rs.EOF
  12. Mjesto = Format$(Rs!Mjesto)
  13. Zemlja = Format$(Rs!Zemlja)
  14. If Mjesto <> "" Then
  15. hd.all("PlaceName").Value = Mjesto & "," & Zemlja
  16. hd.all("findAdrress").Click
  17. End If
  18. Rs.MoveNext
  19. Loop
  20. ChangeIcon 1
  21. Rs.Close
  22. Set Db = Nothing
  23. Set hd = Nothing
  24. End Sub

pmiroslav 21.04.2012 15:29
Predmet:Re: Access i GoogleMaps

Na dobrom si putu, ali ja bih želio sa se forma 'www' otvori sa tastera koji je na formi 'frmIzbor' i da se tada na kari prikažu lokacije koje su na popisu u frmIzbor.
U tom slučaju na formi WWW mi nebi trebale nikakve kontrole osim 'WebBrowser0'
Prilozi:
Google Maps_2.rar (Velicina datoteke:41.07 KB)

zxz 21.04.2012 22:27
Predmet:Re: Access i GoogleMaps

Ako sam te dobro razumio ti samo neces da imas taster na www formi nego hoces sa neke druge da otvaras.
Ako je tako onda premjeti kod na on timer i pozivaj samo ovu formu sa neke druge na klik nekog tatsera.

pmiroslav 22.04.2012 09:15
Predmet:Re: Access i GoogleMaps

Moram priznati da je ovo dosta konfuzno za mene.
Stavio sam kod koji si napravio na OnTimer i sada se kod otvaranja WWW forme javljeju razne greške
Prilozi:
Google Maps_3.rar (Velicina datoteke:37.57 KB)
Image1.jpg (Velicina datoteke:25.38 KB)

pmiroslav 23.04.2012 09:52
Predmet:Re: Access i GoogleMaps

Jučer sam Googlao pa sam pronaÅ¡ao joÅ¡ jedno solidno rijeÅ¡enje za implementaciju karte u Access.
Ali i dalje ostaje problem za prikaz više odabranih lokacija odjednom.
Prilozi:
GoogleMaps.rar (Velicina datoteke:29.70 KB)