TimerInterval hakkında yardım

Merhabalar;

İlişikte gönderdiğim örnekte duyuru tablosundaki kayıtların TimerInterval 'da belirttiğim süre kadar ekranda kalıp bir sonraki kayda geçmesini istiyorum.

Private Sub Form_Load()
Dim a As Long
Dim b As Long
For a = 1 To Metin13 ' **** =DCount("Kimlik";"DUYURU") *****
Me.TimerInterval = 300000
DoCmd.GoToRecord , , acNext
Next a
DoCmd.Close
End Sub

Bunun için yukarıdaki kodu yazdım. Ancak formu çalıştırdığımda ekranda hiç bir bekleme olmaksızın son kayda kadar gidip ekran kapanıyor.

Hatamın nerede olduğu konusunda yardımlarınızı bekler saygılar sunarım.

Accesste süreyi belli bir süre dondurmak için general declerations bölümüne

Private Declare Sub Sleep Lib "kernel32" (ByVal milliseconds As Long)

satırını ekleyin. Süre durdurma gereken yerlerde de;

sleep 5000 ' 5 saniyedir

biçiminde kullanın...


Bu arada kodlarınızda geçen "metin13" form üzerinde bulunmuyor sanırım. Ona da dikkat edin.

Mehmet Hocam;

Kodlar işe yaradı teşekkür ederim.
Ancak TimerInterval kodunu neden işletemedim. O kodun kullanım amacı bu değil mi yada yazılımım da bir hata mı var oda ayrı mesele.

Sağ olun var olun.

Time interval için kullandığınız kodlar formun olaylar bölümündeki "zaman dolduğunda" olayı için kullanılan süre ölçer aralığını değiştirir. Yani oradaki süreyi değiştiriyorsunuz ana yapılacak eylemi yazmamış oluyorsunuz. ) Eylemi de Private Sub Form_Timer() kodları altına yani zaman dolduğunda olayına yazmazsanız yapılan işlemin anlamı olmaz. Kolay gelsin.

Teşekkürler