اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

قام بنشر

السلام عليكم ورحمة الله تعالى وبركاته

ـــــــــــــــــــــــــــــــــــــــــــــــــــــــ

 

السؤال الاول :-

- هل يمكن عمل تسجيل خروج للمستخدم الحالى لقاعدة بيانات ان ترك الجهاز لمدة دقيقة مثلا او قام بتصغير البرنامج وانشغل بغيره على الجهاز

 

الهدف ----  حماية البيانات داخل القاعدة من العبث حتى ولو كان بغير قصد من اى شخص اخر

 

 

السؤال الثانى :-

- هل يمكن عمل زر امر مثلا ونعطه اسم تسجيل الخروج وعند الضغط على هذا الزر يتم تسجيل خروج المستخدم الحالى لقاعدة البيانات دون اغلاق قاعدة البيانات ولكن تظل مفتوحه على نموذج تسجيل الدخول وذلك لتبديل المستخدمين

 

الهدف ---- سرعة التعامل مع قاعدة البيانات فلا يتم اغلاقها ثم اعادة فتحها من جديد

 

 

حاولت البحث قبل طرح الموضوع ولم اوفق فى البحث :eek2:

 

جزاكم الله خيرا :fff:

  • Like 1
قام بنشر

للعلم خطر على بالى عمل زر وتسميته تسجيل الخروج

وفى الحدث عند الضغط كتابة هذا الامر

DoCmd.OpenForm = "user-login"

ولكن سأقوم بالتجربة واوفيكم ولو نجحت يبقى السؤال الاول مطروح لاساتذتى الكرام

  • Like 1
قام بنشر (معدل)

السلام عليكم

تمام ولكن اضف قبل السطر هذا

On Error Resume Next
DoCmd.close
DoCmd.OpenForm "frm-UserLogon"
 
طبعا ده اسم النموذج الخاص بالدخول للبرنامج (frm-UserLogon)
 

انظر هذه صورة من احداى برامجى للشاشة الرئيسية

post-140430-0-46858900-1431286727_thumb.

تم تعديل بواسطه محمد سلامة(soft.sample)
  • Like 1
قام بنشر

السلام عليكم

تمام ولكن اضف قبل السطر هذا

On Error Resume Next
DoCmd.close
DoCmd.OpenForm "frm-UserLogon"
 
طبعا ده اسم النموذج الخاص بالدخول للبرنامج (frm-UserLogon)
 

انظر هذه صورة من احداى برامجى للشاشة الرئيسية

attachicon.gif12.png

جزاكم الله خيرا تمام نجحت الفكرة

قام بنشر
 

جرا ايه ياخونا!!

زعيم اونطة انا والا ايه؟؟؟

ايه اللي عملته يامحمد افندي لما فتحت نموذج المستخدمين؟؟

وايه اللي عمله سلامة افندي باللي اضافه؟؟؟

ياجماعة ادونا على اد عقولنا وتفهمونا..الله

قام بنشر

عندى شويه اقتراحات ممكن تنفعكم اولا بالنسبة لازر تسجيل الخروج

 

اولا لازم يكون عندك جدول للمستخدمين ودا الطبيعى

ثانيا ممكن تضيف جدول للاعضاء النشطين

العضو اللى يسجل دخول يتم نقل اسمه اليه

وعند تسجلالخروج يتم مسح اسمه من جدول الاعضاء النشطين

وطبعا دا سوف يتم  من خلال الاستعلامات عادى

 

بالنسبة للسؤال الول اعتقد انه ممكن نكتب كود فى حدث ( عند عداد الوقت )

وسيبونى افكر فى الكود ههههههههههه

  • Like 1
قام بنشر

 

 

جرا ايه ياخونا!!

زعيم اونطة انا والا ايه؟؟؟

ايه اللي عملته يامحمد افندي لما فتحت نموذج المستخدمين؟؟

وايه اللي عمله سلامة افندي باللي اضافه؟؟؟

