| zxz | 25.05.2012 16: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 17: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 18:16 |
|---|---|
|
Predmet:Re: Access i GoogleMaps Private Sub Form_Timer() SendKeys "{Enter}" Me.TimerInterval = 0 End Sub |
|
| pmiroslav | 25.05.2012 18:33 |
|---|---|
|
Predmet:Re: Access i GoogleMaps Svaka čast. Sada radi perfektno. Puno hvala, dok opet ne bude problema. |
|