اذهب الي المحتوي
أوفيسنا

طاهر اوفيسنا

04 عضو فضي
  • Posts

    1088
  • تاريخ الانضمام

  • تاريخ اخر زياره

كل منشورات العضو طاهر اوفيسنا

  1. تم ايحاد شبه حل ولكن الدخول للتقرير ليس بسرعة اي ثقيل 20211027.rar
  2. هل من مساعدة هل المطلب غير مفهوم
  3. هل من معين يا أساتذة
  4. نعم احتمال يوجد اختلاف الموظف رقم 1 في المرفق القديم يساوي الموظف رقم 1468 في المرفق الجديد ........Cridi الموظف رقم 2 في المرفق القديم يساوي الموظف رقم 602 في المرفق الجديد .............Elec المهم هل وصلت لك الفكرة المطلوبة ام لا استاذ
  5. استاذي العزيز بعدما طبقته على الملف الذي بحوزتي تغيرت المعطيات واصبح يجمع كل السنوات الماضية مع ان السنوات الماضية تم اقتطاعها كليا والاصح اخر سنة مع وجود الباقي 20211009.rar
  6. حسب اعتقادي لو يتم تقيدها ب Loan_ID لانه يمكن ان يكون تاريخين لنفس الموظف
  7. نعم هي تمثل مدة الاقتطاع الموظف رقم 1 من 2021/07/01 الى 2022/04/01 الموظف رقم 2 من 2021/09/01 الى 2022/06/01 وهكذا
  8. شكرا لك استاذ kanory على المجهودات جربت المرفق ولقيت خطا بسيط في مربع نص المبلغ الكلي المدان (theSum) استبدلتها ب kan2 ظهرت النتيجة تقريبا صحيحة كما في الصورة والان يبقى مدة الاقتطاع من ..... الى ....... ;
  9. ارجو من الاساتذة الخبراء الالتفاتة لطلبي وشكرا لكم جميعا للتوضيح اكثر في جدول tbl_Loans
  10. السلام عليكم لديا مشكل في نتائج التقرير rptTransferLOS الصورة توضح ارجو التعديل 20211007.rar
  11. شكرا لك استاذ محمد أبو عبد الله الكود لم يفي بالغرض المطلوب حيب عند الضغط على خانة الاختيار OK لم يظهر شيء وعند تتبع الكود خطوة بخطوة ظهرت لي ان قيمة Me!Loan_ID = DFirst("c1", "[Cridi]", "Right(XDate, 4) =" & Right(Date, 4)) & Format(xNext, "0") & "/" & prtyr تساوي Null
  12. السلام عليكم اساتذتي الكرام المطلوب التعديل على كود تنسيق ارقام بهذه الصيغة "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
  13. شكرا استاذ ولكن هذه النسحة لم تتوافق مع اكسس 2010 عربي
  14. هل من الممكن ارفاق البرنامج v-tools هنا استاذ Kanory
  15. السلام عليكم اساتذتي الكرام N1=Nz(DSum("[Loan_Payment]", "[tbl_Loans]", "Year ([Loan_AwardMonth])=" & Me.txtYear), "And [Loan_Type]= 'Cridi'", 0) اين الخطا في هذا
  16. شكرا لك استاذ kanory ربي يعوض علينا
  17. السلام عليكم اساتذتي الكرام لقد قمت بتصميم برنامج ووقع تجميد للبرنامج اثناء الفتح ومن ثم ظهرت هذه المشكلة كما في الصورة ارجو المساعدة Gestion Courier.rar
  18. وهو المطلوب شكرا لك اخي husamwahab
  19. شكرا لك احي على المجهودات ولكن ياريت يكون التقسيم حسب الصورة Database2.accdb
  20. السلام عليكم اخواني ماهي دالة تقسيم الحروف إلى أعمدة مثلا : KRIMO 2 يقسم في كل عمود حرف وشكرا لكم
  21. السلام علكيم اساتذتي الكرام صار معي مشكل في الوحدات النمطية فأصبحت فارغة واصبح البرنامج بدون اي حدث فكيف العمل لإسترجاع ما تم حذفه ارجو المساعدة اساتذة في عمل السنين ذهب بسبب مشكل لا اعرف سببه 2021.rar
×
×
  • اضف...

Important Information