أبو آدم

أخي عبدالله اليك مرادك وزيادة قبل الفرز وأثناء الفرز وبعد الفرز (بث حي ومباشر) جرب وتصدق علينا بالدعاء والله من وراء القصد ..... NA_ReportSorting.rar

أخي العزيز ؟؟؟؟؟ !!!!! أين المشكلة؟؟؟

ما هي البروة ؟؟!!!

أخي العزيز في حدث قبل التحديث لحقل التاريخ الخاضع للرقابة يصبح الكود Private Sub DateReceipt_BeforeUpdate(Cancel As Integer) If DCount("*", "Details", "[DateReceipt] =#" & Me.DateReceipt & "#") > 30 Then MsgBox "The limit for records in this day has been reached , pick a new day", vbOKOnly Cancel = True Me!DateReceipt.Undo End If If OfficeClosed(Me.DateReceipt) = True Then MsgBox "Holiday , Go to the next day", vbOKOnly Cancel = True Me!DateReceipt.Undo End If End Sub هذا الكود لا يقبل اضافة اكثر من 30 موعد لليوم المحدد ولا يقبل اضافة مواعيد لايام العطل الاسبوعية الخميس و الجمعة ولا العطل الرسمية المثبتة في جدول العطل. هنا يتم تعديل ايام العطل الاسبوعية في الوحدة النمطية كما نشاء وقد عدلتها لتصبح 5 الخميس و 6 الجمعة (المشاركة 5 أعلاه) جرب ووافني بالنتيجة ....

أخي العزيز سبق ان اشرت ان الكود بحاجة لتعديل وقد تم تعديله وتجربته ويعمل بشكل ممتاز يمكنك تعديل الرقم كما تريد من 2 الى 30 او اي عدد آخر والبقية تأتي ....

أخي العزيز أما في حل الجزء الثاني من (1) فالامر لا يقتصر على ايام الخميس و الجمعة بل يصل الى ايام العطل الرسمية و الاعياد لذا و اختصارا للمستجدات التي ستواجهك قم بانشاء جدول للعطل الرسمية حسب التالي: Table: Holidays ----------------------- Field Name: Description Data Type: Text Field Name: HoliDate Date Type: Date/Time انشئ وحدة نمطية جديدة وانسخ اليها ما يلي: Function OfficeClosed(TheDate) As Integer OfficeClosed = False ' Test for Thursday or Friday. If Weekday(TheDate) = 5 Or Weekday(TheDate) = 6 Then OfficeClosed = True ' Test for Holiday. ElseIf Not IsNull(DLookup("HoliDate", "Holidays", "[HoliDate]=#" _ & TheDate & "#")) Then OfficeClosed = True End If End Function وأعد ارفاق المثال للتطبيق و التعديل والبقية تأتي .... ....

أخي العزيز اليك حل الجزء الاول من (1) و المتعلق بقبول 30 قيد لتاريخ يوم محدد ( تم تعديل الكود) Private Sub DateReceipt_BeforeUpdate(Cancel As Integer) If DCount("*", "Details", "[DateReceipt] =#" & Me.DateReceipt & "#") > 2 Then MsgBox "The limit for records in this day has been reached , pick a new day", vbOKOnly Cancel = True Me!DateReceipt.Undo End If End Sub ضع الكود في حدث قبل التحديث لحقل التاريخ الخاضع للرقابة ، وسيحقق لك النتيجة التي تريدها باذن الله والبقية تأتي ,, ولكن اعذرني كون القاعدة التي ارفقتها لا تساعد ....

صبرا امهلنا علنا نستطيع مساعدتك

شكرا لك وللأخ منتصر الآنسي والدال على الخير كفاعله ونسأل الله عموم الفائدة من جهدكم الطيب

إخوتي الأفاضل حبذا لو نتفق على الالتزام بقواعد المشاركة وما تم التعارف عليه فيها فلا نحدد شخصا للسؤال او الاجابة حتى لا تتقلص المشاركات ونحرج بعضنا البعض ، فمن قدر له ساهم واجاب ودعونا لا نتشعب بالاسئلة ودعونا نفرد لكل سؤال مشاركة مستقلة حتى تستوي الامور و تتضح وجزيتم خيرا

