ام ناصر

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

 اساتذتي الافاضل.. اعضاء المنتدى الكرام لدي نموذج لأضافة اجازات للموظفين ولكل نوع اجازة لها تاريخ بدء وانتهاء المطلوب هو ( عدم تداخل الاجازات)

مثلا عندما يأخذ ( الموظف 1 ) اجازة اعتيادية من تاريخ 11/01/2017  الى 15/01/2107  لا يعترض البرنامج عند ادخال المستخدم نوع اخر من الاجازات  مثلا اجازة زمنية لنفس الموظف بحيث تكون ايام  هذه الاجازة ضمن عدد الايام التي اخذت في الاجازة الاعتيادية  . 

المثال والصورة  مرفقة ادناه ..هذا ولكم كل الشكر والتقدير .

لعل الشكر لايوفي حقكم استاذنا الفاضل 

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

السلام عليكم استاذ جعفر ..ارفقت المثال بعد التعديل  وفق الملاحظات التي ذكرتها بارك الله فيك.

مثال.rar

وعليكم السلام ورحمة الله استاذ جعفر  .. عفوا المثال اعلاه يظهر نفس الاسم المرسل لكن محتواه غير ولا اعرف ماهو السبب ساعيد ارسال المثال

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

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

صراحة عملت تغيير بسيط على المثال حيث وقف لدي تنفيذ نتيجة الـ(ِAbs_Type)

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

مثال تحذير الغياب.zip

40 دقائق مضت, jjafferr said:

عفوا ما فهمت

 

اعملي التغيير على المرفق ، واعطيني مثال من البرنامج

 

جعفر

اعتذر لعدم التوضيح يعني يمكن لنا اظهار الغياب لفترة آخر ثلاث اشهر اذا ما احببنا استخدام ادخال فترة التاريخين يدويا  ويكون الناتج بهذا كما مبين بالصورة اي اظهار النتائج داخل النموذج المفتوح

مثال تنبيه الغياب.zip

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

11 ساعات مضت, jjafferr said:

وعليكم السلام اختي

 

لوسمحتي تعطينا معلومات اكثر عن طلبك:

1. هل سوف تطلبين البيانات بين تاريخين؟

2. اذا كان جوابك نعم ، واذا طلبتي البيانات لفترة شهر مثلا ، وكان هناك 3 ايام غياب متتايه ولكن لأكثر من مرة ، فماذا تريدين شكل رسالة التنبيه؟

3. كم عدد الموظفين جميعا تقريبا؟

 

جعفر

استاذنا الفاضل ..الصراحة الفترة الزمنية بين تاريخين جدا تسهل آلية الفلترة لكن خلال استخدامي لها بأستعلامات التقارير وكذلك كتابتها ككود تظهر بعض التوايخ التي لم تدخل ضمن الفترة ولا اعرف السبب (استخدمت دالة الـ Between مرة والعلامات المنطقية <= التاريخ الاول و >= الثاني  بمحاولة اخرى) .

اما جوابي على ماتفضلت بأستخدامها نعم

الفترة للبيانات ياحبذا يظهر الغيابات لآخر 3 اشهر على الاقل  اكون ممنونة .

اما الثلاث ايام مرة واحدة فقط  وشكل الرسالة تظهر اسماء الغياب او اي طريقة تنبه المستخدم للبرنامج .

عدد الموظفين  200

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

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

المطلوب عمل استعلام  يبحث عدد الموظفين الغياب محدد بثلاث ايام متتالية في جدول الحضور والانصراف وكذلك يبحث عدد الموظفين الغياب لثلاث ايام لكن بشكل منقطع 

هذا ولكم كل الشكر والتقدير .

مثال 5.rar

للرفع 

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

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

تنبيه للغائبين.rar

وعليكم السلام ورحمة الله استذنا الفاضل تسرني مداخلتكم ومشاركتكم في الموضوع , المثال قيد التطبيق ان شاء الله  جزيتم خيراً ووفقكم ربنا لما يحب ويرضى. 

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

السلام عليكم ورحمة ..

اساتذتي الكرام لدي استفسار عن كيفية نقل المرفقات من  Attachment  الى  Attachment  آخر في نفس واجهة النموذج علماً ان استخدام swap لم تعطي النتائج المطلوبة .

نقل نسخة.rar

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

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

