Centar za edukaciju-BiH



#51 25.05.2012 15:18
zxz Na mrezi
Administrator
Registrovan od:03.02.2009
Postovi:10,611


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
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#52 25.05.2012 16:49
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


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:
Informacije o tipu datoteke za:rar  GoogleMapsMp_3_1.rar
Preuzimanja:326
Velicina datoteke:70.19 KB


Pozdrav
↑  ↓

#53 25.05.2012 17:16
zxz Na mrezi
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Re: Access i GoogleMaps
Private Sub Form_Timer()
SendKeys "{Enter}"
Me.TimerInterval = 0
End Sub
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#54 25.05.2012 17:33
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


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

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


Sva vremena su GMT +01:00. Trenutno vrijeme: 11: 28 am.