Centar za edukaciju-BiH



#21 25.04.2012 17:56
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


Predmet:Re: Access i GoogleMaps
Uočio sam sad da su markeri jedan ispod drugog. kada se jedan pomakne miÅ¡em pojavi se drugi.
Što bih trebao dodati u kodu da mi mjesto pretraži po geografskoj koordinati.
Iako mi je to pretraživanje po koordinatama problem jer u bazi za sada imam preko 1200 kupaca i tko će unijeti te silne geografske dužine i Å¡irine, pa bi možda bilo bolje tražiti po ulici.
Pozdrav
↑  ↓

#22 25.04.2012 18:45
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Re: Access i GoogleMaps
Hehe nemas ti za nasu oblast svih ulica.
Imas na forumu cini mi se kod za pretvaranje gografske sirine i duzine u koordinate i obratno.
Neces morati nista to raditi.
Vec sam ja mislio o tome.
Ti ces jednostavno zumirati pojedinacni marker te ga postaviti na zgradu gdje se nalazi firma a ja cu ti dodati kod da upise polozaj u bazu a i to je veliki posao ako imas mnogo firmi.

I poslije toga valja ti i bar jedan stub dalekovodni nacrtati uff. nebi ti bio u kozi.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#23 25.04.2012 19:21
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


Predmet:Re: Access i GoogleMaps
Probao sam malo izmjenikti Funkciju Ucitaj pa sam dodao

Dim Adresa As String, Mjesto As String, Zemlja As String
hd.all("address").Value = Adresa & "," & Mjesto & "," & Zemlja

ali stvarno kada se ne pronađe adresa pretraga stane, pa ne pronađe ni ostala mjesta nakon toga.

Å to se tiče crtanja dalekovoda, nema problema
Pozdrav
↑  ↓

#24 25.04.2012 20:56
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Re: Access i GoogleMaps
Stavi ovo na www formu i povecaj malo kartu u html.

Private Sub Form_Resize()
Me.WebBrowser0.Width = Form.InsideWidth - 150
Me.WebBrowser0.Height = Form.InsideHeight - 150
End Sub
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
Ovaj post je ureden 1 puta. Posljednja izmjena 25.04.2012 20:57 od strane zxz. ↑  ↓

#25 26.04.2012 10:43
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


Predmet:Re: Access i GoogleMaps
Ovo do sada je perfektno i odlično radi. Jedino bih te joÅ¡ molio slijedeće:
PoÅ¡to u popisu kupaca ima dosta malih sela koje ponekad pretraživač ne pronađe i tada se pojavi poruka npr. 'Svileuva, Srbija. Nije nadjeno' i nakon toga prestaje i daljnje traženje.
Zanima me dali se može ubaciti neki uslov
If pretraga = false
Idi na slijedeču pretragu
Pozdrav
↑  ↓

#26 26.04.2012 17:35
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Re: Access i GoogleMaps
Po meni nebi trebalo da stane.
Evo procedure koja to obavlja.
PreuzmiIzvorni kôd (Javascript):
  1.  function showAddress() {
  2.     address=document.getElementById("PlaceName").value;
  3.     opis=document.getElementById("opis").value;
  4.       if (geocoder) {
  5.         geocoder.getLatLng(
  6.           address,
  7.           function(point) {
  8.             if (!point) {
  9.               alert(address + " Nije Nadjeno");
  10.             } else {
  11.               map.setCenter(point, 15);
  12.               var marker = new GMarker(point, {draggable: true});
  13.               map.addOverlay(marker);
  14.               marker.title=opis;
  15.              
  16.               GEvent.addListener(marker, "click", function() {
  17.               point=marker.getLatLng().toUrlValue(6);
  18.               marker.SetMarker =GMarker(point);
  19.               marker.openInfoWindowHtml(marker.title);
  20.               });
  21.               //GEvent.trigger(marker, "click");
  22.               map.setCenter(new GLatLng(45.727444, 18.414935), 8);
  23.               document.getElementById("PlaceName").value="True";
  24.             }
  25.           }
  26.         );
  27.       }
  28.     }
