+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Örnekleri ve Uygulamaları (https://accesstr.net/forum-access-ornekleri-ve-uygulamalari.html)
+--- Konu Başlığı: Belirlenen Süre Sonunda İşlem Yapılmayan Formun Kapanması (/konu-belirlenen-sure-sonunda-islem-yapilmayan-formun-kapanmasi.html)
Sayfalar:
1
2
Belirlenen Süre Sonunda İşlem Yapılmayan Formun Kapanması - biberli33 - 03/10/2017
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 IfCvp: Belirlenen Süre Sonunda İşlem Yapılmayan Formun Kapanması - ozanakkaya - 03/10/2017
Paylaşımınız için teşekkürler.
Cvp: Belirlenen Süre Sonunda İşlem Yapılmayan Formun Kapanması - metin02 - 03/10/2017
Teşekkürler.
Cvp: Belirlenen Süre Sonunda İşlem Yapılmayan Formun Kapanması - ertans - 03/10/2017
Teşekkür ederim.
Cvp: Belirlenen Süre Sonunda İşlem Yapılmayan Formun Kapanması - ertans - 04/10/2017
Sayın biberli33, aşağıdaki hatayı alıyorum yardım edebilir misiniz?
![[Resim: do.php?imgf=150710182797581.png]](https://accesstr.net/resim/do.php?imgf=150710182797581.png)
Cvp: Belirlenen Süre Sonunda İşlem Yapılmayan Formun Kapanması - ozanakkaya - 04/10/2017
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.