ابوخليل

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

لو وضع الاخ السائل مثاله المرفق على صيغة mdb لرجوت له تفاعلا من اخوانه اكثر

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

؟؟؟

؟؟؟

اجعل خصائص الربط كما في الصورة

حول المثال الى صيغة mdb

استبدل الكود بهذا On Error GoTo Errr Dim strFldr As String strFldr = CurrentProject.Path & "\photo\" & Me.id & ".jpg" Kill strFldr Me.Requery Errr: MsgBox "تم حذف الصورة"

المرفق يعمل فقط غير التاريخ 15/02/2015 الى تاريخ اليوم وستظهر لك النتيجة

اولا اجعل خصائص الحقلين في التنسيق مرئي=لا ثانيا الصق هذا الكود في حدث بعد التحديث لحقل المنسدلة if comb =1 then m1.Visible=true m2.Visible=false elseif comb =2 then m2.Visible=true m1.Visible=false elseif comb =3 then m2.Visible=true m1.Visible=true end if باعتبار comb هو اسم المنسدلة

يمكنك استبدالها بأي شيء واذا اردت ان تنزعها من جذورها الصق هذا الكود في حدث زر Dim strFldr As String strFldr = CurrentProject.Path & "\photo\" & Me.id & ".jpg" Kill strFldr Me.Picture1 = "" Me.Requery

تفضل عرض الصورة حسب المعرف وصورة رمزية لمن لا يملك صورة Downloads.rar

تم التعديل في المرفق حسب رغبتك معذرة هذه الجزئية غير واضحة عندي برنامج3.rar

تفضل آمل ان يلبي حاجتك برنامج2.rar

تفضل Downloads.rar

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

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

فتحت المرفق على الاصدار 2010 والنتيجة واحدة : لا يمكن عرض التقرير من خلال النموذج اخي محمد : اذا كانت النتيجة غير ما ذكرت ارجو ان ترفق صورة يظهر فيها التقرير من خلال النموذج

تفضل وحدتين نمطيتين واحدة لاول كل شهر والاخرى لبداية سنة جديدة Public Function YearStart(i As Date) As Date YearStart = DateSerial(Year(i), 1, 1) - 1 End Function Public Function MonthStart(i As Date) As Date MonthStart = DateSerial(Year(i), Month(i) + 1, 1) - 1 End Function

اخي محمد اغبطك على ذوقك الرفيع في التصميم وسوف استعرض المرفق لاحقا على اصدار اوفيس أحدث في الاصدار 2003 يمتنع عرض التقرير من خلال النموذج اقصد بـ من خلال اي : عرض التقرير داخل النموذج مثل النموذج الفرعي

لايمكننا استعراض التقارير من خلال النموذج بينما يمكننا عرض النماذج الفرعية من خلال التقرير

السلام عليكم لا يمكنني الاطلاع على المرفق بسب الاصدار بالنسبة للراتب : هل يتم الاحتفاظ بقيم الرواتب القديمة ؟ اذا نعم : نستخدم استعلام الحاق ( الراتب القديم +500) اذا لا : يمكنك عمل ذلك باستخدام استعلام التحديث لحقل الراتب اما الاجازات فعادة لا يتم تثبيت المستحق من الاجازة داخل الجدول وانما يتم تثبيت ما تم صرفه حيث يتم احتسابها بناء عللى تاريخ المباشرة وحتى اليوم الحالي ويطرح منها ما تم التمتع به فمثلا اذا كانت مباشرة الموظف قبل سنة فاستحقاقه من الاجازة 12*5= 60 يوما يطرح منها ما تم صرفه ليتبقى له رصيده من الاجازة

يمكن تطبيق ما تفكر به كالتالي : 1- اعمل استعلام تحديد تجميعي وضع داخله المعيار المذكور 2- اجعل حقول البيانات في التقرير غير منضمة داخل مقطع الراس او التذييل كالتالي : الحقول الافقية بعدد السنوات والحقول الرأسية بعدد نوع ترك العمل 3- اجلب البيانات من الاستعلام الى التقرير بواسطة الدالة dlookup بمعلومية شرطين : - السنة - نوع ترك الخدمة

شكرا لاخي رضوان والشكر موصول ايضا لاخي اسير الشروق الاعمال التي يقوم بها المشرفون لتنظيم المنتدى لا يراد منها العقاب وانما هي اعمال تنظيمية بحتة تم فصل مشاركة الاخ الكريم في موضوع مستقل هنا http://www.officena.net/ib/index.php?showtopic=58958#entry376036

للرفع