Centar za edukaciju-BiH

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

---

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:

---

Predmet:Re: Access i GoogleMaps

---

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

---

Predmet:Re: Access i GoogleMaps

---

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

---