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.