ياجماعة ادونا على اد عقولنا وتفهمونا..الله

 

لا طبعا انت مش زعيم اونطه ازاى بس انت اخ فاضل وعزيز جدا على قلبى واحبك فى الله ولله

وانا مش فاهم حضرتك تقصد ايه بالسؤال ده

ايه اللي عملته يامحمد افندي لما فتحت نموذج المستخدمين؟؟

قام بنشر

عندى شويه اقتراحات ممكن تنفعكم اولا بالنسبة لازر تسجيل الخروج

 

اولا لازم يكون عندك جدول للمستخدمين ودا الطبيعى

ثانيا ممكن تضيف جدول للاعضاء النشطين

العضو اللى يسجل دخول يتم نقل اسمه اليه

وعند تسجلالخروج يتم مسح اسمه من جدول الاعضاء النشطين

وطبعا دا سوف يتم  من خلال الاستعلامات عادى

 

بالنسبة للسؤال الول اعتقد انه ممكن نكتب كود فى حدث ( عند عداد الوقت )

وسيبونى افكر فى الكود ههههههههههه

اهلا اهلا اهلا

اتابع حضرتك من فتره ومعجب جدا بيك وشرف لى وجودك ومحاولتك مساعدتى

بس اطلب منك حاجه

انا مبتدئ وهاوى ولسه باتعلم

مش بأعرف افهم نظرى الا لو شوفت مثال وحللته وفهم اكواده بتعمل ايه والية معالجة البيانات وكيف يتم معالجتها

 

اتمنى حضرتك لو ترفق مثال علشان اقدر استوعب لان الكلام اللى حضرتك بتقوله جديد على

جزاكم الله خيرا :fff: :fff: :fff: :fff:

قام بنشر

اخى الكريم بارك الله فيك نحن ننهل من نبع علمكم انتم

 

تفضل مرفق لتسجيل الدخول والخروج وفتح حساب لاكتر من يوزر جديد كمان

ماشاء الله  مبدع دائما كعادتك

قام بنشر

 

اخى الكريم بارك الله فيك نحن ننهل من نبع علمكم انتم

 

تفضل مرفق لتسجيل الدخول والخروج وفتح حساب لاكتر من يوزر جديد كمان

ماشاء الله  مبدع دائما كعادتك

 

 

 

العفو كدا فاضل السؤال الاول صح ؟؟

 

انتظر ياتيك الفرج قريبا انا بجربه وهبعتوهولك فى المرفق

قام بنشر

طيب انا عدلت على ملف حضرتك بفكره كانت للاستاذ الجليل ابا عمر

لكن وانا اناقش معه هذا الموضوع بالامس كان الوقت متأخر ولم استطع التجربة جيدا

حدثت مشكلة لم الحظها الا الان

الحدث مرتبط بحركة الماوس طبعا لو ان البرنامج خاص بادخال بيانات قد لا يستخدم اليوزر الماوس مطلقا
انا عن نفسى لا احب استخدام الماوس استخدم الكيبور واعشق الاختصارات للازرار احسها اسرع من الماوس

على كل اليك مثال حضرتك بعد تعديل الاستاذ ابا عمر
log(off-on)-up.rar

قام بنشر

ودى فكرة التعديل للتضح الرؤية طبعا الموضوع قيد التجربة والتطوير

هذا جزء مقتبس من كلام الاستاذ الجليل والمعلم القدير ابا عمر جزاه الله كل الخير

----------

شوف عندي فكرة بخصوص لو ترك المستخدم البرنامج يُغلق وحده بعد فترة زمنية...
جدول اسمه مثلا Tbl به حقل وليكن اسمه Timee من نوع وقت وتاريخ نسجل فيه وقت الجهاز في حدث معين وليكن حدث عند تحريك الماوس على النموذج يقوم بتحديث الحقل Timee عن طريق استعلام تحديث بالوقت الحالي تمام كده يا باشا ....

