zxz 23.04.2012 14:05
Predmet:Re: Access i GoogleMaps

To ti javlja da nije nasao odnosno sporo ucita kartu pa nemoze da stigne a los je i onaj html.
Napravit cu ti nesto samo dok stignem.

zxz 23.04.2012 16:00
Predmet:Re: Access i GoogleMaps

Evo ti moja mapa pa probaj.
Trebao bi dodati i adrese pa da necemu sluzi.
Za sad nemas adresa u bazi.
Dobro bi bilo popisati i georafsku sirinu i duzinu u bazu pa bi brze radilo.
To se moze kodom napraviti da se popise samo treba napraviti bazu mjesta.
Ovo se moze iskoristiti za dosta drugih informacija pa cak i sliku objekta staviti.
Prilozi:
Google Mapszxz.zip (Velicina datoteke:44.04 KB)

roko 23.04.2012 16:16
Predmet:Re: Access i GoogleMaps

bi se moglo po IP adresi locirati pozicija korisnika ?

zxz 23.04.2012 16:54
Predmet:Re: Access i GoogleMaps

Citat:
bi se moglo po IP adresi locirati pozicija korisnika ?
U ovom slucaju nemoze po ip jer korisnik ne pristupa ovome ali se moze po adresi dobiti g. sirina i duzina.

pmiroslav 23.04.2012 18:02
Predmet:Re: Access i GoogleMaps

Ovo je odlično. Jedino Å¡to je podatak u oblačiću za sva markirana mjesta isti.
Pokušao sam mjenjati ovaj dio koda, jer mi tu nije bitna šifra kupca niti rabat:
hd.all("opis").Value = Format$(Rs!SifraKupca) & "-" & Format$(Rs!Firma) & "<br>Rabat:" & Format$(Rs!zadaniRabat)

Pa sam napisao

hd.all("opis").Value = Format$(Rs!Firma) & "-" & Format$(Rs!Adresa) & "-" & Format$(Rs!Mjesto)

Ali mi se nakon toga kod zaustavi i javlja grešku
Prilozi:
Image1.jpg (Velicina datoteke:254.35 KB)
Image2.jpg (Velicina datoteke:256.13 KB)

zxz 23.04.2012 22:24
Predmet:Re: Access i GoogleMaps

Hehe kod mene nije isti.
Uzmi moj orginal.
Citat:
hd.all("opis").Value = Format$(Rs!Firma) & "-" & Format$(Rs!Adresa) & "-" & Format$(Rs!Mjesto)
Nema greske u ovome.
Kazi koja polja zelis pa cu prepraviti.

pmiroslav 24.04.2012 10:16
Predmet:Re: Access i GoogleMaps

Evo ja sam malo preradio izvorni kod, kako bih otprilike želio da to bude, ali još uvjek je kod mene jedno te isti tekst na svim lokacijama koje se prikažu.

PreuzmiIzvorni kôd (vbnet):
  1. Function Ucitaj()
  2. On Error Resume Next
  3. Dim Db As Database
  4. Dim Rs As Recordset
  5. Dim Mjesto As String, Zemlja As String
  6. Dim X
  7.  
  8. Set hd = Me.WebBrowser0.Document
  9. Set Db = CurrentDb
  10. Set Rs = Forms![frmGdjeJeProdan].RecordsetClone
  11. Rs.MoveLast
  12. Rs.MoveFirst
  13. Do While Not Rs.EOF
  14. Mjesto = Format$(Rs!Mjesto)
  15. If Mjesto <> "" Then
  16.  
  17. ' **** ovdje sam stavio  ' vbCrLf & " - " & Format$(Rs!Proizvod)' jer bih želio da ovo ide u novi red, ali to ne radi ****
  18.  
  19.     hd.all("opis").Value = Format$(Rs!Firma) & _
  20.     ", " & Format$(Rs!Adresa) & _
  21.     ", " & Format$(Rs!Mjesto) & _
  22.     vbCrLf & " - " & Format$(Rs!Proizvod) & _
  23.     " - " & Format$(Rs!SumOfIzlaz) & " kom."
  24.    
  25.     hd.all("address").Value = Mjesto
  26.     hd.all("findAdrress").Click
  27.     End If
  28.    
  29. start:
  30.  
  31.     X = hd.all("PlaceName").Value
  32.     If X = "True" Then
  33.     Rs.MoveNext
  34.     Else
  35.     DoEvents
  36.     GoTo start
  37.     End If
  38. Loop
  39. Rs.Close
  40. Set Db = Nothing
  41. Set hd = Nothing
  42. Set hd = Nothing
  43. End Function
Prilozi:
Google Mapszxz_2.rar (Velicina datoteke:54.71 KB)

zxz 25.04.2012 13:22
Predmet:Re: Access i GoogleMaps

Kolicinu i naziv proizvoda nemas uovdje pa nisam ni dodao.
Podatke uzima sa forme izbor.
Trebas tamo dodati polja i onda mozes dodati i u kodu.
Ostavio sam pomjerljive markere zato sto u nekom gradu imas vise firmi.
Opet da napomenem da bi mogao popisati geografsku duz. i sirinu i onda bi mogao marker staviti na zgradu u kojoj se nalazi firma i onda bi markeri trebali biti ne pomjerljivi.
Za sad je ovo jos amaterski.

Hehe duzan si mi jos pola stuba.
Prilozi:
Google Maps_zxz2.zip (Velicina datoteke:45.27 KB)

pmiroslav 25.04.2012 14:45
Predmet:Re: Access i GoogleMaps

U svakom slučaju ja tebi dugujem cijeli dalekovod koliko si mi do sada pomogao.

Å to se tiće količine i naziva proizvoda izgleda nisi pogledao moj zadnji primjer koji sam poslao jer tamo to ima. Ali evo primjenio sam to u tom mom izmjenjeno slučaju pa ću ga prikvačiti.
forma WWW otvara se sa 'frmGdjeJeProdan'
Sada je to vrlo krasno, jedino je još problem što mi ne prikazuje više firmi u jednom gradu.
Ti kažeš da si ostavio promjenjive markere pa se nadam da to nije teško popraviti.
U tablici tblPartneri sam dodao geografsku širinu i dužinu (ali tu me nešto zeza ja upišem 45,327706, a u tablici se zaokruži na 45 ) probao sam razne formate broja i uvjek isto)
Prilozi:
GoogleMapsMP_1.rar (Velicina datoteke:55.53 KB)

zxz 25.04.2012 15:34
Predmet:Re: Access i GoogleMaps

Citat:
U tablici tblPartneri sam dodao geografsku širinu i dužinu (ali tu me nešto zeza ja upišem 45,327706, a u tablici se zaokruži na 45 ) probao sam razne formate broja i uvjek isto)

Vjerovatno si uzeo format broj ali integer a integer je cio broj.
Uzmi bar single i sve ce biti uredu.
Citat:
Sada je to vrlo krasno, jedino je još problem što mi ne prikazuje više firmi u jednom gradu.
Pokazuje ali posto su kordinate od grada te su iste onda su markeri jedan preko drugao.
Zato sam napravio pomjerljivo da mozes vidjeti ispod i drugu firmu.
Hehe to sam probao na LIPOVac pa zakljucio da ima lipovac i u srbiji pa sam ukljucio u pretragu i drzavu.

Eto nesto saznah.
Dva mjesta istoga naziva u srbiji i u hrvatskoj.