Centar za edukaciju-BiH



#11 23.04.2012 14:05
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


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.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#12 23.04.2012 16:00
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


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:
Informacije o tipu datoteke za:zip  Google Mapszxz.zip
Preuzimanja:288
Velicina datoteke:44.04 KB


Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#13 23.04.2012 16:16
roko Van mreze
Clan
Registrovan od:02.02.2009
Postovi:236


Predmet:Re: Access i GoogleMaps
bi se moglo po IP adresi locirati pozicija korisnika ?
↑  ↓

#14 23.04.2012 16:54
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


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.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#15 23.04.2012 18:02
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


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

Slicice prilozenih slika:
Image1.jpg
Tip datoteke:Informacije o tipu datoteke za:jpg jpg
Preuzimanja:263
Velicina datoteke:254.35 KB
Velicina slike: 1017 x 783 Pikseli
Image2.jpg
Tip datoteke:Informacije o tipu datoteke za:jpg jpg
Preuzimanja:250
Velicina datoteke:256.13 KB
Velicina slike: 1018 x 780 Pikseli


Pozdrav
Ovaj post je ureden 1 puta. Posljednja izmjena 23.04.2012 18:07 od strane pmiroslav. ↑  ↓

#16 23.04.2012 22:24
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


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.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#17 24.04.2012 10:16
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


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:
Informacije o tipu datoteke za:rar  Google Mapszxz_2.rar
Preuzimanja:230
Velicina datoteke:54.71 KB


Pozdrav
↑  ↓

#18 25.04.2012 13:22
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


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:
Informacije o tipu datoteke za:zip  Google Maps_zxz2.zip
Preuzimanja:228
Velicina datoteke:45.27 KB


Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#19 25.04.2012 14:45
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


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:
Informacije o tipu datoteke za:rar  GoogleMapsMP_1.rar
Preuzimanja:224
Velicina datoteke:55.53 KB


Pozdrav
↑  ↓

#20 25.04.2012 15:34
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


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.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

Stranice (6):1,2,3,4,5,6


Sva vremena su GMT +02:00. Trenutno vrijeme: 4: 45 am.