طاهر اوفيسنا

للرفع

شكر اخي انظر المطلوب في الصورة

يستاهل وللعلم انك على قدر المسؤولية الف مبروك استاذ جعفر

للرفع ...

للأسف أخي لم اجد فيها ماهو مطلوب أتمنى المساعدة من طرف الخبراء

شكر اخي ممكن الملف الذي وجدت به هذه الدوال لو سمحت

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

السلام عليكم اساتذة المطلوب المساعدة بخصوص حساب اقدمية من تاريخ التوظيف بالسنة والشهر واليوم علما ان حساب اقدمية الجنوب تحسب كل اربعة اشهر في السنة بشهر واحد فقط واذا كان تاريخ التوظيف ليس في اول الشهر تدخل فيها التكملة بحساب الأيام ملاحظة : أقدمية الجنوب في حدود 06 سنوات اي الموظف يلزمه 18 سنة عمل لكي يتحصل على 06 سنوات كاملة *- اما الخدمة الفعلية تحسب تلقائيا منذ تاريخ التوظيف والمرفق يوضح المطلوب اتمنى مد يد المساعدة وشكرا حساب اقدمية.rar

ولكن عندما افتح البرنامج على اكسس 2003 ثم اعد فتح البرنامج على اكسس 2010 تحل المشكلة

عملت ولكن بدون فائدة

فكرة رائعة شكرا لك اخي علي المصري هل توضع غير هذا السطر تغيير BoldText Eval ("MsgBox ('" & BoldText & " @ " & PlainText & "@@',0,' " & CaptionText & "')")

لا اخي رضا الله لديا نسخة واحدة وهي 2010 على الجهاز

السلام عليكم اخواني سنة ميلادية جديدة 2016 نتمنى ان تكون سنة خير علينا وعلى كافة امة الحبيب المصطفى - يارب ظهرت لي مشكلة ببرامج الاكس 2010 كما في الصورة ماسبب هذا الميساج وماحله ؟ علما اني عملت ضغط قاعدة لاحها ولكن دون نتيجة ملاحظة : عند الدخول بالبرنامج في اكسس 2003 تتم المعالجة ويرجع البرنامج شغال في اكسس 2010

بارك الله فيك استاذ حعفر

هل طلبي غير مفهوم

السلام عليكم ارجو مساعدة بخصوص فتح تقرير بواسطة مربع تحرير وسرد " detaché " بشرط : 01- يفتح بشرط detaché= موظف او منتدب من الإستعلام qry_rptD_3 02- يفتح بشرط detaché= متعاقد كامل او متعاقد جزئي أو عون نظافة من الإستعلام qry_rptD_4 Private Sub detaché_AfterUpdate() On Error GoTo Err_detaché_Click If IsNull(txtMonth) Then MsgBox "اختر الشهر" DoCmd.CancelEvent Exit Sub End If If Me.[detaché].Value = "موظف" Then Me.Report_Title = "للموظفين" DoCmd.OpenReport "rptDiscount", acPreview, , , , OpenArgs:="qry_rptD_3" If Me.[detaché].Value = "منتدب" Then Me.Report_Title = "للعمال المنتدبين" DoCmd.OpenReport "rptDiscount", acPreview, , , , OpenArgs:="qry_rptD_3" If Me.[detaché].Value = "متعاقد كامل" Then Me.Report_Title = "للعمال المتعاقدين بالتوقيت الكامل" DoCmd.OpenReport "rptDiscount", acPreview, , , , OpenArgs:="qry_rptD_4" If Me.[detaché].Value = "متعاقد جزئي" Then Me.Report_Title = "للعمال المتعاقدين بالتوقيت الجزئي" DoCmd.OpenReport "rptDiscount", acPreview, , , , OpenArgs:="qry_rptD_4" If Me.[detaché].Value = "عون نظافة" Then Me.Report_Title = "للعمال اعوان النظافة والتطهير" DoCmd.OpenReport "rptDiscount", acPreview, , , , OpenArgs:="qry_rptD_4" Exit_detaché_Click: Exit Sub Err_detaché_Click: MsgBox Err.Description Resume Exit_detaché_Click End Sub

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

السلام عليكم استاذ لا لقد انتبهت للميساجات ولكن بقيت المشكلة قائمة اليك الصورة والمرفق ملاحظة : انتبه لرقم الحساب ومبلغ الحساب والتاريخ في MsgBox 288.krimo2015V1.rar

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

شكرا لك استاذ جعفر

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

اخي واستاذي جعفر لقد اوصلتني للبئر ورجعت دون اقتناء ولو جرعة صغيرة من مائه "فما عليك إلا ان تدخلهم الى الجدول CCP كيفما احببت " هنا ما فهمت كيف تدخل النتائج للجدول معليش اكمال ماتبقى يكون كرما منك استاذ تقبل تحياتي

لم تظهر النتائج بالجدول CCP عموما انظر ماطبقت ولكن يبدو فيه اختلاف بين ما اشرت اليه وما وجدته krimo2015V1.rar

لم افهم استاذ جعفر ماطلبته مني بالتدقيق