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 so
|