ثم في حدث عداد الوقت للنموذج نضع كود يقارن بين آخر وقت تم تسجيله أو تحديثه في الجدول وبين الوقت الحالي سيكون عندنا حالات منها مثلا ان الوقت الحالي أكبر الوقت المسجل في الحقل Timee بشرط يكون اكبر بمدة نحددها يٌنفذ لنا الأمر الذي نريد...

----------

قام بنشر

جميل جدا الشرح دا والفكرة بسيطة وسهلة 

 

بس انا مضطر اعمل لكود دا فى كل النماذج حتى لو عندى 100 نموذج مثلا

 

طب ليه ميبقاش عندى نموذج مفتوح ومخفى عن طريق الماكرو مثلا

بداخله كود يقوم بذلك

 

مجرد اقتراح

قام بنشر

هذا ما اقترحته على استاذى ابا عمر
ورد نفس رد حضرتك

ولكن لم نلتقى من وقتها

-- لا تنسى 

حدث عند تحريك الماوس على النموذج

 

يعنى لو انا بأكتب فى تكست بوكس لمده اكبر من مدة الحدث بما ان الماوس لم يتحرك سيغلق النموذج ويتم تسجيل خروج المستخدم الحالى
قطعا هذا حل من الناحية الفكرية ممتاز لتطبيق الفكرة

من الناحية الفنية  لا يصلح اطلاقا

قام بنشر

اضافة الى ما سيقدمه اخى ابا عمر  هذا الكود

 

مبدئا وقبل كل شيء يجب الاتى

1 - قم بعمل نموذج وليكن اسمه (sleep_mode)

2 - ستحتاج الا اخفاؤه بواسطة الماكرو ثم Hidden

3 - فى حدث عند عداد الوقت ضع الكود التالى

Option Compare Database
Option Explicit

Private Sub Form_Timer()
         Const IDLEMINUTES = 60

         Static PrevControlName As String
         Static PrevFormName As String
         Static ExpiredTime

         Dim ActiveFormName As String
         Dim ActiveControlName As String
         Dim ExpiredMinutes

         On Error Resume Next

         ActiveFormName = Screen.ActiveForm.Name
         If Err Then
            ActiveFormName = "No Active Form"
            Err = 0
         End If

         ActiveControlName = Screen.ActiveControl.Name
            If Err Then
            ActiveControlName = "No Active Control"
            Err = 0
         End If

         If (PrevControlName = "") Or (PrevFormName = "") _
           Or (ActiveFormName <> PrevFormName) _
           Or (ActiveControlName <> PrevControlName) Then
            PrevControlName = ActiveControlName
            PrevFormName = ActiveFormName
            ExpiredTime = 0
         Else
            ExpiredTime = ExpiredTime + Me.TimerInterval
         End If

         ExpiredMinutes = (ExpiredTime / 1000) / 60
         If ExpiredMinutes >= IDLEMINUTES Then
            ExpiredTime = 0
            IdleTimeDetected ExpiredMinutes
         End If

End Sub

Sub IdleTimeDetected(ExpiredMinutes)
   With Screen.ActiveForm
      If Screen.ActiveForm.Dirty = True Then
      .Undo
      End If
      End With
   Application.Quit
End Sub

فى الواقع هذا الكود به ثلاث اشياء مهمة يجب ان تعرفها

1 - هذا الكود سيتراجع عن اى اجراء او تعديل لم تقم بحفظه

2 - هذا الكود لن يعمل فى حالة Sleep mode للكمبيوتر  انما قبل ما يوصل للحالة دى

3 - الكود واخد امر اغلاق Application  انما لو عاوز اى امر تانى يبقى نعدله بعدين

 

 

شرح مهم لطريقة عمل الكود

 

الكود بيقول انه اذا مر 60 دقيقة من زمن الخمول  اقفل قاعدة البيانات ههههههههههههه

         ExpiredMinutes = (ExpiredTime / 1000) / 60