حياك الله ابا محمد جزيت خيرا حتى الآن الثانية ذهبت مع الاولى

أخي الفاضل ما قدمته جهد طيب ولكن يبدو ان هناك مشكلة 05-07-2011 09-30-33.bmp 05-07-2011 09-32-03.bmp

اخي العزيز الجداول وارتباطاتها بحاجة لتعديلات جوهرية اذا لم يكن لديك مانع ... نتابع الامر ....

الحمد له الذي بفضله تقضى الحاجات أثر عن علي بن ابى طالب رضي الله عنه انه قال (أضْرِبْ بعْضَ الرّأْيِ بِبَعْضٍ يَتَوَلَّدْ مِنْهُ الصَّوَابُ) والله من وراء القصد

إخوتي الافاضل ما زلنا نفتقر لحوار صاحب المسألة ... بانتظار تفرغة بعد الامتحانات .. ونسأل الله ان يوفقه ويعينه ويسدد خطاه ويفتح عليه أخي العزيز ابو خليل ... انا فهمت من السائل انه يريد ثباتا لرقم الجلوس ، بحيث يقوم باختيار نطاق من ارقام الجلوس لتوليد ارقام سرية لها، وكنت وما زلت اشاركك الرأي بأن رقم الجلوس محكوم بالتغيير وليس بالثبات ، وكان اقتراحك (كما فهمت انا) هو الحل المتمتع بالمرونة ، فان اردت او قررت تغيير ارقام الجلوس فالامر متاح وان اردت ان يقتصر الامر على توليد الارقام السرية لارقام الجلوس المحددة فالامر متاح وان اردت ربط الامر بالصفوف (الفصول) فالامر متاح ، وحين لم تصله تلميحاتك ، اجتزأنا من لمساتك الطيبة ما ظننا انه أقرب لمراده. وهذه مسألة تتعلق بالافهام وكما ادندن دائما ان كل شيئ متاح ، وكل له فيما يحاول مذهب ، والأصل في اختلاف الأفهام مدى اتساع تجربة المطبق في المسألة ، فقد يرى أخونا العزيز الضياء ومن باب تجربته في المسألة أن الآلية التي يعمل عليها فيها مالم نجرب ، أو تكون تطبيقاتنا عابها ما لم تصلنا من افكار او ما لم يحسن السائل ايصاله لنا ، والكل يدرك ان (الحكم على الشيئ فرع عن تصوره)، وكل فعل او مساهمة هي اثراء للجميع واضافة لا تقدر بثمن ،،، فشكرا للاخ الفاضل الضياء على مساهمته القيمة وحبذا لو انه ذيلها ببعض التوضيح والشرح للمهتمين بخبرته ،،، ولكنني مع اقتراح أخي أبا خليل ... وننتظر ما قد يلزم الاخ السائل ...

