Prikazi cijelu temu 06.05.2012 15:15
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Lokacija:Osijek


Predmet:Re: Access i GoogleMaps
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:
PreuzmiIzvorni kôd (vbnet):
  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
PreuzmiIzvorni kôd (vbnet):
  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
Pozdrav