Znaci ona radi samo jedan marker a pozivam je iz accesa onoliko puta koliko ima podataka i to ovim.
PreuzmiIzvorni kôd (Visual Basic):
  1. hd.all("address").Value = Mjesto & "," & Zemlja
  2.     hd.all("findAdrress").Click
Znaci prvo u htm polje addres unesem podatak
Onda pokrenem klik na taster findadress

evo tih polja u taml:
PreuzmiIzvorni kôd (HTML):
  1. <body onload="initialize()" onunload="GUnload()">
  2.    <div STYLE="display: none">
  3.  
  4.       <div id="findAdrress" onclick="showAddress(); return false"></div>
  5.         <form action="#" onsubmit="showAddress(); return false">
  6.          <input id="PlaceName" type="text" style="width:350px" name="address" value="" />
  7.          <input id="opis" type="text" style="width:350px" name="ostalo" value="" />
  8.          <input type="submit" value="Go!" />
  9.       </p>
  10. </div>
  11.       <div id="map_canvas" style="width: 1800px; height: 1600px"></div>
  12.     </form>
  13.  
  14.   </body>

sad sam doduse i vidio da imam viska polja i to:
<input type="submit" value="Go!" />
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#27 26.04.2012 17:59
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


Predmet:Re: Access i GoogleMaps
Nisam baÅ¡ kod kuće sa html kodom pa mi ovaj ispod 'mapa.html nije baÅ¡ najjasniji.
Hajde molim te pogledaj moj primjer i vidjet ćeÅ¡ da pretraga stane nako Å¡to naiđe na adresu koja je nepoznata

Slicice prilozenih slika:
Image3.jpg
Tip datoteke:Informacije o tipu datoteke za:jpg jpg
Preuzimanja:247
Velicina datoteke:243.74 KB
Velicina slike: 980 x 735 Pikseli



Prilozi:
Informacije o tipu datoteke za:rar  GoogleMapsMP_2.rar
Preuzimanja:239
Velicina datoteke:54.32 KB


Pozdrav
↑  ↓

#28 26.04.2012 18:29
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Re: Access i GoogleMaps
Eh kod mene ovaj tvoj nece nikako ali kada sam prebacio bazu na moje sto sam nakacio na forum onda je sve odradio.
I svilajnac je nasao.

Nekada hoce stati ako internet slabo radi to znam.

Ovaj tvoj valja detaljno pogledati ali veceras necu moci jer idem u goste.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#29 26.04.2012 19:16
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


Predmet:Re: Access i GoogleMaps
Nije hića, kad budeÅ¡ mogao molim te pogledaj gdje je problem.
Pozdrav
↑  ↓

#30 28.04.2012 11:02
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Re: Access i GoogleMaps
Evo uporedio sam po sadrzaju tvoju i moju proceduru i nema nigdje razlike u kodu sem sto si dodao adresu i treba izbrisati.
Kao sto sam naveo prije kod mene pronalazi sva mjesta.
PreuzmiIzvorni kôd (Visual Basic):
  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, Opis As String, Y
  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. Zemlja = Format$(Rs!Zemlja)
  16.     If Mjesto <> "" Then
  17.     Opis = "Firma:" & Format$(Rs!Firma) _
  18.     & "<br> Adresa:" & Format$(Rs!Adresa) _
  19.     & "<br>Mjesto:" & Format$(Rs!Mjesto) _
  20.     & "<br>Proizvod:" & Format$(Rs!Proizvod) _
  21.     & "<br>Kolicina:" & Format$(Rs!SumOfIzlaz) & " kom."
  22.     hd.all("opis").Value = Opis
  23.     hd.all("address").Value = Mjesto & "," & Zemlja
  24.     hd.all("findAdrress").Click
  25.     End If
  26. start:
  27.     X = hd.all("PlaceName").Value
  28.     If X = "True" Then
  29.     Rs.MoveNext
  30.     Else
  31.     DoEvents
  32.     GoTo start
  33.     End If
  34. Loop
  35. Rs.Close
  36. Set Db = Nothing
  37. Set hd = Nothing
  38. Set hd = Nothing
  39. End Function

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 +01:00. Trenutno vrijeme: 10: 39 am.