( فإنما يسرناه بلسانك لتبشر به المتقين وتنذر به قوما لدا ( 97/مريم ) جزيت خيرا على طيب قولك

أخي العزيز الأخ الفاضل ورفيق الدرب أبو خليل ، أعطاك ما تريد مع (( مع زيادة ضوابط ولمسات )) على كل حال هذا (ان كنت قد احسنت الفهم عنك) تطبيق ما تريد فقط NA_PinNumber.rar

أخي العزيز الحمد لله الذي نفع بنا " انا بانتظار الثوب " !!!

أخي العزيز حبذا لو ترفق الملف لكي نلقي عليه نظرة

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

أخي العزيز الأمر هين ، ولكن القاعدة التي ارفقتها بحاجة لتعديل وضبط أعد النظر بها ببساطة (ان كنت قد احسنت الفهم عنك) انت تحوم حول ما يلي : رخصة تصدر لممارسة مهنة معينة الرخصة تصدر لمدة 3 سنوات - من تاريخ الاصدار - اي تعديل للرخصة لا يؤثر على تاريخ الانتهاء الرخصة تجدد لمرة واحدة فقط لمدة سنتين اي تعديل خلال الفترة المجددة لا يؤثر على تاريخ انتهاء الصلاحية النهائي بالاضافة لجداول المهن والشركات ، أرى انك تحتاج لجدول لمعلومات الرخصة الرئيسية مع حقول لتحديد تاريخ الاصدار و الانتهاء و تاريخ التجديد و الانقضاء لصلاحية الرخصة وجدول لوقائع التعديلات الجارية على الرخصة وتواريخها مرتبطا برقم الرخصة واشترط في التطبيق عدم السماح باي اجراء بعد انقضاء تاريخ صلاحية الرخصة اضبط الجداول و النماذج ... جرب .... ونعود للتعاون والله من وراء القصد .....

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

عذرا تم التحميل وجاري النظر

إخوتي الأعزاء تجولوا وجربوا .... ولا تنزعجوا من التلميحات و الرسائل فهي ضوابط وصمام أمان من سوء الاستخدام يوم العطلة الاسبوعية الجمعة فقط .... والكل متاح آراؤكم تثريني .... والله من وراء القصد .... ...............

إخوتي الأعزاء الآن نعمل على محور الدوام والغياب ، والاجازات ولي فيه وجهة نظر ارجو ان نتحاور فيها وبمدى ملاءمتها للغالب وهنا نفرز بين التأخير (بغض النظر عن اسبابه) والحضور و الغياب (بغض النظر عن اسبابه) و الاجازات (على اختلاف تصنيفاتها) نتحدث هنا عن توثيق المعلومة لا عن تحليلها و احتسابها ومقارنتها ، وهذا محور أجد الكثيرين يخلطون فيه بين توثيق المعلومة والتعامل مع نتائجها . من تجاربي المتواضعة في مجال البرمجة والتحليل وفي مجال الادارة للموارد البشرية في هذا المحور ، اجد خلطا وعدم وضوح فدعوني وإياكم نبسط الامور بالطريقة التالية: في اي مكان وتحت اي نظام او تشريع ومهما كانت مناهج العمل ومتطلباتها : الموظف لا بد ان ان يثبت وقت التحاقه بعمله و وقت مغادرته لموقع عمله ، وهذا هو الاصل الذي نبني عليه كافة التحليلات و النتائج و الاوضاع و الاحتسابات (لاحقا) ، وفي حال عدم توفر هذه المعلومة الأساس فلا مجال للوصول لأي نتيجة لأننا نفقد قاعدة الإحتساب . فلا قاعدة لإحتساب التأخير أو المغادرة المبكرة او الغياب او الاستفادة من الاجازة. وقد قمت بتصميم - ما أحب أن أسمية - أداة مساندة لدعم نظامنا الرئيسي ، وهنا اطرحها للنقاش والحوار ، حيث أجدها ملائمة لكثير من المؤسسات ، مالم تكن معتمدة على آلات مراقبة الدوام (ولتلك الآلات حلول ايضا لدمجها في النظام ولكل حالة شروطها وظروفها). هنا فقط ساطرح توثيق ساعة الالتحاق بالعمل وافتراض ساعة انتهاء العمل ، وترتيب توثيق ساعة مغادرة موقع العمل متاح ايضا. وما ساطرحة معدل ويختلف عما استخدمه لخصوصية العمل لدي في شركتي ، سعيا لتحقيق حاجات الاغلبية - حسب ظني- وهنا سنفترض بان مسئول الدوام سيوثق في النظام ساعات الحضور لجميع الموظفين في جميع الادارات والاقسام لهذا اليوم او اي يوم سابق. في الاداة الكثير من الضوابط والشروط والتلميحات التي سيطول شرحها (وسيكون الأمر مملا) ، ومن باب الإختصار نقول راقب التلميحات و الرسائل المنتشرة في انحاء النموذج وعند الاقتراب من اي منطقة عمل او زر امر او عند اي اجراء.... والتجربة خير برهان. وللحديث بقية ... أرفق بعض الصور للعون في الاستخدام ثم يلحقها تطبيق تجريبي..... NA_EmpProj_HR_X22.rar .... والله من وراء القصد ........... ................ NA_AttendanceSystem.rar