Belirlenen Süre Sonunda İşlem Yapılmayan Formun Kapanması

1 2
03/10/2017, 11:25

biberli33

Arkadaşlar, belirlenen süre sonunda işlem yapılmayan formun kapanması, eğer şifre formu ile giriş yapıyorsak bu form yardımıyla tekrar giriş yapılmasının istenmesi için gerekli kodlar aşağıdadır. Faydalı olması dileğiyle.

Formun Süre Ölçer değerini 1000 yapıyorsunuz. Zaman Dolduğunda kısmına aşağıdaki kodu ekliyorsunuz.


Const Sure = 1    ' Kaç dakikada kapanmasını istiyorsanız buraya yazınız.
 
Static GcrlKntrlAdi As String
Static GcrlFrm As String
Static BitZmn
 
Dim AktvFrmAdi As String
Dim AktvKntrlAdi As String
Dim BitSure
 
On Error Resume Next
AktvFrmAdi = Screen.ActiveForm.Name
    If Err Then
        AktvFrmAdi = "Aktif form Yok!"
        Err = 0
    End If
 
AktvKntrlAdi = Screen.ActiveControl.Name
    If Err Then
        AktvKntrlAdi = "Aktif Nesne Yok!"
        Err = 0
    End If
        If (GcrlKntrlAdi = "") Or (GcrlFrm = "") Or (AktvFrmAdi <> GcrlFrm) Or (AktvKntrlAdi <> GcrlKntrlAdi) Then
        GcrlKntrlAdi = AktvKntrlAdi
        GcrlFrm = AktvFrmAdi
        BitZmn = 0
        Else
        BitZmn = BitZmn + Me.TimerInterval
        End If
BitSure = (BitZmn / 1000) / 60
    If BitSure >= Sure Then
    BitZmn = 0
    MsgBox Sure & " Dakikadır İşlem Yapmadığınız İçin Form Kapatılacaktır!" & " Tekrar Giriş Yapmanız Gerekmektedir.", vbCritical
    DoCmd.Close
    DoCmd.OpenForm "Açılacak şifre formunun adı."  'Şifre formuyla giriş yapılmıyorsa bu kısım dahil edilmeyecek.
    End If
03/10/2017, 12:43

ozanakkaya

Paylaşımınız için teşekkürler.
03/10/2017, 16:41

metin02

Teşekkürler.
03/10/2017, 21:53

ertans

Teşekkür ederim.
04/10/2017, 10:24

ertans

Sayın biberli33, aşağıdaki hatayı alıyorum yardım edebilir misiniz?



04/10/2017, 14:08

ozanakkaya

Sayın @ertans, örnek uygulamanızı ekleyerek sorular bölümüne yeni konu açınız. Formunuzu inceleyip çözüm bulmaya çalışalım.
1 2