( Indexed = Yes (No Duplicates فعلا لم يتقبل التكرار ويظهر مسج لكن كيف اجعل المسج يظهر باللغة العربية الصور والمرفق ادناه لو سمحت

اضافة اجازة محددة لاكثر من موظف.rar

سؤال آخر لأساتذتي الكرام اهل الخبرة لو يتفضلون علينا بالاجابة مشكورين  ..

استخدمت جملة التحديث في نقل بيانات الموظفين من جدول الموظفين  الى جدول انهاء الخدمة واردت ان احذف السجل  الخاص بالموظف المنهية خدمته من جدول الموظفين ,فعند استخدامي لاستعلام الحذف تمسح كافة البيانات المرتبطة بهذا الموظف من عقوبات مكافآت ..الخ ,  من الجداول المرتبطة معه بعلاقات ولا استطيع حذف هذه العلاقات لمنعها من التأثر بالحذف الحاصل في جدول الموظفين. فما العمل برأيكم ؟ 

اقدم الشكر الجزيل لكل من تابع وتجاوب مع الموضوع فبفضل تعاونكم  تم الحصول على النتيجة المطلوبة .

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

سلمت استاذ صالح وجزاك الله خير ...حقيقة اتبعت الخطوات وتم تنفيذ البرنامج لكن تظهر لي البيانات المضافة في جدول الاجازات كما مبين بالصورة ادناه اي عندما نضيف موظفين اثنين تأخذ البيانات في جدول الاجازات لثلاث وفي كل مجموعة للاضافة يظهر الـ record  الزايد  فيا حبذا لو ترشدنا لطريقة معينة لتفادي وجود بيانات غير ضرورية . 

بالنسبة للكود اعلاه متأكدة من صحت كتابته 

المثال ادناه اخي الكريم جزاك الله خير

اضافة اجازة محددة لاكثر من موظف.rar

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

Run time error '2046' : the command or action 'GoToRecord' isnt available now  

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

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

في ١٨‏/١٢‏/٢٠١٦ at 17:21, Shivan Rekany said:

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

اولا شوف المصدر كومبوبوكس للموڤف الاول والثاني

مصدرهم بها ثلاث حقول ... حقل الاول الاسم الموظف هو خاص لكومبوبوكس asmm1 

و حقل الثاني هو عنوان الموظف هو لمربع النصي اللي اسمه M1

وحقل الثالث هو حقل ID وهو خاص لمربع النصي اللي باسم id1

وكذلك لكومبوبوكس الثاني ايظا

شوف بعد ما شوفنا المصدر شوف الحقول اللي بيملأ بواسطة ذاك المصدر

وهم الحقول ID1 , ASMM1 , M1 اي الحقل اي دي 1 و حقل اسم الموظف اي يعني كومبوبوكس و حقل عنوان الموظف

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

وايظا حقل m1m2 بيملأ بعد ان تملأ حقول عنوان الموظفين 

شوف اكواد لكومبوبوكس بعد تحديث

وعدنا استعلامين لتحديث البيانات وهما q1 , q2

وشوف كيف عملنا

والاستعلام الثاني بدلنا الشرط 

وايظا شوف غيرنا اسماء الجدول التنقلات الى اللغة الانكليزية لكي تجنبنا من الاخطاء

واخيرا شوف نظرتا الى الاكواد

مع تقدير 

تقديري واحترامي لحضرتك استاذ شفان صراحة تعبتك وياي شاكرة لمجودك بايضاح العمل بارك الله فيك ووفقك دنيا وآخرة ,

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

يعني مثلاً موظف يعمل بشعبة شؤون الطلبة وبنفس الوقت يعمل في شعبة التخطيط واريد استبدل عنوان احدى الشعبتين بعنوان شعبة لموظف آخر ؟ صراحة الموضوع معقد لكن معمول فيه .

6 ساعات مضت, Shivan Rekany said:

حسب فهمي لطلبك

اتمنى ان ينال اعجابك

مستحين ان لا نستخدم اسماء الحقول الجدول بالعربية

مثال استبدال.rar

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

اساتذتي الكرام والمتابعين لمواضيع هذا الصرح المبارك السلام عليكم ورحمة الله..

هل من الممكن استبدال العنوان الوظيفي لموظف معين بدل موظف آخر  مع ان تكون البيانات المحدثة  في جدول الخاص بالموظفين  والبيانات القديمة و المستحدثة  للعنوان الوظيفي لكلا الموظفين الذين تم استبدالهم في جدول التنقلات ؟ كما موضح بالصور  او بما تروه مناسباً كطريقة تخزين المعلومات بجدول التنقلات علماً ان هذه البيانات نحتاجها ضمن تقرير خلاصة خدمة الموظف كأن يكون العناوين الوظيفية التي تم شغلها من قبل الموظف .  

مثال استبدال.rar

5 دقائق مضت, رمهان said:

تعديل في جمل الاسكيو ال

Set rs = CurrentDb.OpenRecordset("select * from emp where [اسم الموظف] Like '" & [Text1] & "*'"): rs.MoveFirst
Set rs1 = CurrentDb.OpenRecordset("select * from transfer where [اسم الموظف] Like '" & [Text1] & "*'"): rs1.MoveFirst

مع التنبيه انه يتم تشغيل الاستعلام اولا ثم النقر على الزر

بالتوفيق

سلمت الايادي استاذنا الفاضل ربي يوفقكم ولايحرمنا من عطائكم .. الكود شغال وتم النقل فيه بنجاح