Skip to main content

AccessTr.neT


Belirli Süre Dahilinde Makronun Tekrarlanması

Belirli Süre Dahilinde Makronun Tekrarlanması

#6
workbook_close olayına IslemDurdur eklenebilir yada doğrudan Application.OnTime Zaman, "IslemYap", , False yazılabilir
workbook_close olayına doğrudan Application.OnTime Zaman, "IslemYap", , False  kodunu eklediğimde sorunsuz çalıştı
dikkat edilmesi gereken nokta: ilgili modülün en başına eklenmesi gereken değişken mutlaka Public olmalı
tüm prosedürler
Public Zaman As Double
otomatik iş çağırma
Sub OtomatikIslem()
    On Error GoTo ErrorHandler ' Hata yönetimini başlat
   
     ' Zaman değişkeni
    Zaman = Now + TimeValue("00:00:03") ' Şu anki zamanı al, üzerine 15 dakikayı ekle
    Debug.Print , "İşlem", Now ' <<==buraya yapılacak işlem yazılır
    Application.OnTime Zaman, "IslemYap" ' Zamanı ayarla ve "IslemYap" prosedürünü çalıştır
   
    Exit Sub ' Prosedürü bitir ve çık
ErrorHandler:
    ' Hata durumunda yapılacak işlemler
    ' Hata mesajlarını kullanıcıya göstermek ya da loglamak gibi
    ' ...
    Exit Sub ' Hata durumunu bitir ve çık
End Sub
Yapılacak iş
Sub IslemYap()
    ' Burada yapmak istediğiniz işlemi kodlayabilirsiniz
    ' ...
   
    ' İşlem yapıldıktan sonra tekrar OtomatikIslem prosedürünü çağırarak 15 dakika sonra yeniden çalışmasını sağlayabilirsiniz
    Debug.Print Now
    OtomatikIslem
End Sub
Durdurma işlemi
Sub IslemDurdur()
    On Error Resume Next ' Hata yönetimini devre dışı bırak
   
    ' OtomatikIslem prosedürünü iptal et
'    Application.OnTime earliesttime:=0, procedure:="IslemYap", schedule:=False
'Zaman = 0
        Application.OnTime Zaman, "IslemYap", , False

    On Error GoTo 0 ' Hata yönetimini tekrar etkinleştir
End Sub
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
RE: Belirli Süre Dahilinde Makronun Tekrarlanması - Yazar: berduş - 23/04/2023, 13:05
Task