ابو جودي قام بنشر مايو 10, 2015 مشاركة قام بنشر مايو 10, 2015 السلام عليكم ورحمة الله تعالى وبركاته ـــــــــــــــــــــــــــــــــــــــــــــــــــــــ السؤال الاول :- - هل يمكن عمل تسجيل خروج للمستخدم الحالى لقاعدة بيانات ان ترك الجهاز لمدة دقيقة مثلا او قام بتصغير البرنامج وانشغل بغيره على الجهاز الهدف ---- حماية البيانات داخل القاعدة من العبث حتى ولو كان بغير قصد من اى شخص اخر السؤال الثانى :- - هل يمكن عمل زر امر مثلا ونعطه اسم تسجيل الخروج وعند الضغط على هذا الزر يتم تسجيل خروج المستخدم الحالى لقاعدة البيانات دون اغلاق قاعدة البيانات ولكن تظل مفتوحه على نموذج تسجيل الدخول وذلك لتبديل المستخدمين الهدف ---- سرعة التعامل مع قاعدة البيانات فلا يتم اغلاقها ثم اعادة فتحها من جديد حاولت البحث قبل طرح الموضوع ولم اوفق فى البحث جزاكم الله خيرا 1 رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر مايو 10, 2015 الكاتب مشاركة قام بنشر مايو 10, 2015 للعلم خطر على بالى عمل زر وتسميته تسجيل الخروج وفى الحدث عند الضغط كتابة هذا الامر DoCmd.OpenForm = "user-login" ولكن سأقوم بالتجربة واوفيكم ولو نجحت يبقى السؤال الاول مطروح لاساتذتى الكرام 1 رابط هذا التعليق شارك More sharing options...
محمد سلامة قام بنشر مايو 10, 2015 مشاركة قام بنشر مايو 10, 2015 (معدل) السلام عليكم تمام ولكن اضف قبل السطر هذا On Error Resume Next DoCmd.close DoCmd.OpenForm "frm-UserLogon" طبعا ده اسم النموذج الخاص بالدخول للبرنامج (frm-UserLogon) انظر هذه صورة من احداى برامجى للشاشة الرئيسية تم تعديل مايو 10, 2015 بواسطه محمد سلامة(soft.sample) 1 رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر مايو 10, 2015 الكاتب مشاركة قام بنشر مايو 10, 2015 السلام عليكم تمام ولكن اضف قبل السطر هذا On Error Resume Next DoCmd.close DoCmd.OpenForm "frm-UserLogon" طبعا ده اسم النموذج الخاص بالدخول للبرنامج (frm-UserLogon) انظر هذه صورة من احداى برامجى للشاشة الرئيسية 12.png جزاكم الله خيرا تمام نجحت الفكرة رابط هذا التعليق شارك More sharing options...
راعي الغنم قام بنشر مايو 11, 2015 مشاركة قام بنشر مايو 11, 2015 جرا ايه ياخونا!! زعيم اونطة انا والا ايه؟؟؟ ايه اللي عملته يامحمد افندي لما فتحت نموذج المستخدمين؟؟ وايه اللي عمله سلامة افندي باللي اضافه؟؟؟ ياجماعة ادونا على اد عقولنا وتفهمونا..الله رابط هذا التعليق شارك More sharing options...
Elsayed Bn Gemy قام بنشر مايو 11, 2015 مشاركة قام بنشر مايو 11, 2015 عندى شويه اقتراحات ممكن تنفعكم اولا بالنسبة لازر تسجيل الخروج اولا لازم يكون عندك جدول للمستخدمين ودا الطبيعى ثانيا ممكن تضيف جدول للاعضاء النشطين العضو اللى يسجل دخول يتم نقل اسمه اليه وعند تسجلالخروج يتم مسح اسمه من جدول الاعضاء النشطين وطبعا دا سوف يتم من خلال الاستعلامات عادى بالنسبة للسؤال الول اعتقد انه ممكن نكتب كود فى حدث ( عند عداد الوقت ) وسيبونى افكر فى الكود ههههههههههه 1 رابط هذا التعليق شارك More sharing options...
Elsayed Bn Gemy قام بنشر مايو 11, 2015 مشاركة قام بنشر مايو 11, 2015 جارى رفع مرفق لسه عامله طازة لنموذج تسجيل الدخول والخروج بس اتعشى الاول ههههههههه تعالوا اتفضلو رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر مايو 11, 2015 الكاتب مشاركة قام بنشر مايو 11, 2015 جرا ايه ياخونا!! زعيم اونطة انا والا ايه؟؟؟ ايه اللي عملته يامحمد افندي لما فتحت نموذج المستخدمين؟؟ وايه اللي عمله سلامة افندي باللي اضافه؟؟؟ ياجماعة ادونا على اد عقولنا وتفهمونا..الله لا طبعا انت مش زعيم اونطه ازاى بس انت اخ فاضل وعزيز جدا على قلبى واحبك فى الله ولله وانا مش فاهم حضرتك تقصد ايه بالسؤال ده ايه اللي عملته يامحمد افندي لما فتحت نموذج المستخدمين؟؟ رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر مايو 11, 2015 الكاتب مشاركة قام بنشر مايو 11, 2015 عندى شويه اقتراحات ممكن تنفعكم اولا بالنسبة لازر تسجيل الخروج اولا لازم يكون عندك جدول للمستخدمين ودا الطبيعى ثانيا ممكن تضيف جدول للاعضاء النشطين العضو اللى يسجل دخول يتم نقل اسمه اليه وعند تسجلالخروج يتم مسح اسمه من جدول الاعضاء النشطين وطبعا دا سوف يتم من خلال الاستعلامات عادى بالنسبة للسؤال الول اعتقد انه ممكن نكتب كود فى حدث ( عند عداد الوقت ) وسيبونى افكر فى الكود ههههههههههه اهلا اهلا اهلا اتابع حضرتك من فتره ومعجب جدا بيك وشرف لى وجودك ومحاولتك مساعدتى بس اطلب منك حاجه انا مبتدئ وهاوى ولسه باتعلم مش بأعرف افهم نظرى الا لو شوفت مثال وحللته وفهم اكواده بتعمل ايه والية معالجة البيانات وكيف يتم معالجتها اتمنى حضرتك لو ترفق مثال علشان اقدر استوعب لان الكلام اللى حضرتك بتقوله جديد على جزاكم الله خيرا :fff: :fff: رابط هذا التعليق شارك More sharing options...
Elsayed Bn Gemy قام بنشر مايو 11, 2015 مشاركة قام بنشر مايو 11, 2015 اخى الكريم بارك الله فيك نحن ننهل من نبع علمكم انتم تفضل مرفق لتسجيل الدخول والخروج وفتح حساب لاكتر من يوزر جديد كمان log(off-on).rar 1 رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر مايو 11, 2015 الكاتب مشاركة قام بنشر مايو 11, 2015 اخى الكريم بارك الله فيك نحن ننهل من نبع علمكم انتم تفضل مرفق لتسجيل الدخول والخروج وفتح حساب لاكتر من يوزر جديد كمان ماشاء الله مبدع دائما كعادتك رابط هذا التعليق شارك More sharing options...
Elsayed Bn Gemy قام بنشر مايو 11, 2015 مشاركة قام بنشر مايو 11, 2015 اخى الكريم بارك الله فيك نحن ننهل من نبع علمكم انتم تفضل مرفق لتسجيل الدخول والخروج وفتح حساب لاكتر من يوزر جديد كمان ماشاء الله مبدع دائما كعادتك العفو كدا فاضل السؤال الاول صح ؟؟ انتظر ياتيك الفرج قريبا انا بجربه وهبعتوهولك فى المرفق رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر مايو 11, 2015 الكاتب مشاركة قام بنشر مايو 11, 2015 طيب انا عدلت على ملف حضرتك بفكره كانت للاستاذ الجليل ابا عمر لكن وانا اناقش معه هذا الموضوع بالامس كان الوقت متأخر ولم استطع التجربة جيدا حدثت مشكلة لم الحظها الا الان الحدث مرتبط بحركة الماوس طبعا لو ان البرنامج خاص بادخال بيانات قد لا يستخدم اليوزر الماوس مطلقا انا عن نفسى لا احب استخدام الماوس استخدم الكيبور واعشق الاختصارات للازرار احسها اسرع من الماوس على كل اليك مثال حضرتك بعد تعديل الاستاذ ابا عمرlog(off-on)-up.rar رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر مايو 11, 2015 الكاتب مشاركة قام بنشر مايو 11, 2015 ودى فكرة التعديل للتضح الرؤية طبعا الموضوع قيد التجربة والتطوير هذا جزء مقتبس من كلام الاستاذ الجليل والمعلم القدير ابا عمر جزاه الله كل الخير ---------- شوف عندي فكرة بخصوص لو ترك المستخدم البرنامج يُغلق وحده بعد فترة زمنية... جدول اسمه مثلا Tbl به حقل وليكن اسمه Timee من نوع وقت وتاريخ نسجل فيه وقت الجهاز في حدث معين وليكن حدث عند تحريك الماوس على النموذج يقوم بتحديث الحقل Timee عن طريق استعلام تحديث بالوقت الحالي تمام كده يا باشا .... ثم في حدث عداد الوقت للنموذج نضع كود يقارن بين آخر وقت تم تسجيله أو تحديثه في الجدول وبين الوقت الحالي سيكون عندنا حالات منها مثلا ان الوقت الحالي أكبر الوقت المسجل في الحقل Timee بشرط يكون اكبر بمدة نحددها يٌنفذ لنا الأمر الذي نريد... ---------- رابط هذا التعليق شارك More sharing options...
Elsayed Bn Gemy قام بنشر مايو 11, 2015 مشاركة قام بنشر مايو 11, 2015 جميل جدا الشرح دا والفكرة بسيطة وسهلة بس انا مضطر اعمل لكود دا فى كل النماذج حتى لو عندى 100 نموذج مثلا طب ليه ميبقاش عندى نموذج مفتوح ومخفى عن طريق الماكرو مثلا بداخله كود يقوم بذلك مجرد اقتراح رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر مايو 11, 2015 الكاتب مشاركة قام بنشر مايو 11, 2015 هذا ما اقترحته على استاذى ابا عمر ورد نفس رد حضرتك ولكن لم نلتقى من وقتها -- لا تنسى حدث عند تحريك الماوس على النموذج يعنى لو انا بأكتب فى تكست بوكس لمده اكبر من مدة الحدث بما ان الماوس لم يتحرك سيغلق النموذج ويتم تسجيل خروج المستخدم الحالى قطعا هذا حل من الناحية الفكرية ممتاز لتطبيق الفكرة من الناحية الفنية لا يصلح اطلاقا رابط هذا التعليق شارك More sharing options...
أبا عمر قام بنشر مايو 12, 2015 مشاركة قام بنشر مايو 12, 2015 في حل أفضل وسأرفعه بعد تجربته إن شاء الله رابط هذا التعليق شارك More sharing options...
Elsayed Bn Gemy قام بنشر مايو 12, 2015 مشاركة قام بنشر مايو 12, 2015 اضافة الى ما سيقدمه اخى ابا عمر هذا الكود مبدئا وقبل كل شيء يجب الاتى 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 وشكر الله لكم حسن صنيعكم رابط هذا التعليق شارك More sharing options...
راعي الغنم قام بنشر مايو 12, 2015 مشاركة قام بنشر مايو 12, 2015 وانا مش فاهم حضرتك تقصد ايه بالسؤال ده لا طبعا انت مش زعيم اونطه ازاى بس انت اخ فاضل وعزيز جدا على قلبى واحبك فى الله ولله ايه اللي عملته يامحمد افندي لما فتحت نموذج المستخدمين؟؟ الاخ الكريم محمد عصام: يعلم الله ان قلبي ميال تجاهك وان ثمة مايجذبني نحوك ويعلم الله انني احبك فيه كما احببتني.. فلا تاخذ بخاطرك خصوصا واخوك ليس بالشخص الرزين لكن لا احمل لك الا كل حب واحترام وللاخرين كذلك.. .......................... اما بخصوص الزعامة فانا مافهت اي حاجة من اللي قلتوه اعلاه انت وجميع المشاركين لحد الان واشتي افهم حاليا.. واظن قصدك كان ع برنامج المستخدمين المرفق مع اخفاء شاشة اكسس واذا كان هذا غرضك فكان اولى ان تحط اشارة او رابط للموضوع, مش تكتب لنفسك وبس وتسيبنا في حوسة ربنا العالم بيها ^_^ سلامي يصلك بطول مابيننا من مسافات... 1 رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر مايو 13, 2015 الكاتب مشاركة قام بنشر مايو 13, 2015 استاذى الحبيب راعى الغنم بس يا استاذى الغالى انا افهم حضرتك الموضوع باختصار بيدور حول النقاط التالية - عند دخول المستخدم الى قاعدة البيانات من نموذج تسجيل الدخول بالاسم والباسورد الخاص به يتم فتح القاعده فى هذه اللحظه كنت اريد تطبيق الخطوتين التاليتين 1- زر لتسجيل الخروج للمستخدم الحالى حتى يتمكن اى مستخدم اخر من الدخول وذلك دون اغلاق القاعده وهذا ما اشرت اليه وقام الاخ الحبيب سلامه افندى بالتعديل على تمام كده وتعديل سلامه افندى كان لاغلاق الفورم الحالى اولا ثم فتح الفورم الخاص بتسجيل الدخول مرة اخرى تمام لحد كده 2- هنا دى اهم نقطه الان وهذه النقطه تحديدا هى محور البحث والمشاركات والتطوير الى الان وتتلخص فى الاتى عند خمول وسوكون قاعده البيانات لمده معينه يحددها المصمم للقاعده يتم تسجيل الخروج اليا يعنى مثلا لو انا شغال على قاعده معينه فى الشغل وقمت اشرب قهوة ونسيت اعمل تسجيل خروج من القاعده ونسيتها شغاله ممكن حد فى اللحظة دى يلعب ويضيف اى بيانت او يحذف اى بينات عن طريق الخطأ وبالتالى هتكون نتائج معالجة البيانات غير صحيحة تمام يا استاذى الحبيب الموضوع خاص بالمستخدم الحالى الذى قام بتسجيل الدخول الى القاعده ووقت السكون اثناء فتح القاعده ولكنه مرتبط بنموذج الدخول اتمنى تكون الرؤيا وضحت ستاذ راعى الغنم تقبل تحياتى بكل الحب والود رابط هذا التعليق شارك More sharing options...
أبا عمر قام بنشر يونيو 13, 2015 مشاركة قام بنشر يونيو 13, 2015 السلام عليكم ورحمة الله وبركاته لتتم الفائدة فعند بحثي عن شيء ما وجدت مثال يفي بالغرض في نقطة إغلاق البرنامج في حال عدم وجود نشاط على البرنامج ويعمل معي بصورة جيدة أرجو أن يكون فيه الفائدة .... جزاكم الله خيرا ...... isd_No_Setup.zip رابط هذا التعليق شارك More sharing options...
.thumb.gif.27c4a79ce23abc61b721f833e6899131.gif)
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.