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