اذهب الي المحتوي
أوفيسنا

تايمر لاغلاق القاعدة ويفتح نموذج الدخول


alzahrani2014

الردود الموصى بها

السلام عليكم ومساءكم معطر

اريد تايمر يغلق القاعده بعد 5 دقايق من عدم الاستخدام ويفتح مباشرة نموذج الدخول بالرقم السري اسمه frmlogin 

بمعنى اخر التايمر يقفل النافذة الرئيسيه  nav ويفتح نافذة الدخول frmlogin 

مع شكري وتقديري سلفا

رابط هذا التعليق
شارك

Option Compare Database
Dim MyTime As Date
Private Sub Form_AfterUpdate()
MyTime = Now()
End Sub
Private Sub Form_Current()
MyTime = Now()
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
MyTime = Now()
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
MyTime = Now()
End Sub
Private Sub Form_Open(Cancel As Integer)
MyTime = Now()
End Sub
Private Sub Form_Timer()
If MyTime = Empty Then MyTime = Now()
If Now() >= DateAdd("n", 1, MyTime) Then

    DoCmd.Close
    DoCmd.OpenForm "LogIn"
    End If
End Sub

 

رابط هذا التعليق
شارك

تفضل هذا التعديل

عند عدم الاستخدام لمدة خمسة دقائق سيتم اغلاق الصفحة الرئيسية و فتح صفحة تسجيل الدخول

لكن اذا تم تحريك الماوس سيتم تصفير العداد و اعادة الحساب من جديد

asd (3).accdb

  • Like 1
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information