Skip to main content

AccessTr.neT


TimerInterval hakkında yardım

TimerInterval hakkında yardım

Çözüldü #1
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.
.zip vt2.zip (Dosya Boyutu: 183,37 KB | İndirme Sayısı: 8)
Cevapla
Çözüldü #2
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.
İnadına, ille de Accesstr.net...
Cevapla
Çözüldü #3
Mehmet Hocam;

Kodlar işe yaradı teşekkür ederim. Img-grin)

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.
Cevapla
Çözüldü #4
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. Img-grin) 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.
İnadına, ille de Accesstr.net...
Cevapla
Çözüldü #5
Teşekkürler
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task