كريمو2

السلام عليكم اساتذة حاولت انشاء حقل محسوب في حداول اكسس 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

شكرا اخي د.كاف يار

السلام عليكم اساتذتي الكرام N1=Nz(DSum("[Loan_Payment]", "[tbl_Loans]", "Year ([Loan_AwardMonth])=" & Me.txtYear), "And [Loan_Type]= 'Cridi'", 0) اين الخطا في هذا

شكرا لك استاذ kanory ربي يعوض علينا

السلام عليكم اساتذتي الكرام لقد قمت بتصميم برنامج ووقع تجميد للبرنامج اثناء الفتح ومن ثم ظهرت هذه المشكلة كما في الصورة ارجو المساعدة Gestion Courier.rar