طاهر اوفيسنا

السلام عليكم اخواني تقبل الله صيامكم المطلوب التعديل على الحدث Private Sub VerCcp_Click() If Me.VerCcp.Value = 0 Then DoCmd.OpenForm "FrmVerment" Me.Loan_Other = Me.Form.FrmVerment!FrmVerment_sub!Me.TheValueCcp Me.Auto_Date = Me.Form.FrmVerment!FrmVerment_sub!TxtMonth End If End Sub حيث عند النقر على خانة VerCcp يتحول المبلغ الموجود في Loan_Other مباشرة الى الجدول Verment في TheValueCcp (مع العلم انه عند وجود مبلغ يضاف اليه المبلغ المتحول) مع تحويل التاريخ : Auto_Date بالفورم الى جدول Verment في مكان TxtMonth وشكرا لكم

السلام عليكم نفهم من هذا استاذ محمد طاهر ان الدخول للمنتدى يكون بالبريد الاكتروني وليس باسم المستخدم كما عهدناه سابقا

هل من فكرة حول ظهور الحقل المحسوب

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

السلام عليكم اساتذة حاولت انشاء حقل محسوب في حداول اكسس 2010 فلم اجده فكيف يمكن اضافته على النسحة التي بحوزتي

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

أعجز المختصون في الاكسس على معالجة طلبي

ارجو منكم معالجة بطء تشغيل التقرير

تم ايحاد شبه حل ولكن الدخول للتقرير ليس بسرعة اي ثقيل 20211027.rar

هل من مساعدة هل المطلب غير مفهوم

هل من مساعدة

هل من معين يا أساتذة

نعم احتمال يوجد اختلاف الموظف رقم 1 في المرفق القديم يساوي الموظف رقم 1468 في المرفق الجديد ........Cridi الموظف رقم 2 في المرفق القديم يساوي الموظف رقم 602 في المرفق الجديد .............Elec المهم هل وصلت لك الفكرة المطلوبة ام لا استاذ

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

شكرا لك استاذ kanory

حسب اعتقادي لو يتم تقيدها ب Loan_ID لانه يمكن ان يكون تاريخين لنفس الموظف

نعم هي تمثل مدة الاقتطاع الموظف رقم 1 من 2021/07/01 الى 2022/04/01 الموظف رقم 2 من 2021/09/01 الى 2022/06/01 وهكذا

شكرا لك استاذ kanory على المجهودات جربت المرفق ولقيت خطا بسيط في مربع نص المبلغ الكلي المدان (theSum) استبدلتها ب kan2 ظهرت النتيجة تقريبا صحيحة كما في الصورة والان يبقى مدة الاقتطاع من ..... الى ....... ;

ارجو من الاساتذة الخبراء الالتفاتة لطلبي وشكرا لكم جميعا للتوضيح اكثر في جدول tbl_Loans

السلام عليكم لديا مشكل في نتائج التقرير rptTransferLOS الصورة توضح ارجو التعديل 20211007.rar

شكرا لك استاذ محمد أبو عبد الله الكود لم يفي بالغرض المطلوب حيب عند الضغط على خانة الاختيار OK لم يظهر شيء وعند تتبع الكود خطوة بخطوة ظهرت لي ان قيمة Me!Loan_ID = DFirst("c1", "[Cridi]", "Right(XDate, 4) =" & Right(Date, 4)) & Format(xNext, "0") & "/" & prtyr تساوي Null

السلام عليكم اساتذتي الكرام المطلوب التعديل على كود تنسيق ارقام بهذه الصيغة "C1/2021" بحيث c1 اول مستفيد و 2021 السنة الحالية اي عندما اختيار علامة الصح على مربع اختيار ok يظهر الرقم مع اخر سجل بالجدول بهذا التنسيق وعند دخول سنة جديدة يبدا الترقيم من الاول وشكرا Private Sub ok_Click() On Error Resume Next Dim xLast, xNext As Integer Dim prtyr, prtTxt As Integer prtyr = DatePart("yyyy", Date) prtTxt = CLng(Left(DMax("S", "Cridi"), 4)) xLast = CLng(Right(DMax("S", "Cridi", prtTxt = prtyr), 3)) If IsNull(xLast) Then xNext = 1 Else xNext = xLast + 1 End If Me!Loan_ID = "C" & Format(xNext, "0") & "/" & prtyr Me![Année] = Year(Date) End Sub

انظر مشكلة التنصيب حسب الصورة

شكرا استاذ ولكن هذه النسحة لم تتوافق مع اكسس 2010 عربي

هل من الممكن ارفاق البرنامج v-tools هنا استاذ Kanory