Amelasar 05.05.2012 19:37
Predmet:Re: Access i GoogleMaps

Kod mene je brzina:
Download: 2.86
Upload: 0.33

Nista mi ne prikazuje, samo otvori praznu formu www?

Amelasar 05.05.2012 19:40
Predmet:Re: Access i GoogleMaps

Ovako izgleda.
Prilozi:
screen.JPG (Velicina datoteke:36.84 KB)

Bosanec 05.05.2012 21:00
Predmet:Re: Access i GoogleMaps

kod mene radi tek kad sam promijenio onaj dio koda

koji je zxz dao

pitanje da li se može smanjiti početni zum na mapi možda bi onda bilo brže učitavanje

evo postavljam bazu sa izmijenjenim kodom jer ona prva ne radi kako treba

pozdrav

zxz 06.05.2012 13:16
Predmet:Re: Access i GoogleMaps

Za Amelasar.
Probaj htm podici sam u browseru.

za Bosanec:
Citat:
pitanje da li se može smanjiti početni zum na mapi možda bi onda bilo brže učitavanje
Moze se zum smanjiti i povecati to ti je u htmlu.
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.     }

To ti je ovaj red koda:
     map.setCenter(new GLatLng(45.727444, 18.414935), 8);
ovo 8 je zoom

pmiroslav 06.05.2012 15:15
Predmet:Re: Access i GoogleMaps

Eksperimeniro sam sa promjenom zuma od 1 do 8 i niÅ¡ta se nije promjenilo. Bez poruke MsgBox-a koji je dodan da uspori proceduru, pretraga kod mene uvjek stane i ne pronađu se sva mjesta.
Ovo sa porukom je odlično i svaki puta se pronađu sve adrese, jedino Å¡to je malo dosdno stalno tiskati 'Enter'
U međuvremenu sam tražio neko rjeÅ¡enje da se ne mora nakon savake poruke tiskati 'ENTER' i naÅ¡ao sam ovo:
PreuzmiIzvorni kôd (vbnet):
  1. Option Compare Database
  2. Option Explicit
  3. Private Sub Command0_Click()
  4. Me.TimerInterval = 5000
  5. MsgBox "Pozdrav. Gasim se nakon 5 sekundi."
  6. Me.TimerInterval = 0
  7. End Sub
  8.  
  9. Private Sub Form_Timer()
  10. SendKeys "{Enter}"
  11. End Sub

Međutim to radi kada se poruka otvori sa nekog dugmeta, ali neće kada sam to dadao u proceduru
PreuzmiIzvorni kôd (vbnet):
  1. start:
  2.     If X = "True" Then
  3. Me.TimerInterval = 5000
  4.         MsgBox Firma & ", " & Mjesto & ", " & Zemlja, , "Pronaeno je"
  5. Me.TimerInterval = 0
  6.     Rs.MoveNext
  7.     Else
  8.         DoEvents
  9.     GoTo start
  10.     End If

Bosanec 06.05.2012 19:28
Predmet:Re: Access i GoogleMaps

promijenio sam zum na 3 i ko da malo brže učita

primijetio sam kada se prvi put otvori pretraživač sve uredno označi mjesta međutim
kada zatvorim pretraživač i ponovo pokrenem neće da označi mjesta, moram zatvoriti komplet bazu pa
je ponovo pokrenuti da bi proradilo koda mu fali neko osvježavanje posle zatvaranja pretraživača

pozdrav

pmiroslav 07.05.2012 13:35
Predmet:Re: Access i GoogleMaps

Može li se nešto napraviri po ovome što sam pitao u postu #45 ?

zxz 08.05.2012 07:58
Predmet:Re: Access i GoogleMaps

Za bosanec.
Imas li na on Unload End.

za pmiroslav
Dok stignem pogledat cu ali volio bih da se jos ko javi .

pmiroslav 23.05.2012 20:52
Predmet:Re: Access i GoogleMaps

Citiraj pmiroslav:
Eksperimeniro sam sa promjenom zuma od 1 do 8 i niÅ¡ta se nije promjenilo. Bez poruke MsgBox-a koji je dodan da uspori proceduru, pretraga kod mene uvjek stane i ne pronađu se sva mjesta.
Ovo sa porukom je odlično i svaki puta se pronađu sve adrese, jedino Å¡to je malo dosdno stalno tiskati 'Enter'
U međuvremenu sam tražio neko rjeÅ¡enje da se ne mora nakon savake poruke tiskati 'ENTER' i naÅ¡ao sam ovo:
PreuzmiIzvorni kôd (vbnet):
  1. Option Compare Database
  2. Option Explicit
  3. Private Sub Command0_Click()
  4. Me.TimerInterval = 5000
  5. MsgBox "Pozdrav. Gasim se nakon 5 sekundi."
  6. Me.TimerInterval = 0
  7. End Sub
  8.  
  9. Private Sub Form_Timer()
  10. SendKeys "{Enter}"
  11. End Sub

Međutim to radi kada se poruka otvori sa nekog dugmeta, ali neće kada sam to dadao u proceduru
PreuzmiIzvorni kôd (vbnet):
  1. start:
  2.     If X = "True" Then
  3. Me.TimerInterval = 5000
  4.         MsgBox Firma & ", " & Mjesto & ", " & Zemlja, , "Pronaeno je"
  5. Me.TimerInterval = 0
  6.     Rs.MoveNext
  7.     Else
  8.         DoEvents
  9.     GoTo start
  10.     End If


Da se vratim na ovo. Dali se ovo nekako može riješiti.
Sve mi sada radi odlično jedino ovaj problemčić.

zxz 23.05.2012 20:58
Predmet:Re: Access i GoogleMaps

Uf ja sam za to zaboravio.
Dobro je sto si ponovo pokrenuo.
Gledaj to mozes rijesiti jedino ako taj dugi interval odnosno on time postavis na onu drugu formu jer na ovoj je to iskoristeno odnosno ja sam iskoristio negdje koliko se sjecam.

Ako ne uspijes svakako me podsjeti pa cemo to rijesiti.

Sad nisqam u prilici.