Şifre ekranından sonra açılan formunuzun (Sürekli açık kalacak olan geçiş panosu türü bir form daha uygun olur.) Süreölçer aralığını 1000 yapınız ve Zaman dolduğunda kısmına bu proseduru yazınız.. Sonucunda belli bir sürede işlem yapmayan kullanıcı tekrardan şifre ekranına yönlendirilecek..
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 | 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 işlem yapmadınız.." _ & " Tekrar giriş yapmanız gerekmektedir..", vbCritical DoCmd.Close DoCmd.OpenForm "şifre giriş formunuzun ismi" End If |
#1 by Mahir ÇINAR on 13 Temmuz 2011 - 17:28
selam arkadaşım senden bir ricam olacak elimde 2 tane form var bi tanesi şifreli form bunun ismi bb, diğer formumun ismi aa. ben sizin verdiğiniz koda göre ben GcrlKntrlAdi,GcrlFrm, AktvKntrlAdi,AktvFrmAdi bu değişkenlere ne yazmam gerekiyor. yardım ederseniz çok sevineceğim. acil olarak yanıtınızı bekliyorum. iyi çalışmalar
#2 by Taruz on 14 Temmuz 2011 - 16:59
Merhaba..
Prosedür içinde formlarınızın adını belirtmeyeceksiniz.. Sadece bu prosedürü formun timer (zaman dolduğunda) olayına yazınız ve sonrasında da timerinterval (süre ölçer) kısmına 1000 yazınız.. 1000 değeri milisaniye dir..