AccessTr.neT

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

Paylaşımınız için teşekkürler.

Teşekkür ederim.

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

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.