zxz 25.05.2012 15:18
Predmet: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

pmiroslav 25.05.2012 16:49
Predmet: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:
GoogleMapsMp_3_1.rar (Velicina datoteke:70.19 KB)

zxz 25.05.2012 17:16
Predmet:Re: Access i GoogleMaps

Private Sub Form_Timer()
SendKeys "{Enter}"
Me.TimerInterval = 0
End Sub

pmiroslav 25.05.2012 17:33
Predmet:Re: Access i GoogleMaps

Svaka čast. Sada radi perfektno.
Puno hvala, dok opet ne bude problema.