ممكن يتغير من متغير حساب زمن الخمول دا  ونخليه مثلا دقيقتين

ExpiredMinutes = (ExpiredTime / 1000) / 2

وشكر الله لكم حسن صنيعكم

قام بنشر

 

وانا مش فاهم حضرتك تقصد ايه بالسؤال ده

 

 

لا طبعا انت مش زعيم اونطه ازاى بس انت اخ فاضل وعزيز جدا على قلبى واحبك فى الله ولله

 

ايه اللي عملته يامحمد افندي لما فتحت نموذج المستخدمين؟؟

 

الاخ الكريم محمد عصام:

يعلم الله ان قلبي ميال تجاهك وان ثمة مايجذبني نحوك ويعلم الله انني احبك فيه كما احببتني..

فلا تاخذ بخاطرك خصوصا واخوك ليس بالشخص الرزين لكن لا احمل لك الا كل حب واحترام وللاخرين كذلك..

..........................

اما بخصوص الزعامة فانا مافهت اي حاجة من اللي قلتوه اعلاه انت وجميع المشاركين لحد الان

واشتي افهم حاليا..

واظن قصدك كان ع برنامج المستخدمين المرفق مع اخفاء شاشة اكسس

واذا كان هذا غرضك فكان اولى ان تحط اشارة او رابط للموضوع, مش تكتب لنفسك وبس وتسيبنا في حوسة ربنا العالم بيها ^_^

سلامي يصلك بطول مابيننا من مسافات...

  • Like 1
قام بنشر

استاذى الحبيب راعى الغنم

بس يا استاذى الغالى انا افهم حضرتك الموضوع باختصار بيدور حول النقاط التالية

- عند دخول المستخدم الى قاعدة البيانات من نموذج تسجيل الدخول بالاسم والباسورد الخاص به يتم فتح القاعده

 

فى هذه اللحظه كنت اريد تطبيق الخطوتين التاليتين

1- زر لتسجيل الخروج للمستخدم الحالى حتى يتمكن اى مستخدم اخر من الدخول وذلك دون اغلاق القاعده
وهذا ما اشرت اليه وقام الاخ الحبيب سلامه افندى بالتعديل على تمام كده وتعديل سلامه افندى كان لاغلاق الفورم الحالى اولا ثم فتح الفورم الخاص بتسجيل الدخول مرة اخرى
تمام لحد كده

2- هنا دى اهم نقطه الان وهذه النقطه تحديدا هى محور البحث والمشاركات والتطوير الى الان وتتلخص فى الاتى

عند خمول وسوكون قاعده البيانات لمده معينه يحددها المصمم للقاعده يتم تسجيل الخروج اليا

 

يعنى مثلا لو انا شغال على قاعده معينه فى الشغل وقمت اشرب قهوة ونسيت اعمل تسجيل خروج من القاعده ونسيتها شغاله

ممكن حد فى اللحظة دى يلعب ويضيف اى بيانت او يحذف اى بينات عن طريق الخطأ

وبالتالى هتكون نتائج معالجة البيانات غير صحيحة

 

تمام يا استاذى الحبيب الموضوع خاص بالمستخدم الحالى الذى قام بتسجيل الدخول الى القاعده ووقت السكون اثناء فتح القاعده ولكنه مرتبط بنموذج الدخول
اتمنى تكون الرؤيا وضحت ستاذ راعى الغنم

تقبل تحياتى بكل الحب والود :fff:

  • 1 month later...
قام بنشر

السلام عليكم ورحمة الله وبركاته

لتتم الفائدة فعند بحثي عن شيء ما وجدت مثال يفي بالغرض في نقطة إغلاق البرنامج في حال عدم وجود نشاط على البرنامج ويعمل معي بصورة جيدة

أرجو أن يكون فيه الفائدة ....

جزاكم الله خيرا

......

 

isd_No_Setup.zip

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