Bosna i Hercegovina



#46 06.05.2012-18:28
Bosanec Offline
Clan
Registrovan/a od: 02.02.2009-21:12
Komentari: 128


Subject: 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
↑  ↓

#47 07.05.2012-12:35
pmiroslav Offline
Clan
Registrovan/a od: 02.02.2009-10:32
Komentari: 1,371


Subject: Re: Access i GoogleMaps
Može li se nešto napraviri po ovome što sam pitao u postu #45 ?
Pozdrav
↑  ↓

#48 08.05.2012-06:58
zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,793


Subject: 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 .
Pozdrav
↑  ↓

#49 23.05.2012-19:52
pmiroslav Offline
Clan
Registrovan/a od: 02.02.2009-10:32
Komentari: 1,371


Subject: Re: Access i GoogleMaps
Citat od 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:
DownloadIzvorni kod (vb.net):
  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
DownloadIzvorni kod (vb.net):
  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ć.
Pozdrav
↑  ↓

#50 23.05.2012-19:58
zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,793


Subject: 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.
Pozdrav
↑  ↓

#51 25.05.2012-15:18
zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,793


Subject: Re: Access i GoogleMaps
U proceduri ucitaj ovo promijeni:
start:
X = hd.all("PlaceName").Value
If X = "True" Then
Forms![frmizbor].TimerInterval = 1000
MsgBox (Mjesto & "," & Zemlja)
Rs.MoveNext
Else
DoEvents
GoTo start
End If
Loop

a na formi frm izbor na on timer stavi:

Private Sub Form_Timer()
SendKeys "{Enter}"
End Sub
Pozdrav
↑  ↓

#52 25.05.2012-16:49
pmiroslav Offline
Clan
Registrovan/a od: 02.02.2009-10:32
Komentari: 1,371


Subject: Re: Access i GoogleMaps
Ovo sada odradi posao dobro , ali i malo previše.
Izgleda da nakon što se pronađu sve lokacije SendKeys "{Enter}" nastavi raditi i dalje i petlje se ne zaustavi.
Prozor sa mapom stalno trepće, a ako ga isključim on se ponovno vrati i krene sve ispočetka.
Evo i primjer

Prilozi:
Informacije o fajlu: rar  GoogleMapsMp_3_1.rar
Preuzimanja: 87
Veličina: 70.19 KB


Pozdrav
↑  ↓

#53 25.05.2012-17:16
zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,793


Subject: Re: Access i GoogleMaps
Private Sub Form_Timer()
SendKeys "{Enter}"
Me.TimerInterval = 0
End Sub
Pozdrav
↑  ↓

#54 25.05.2012-17:33
pmiroslav Offline
Clan
Registrovan/a od: 02.02.2009-10:32
Komentari: 1,371


Subject: Re: Access i GoogleMaps
Svaka čast. Sada radi perfektno.
Puno hvala, dok opet ne bude problema.
Pozdrav
↑  ↓

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


All times are GMT +01:00. Current time: 14.11.2018-18:42.