ANESS

شكرا أستاذي وانا في الإنتظار

أريد تحويل كل قيم الأيام الأكبر من 14 إلى شهور والباقي إلى اصفار

قمت بادراج تقرير لجدول احتاجة ارجو التعديل عليه.حيث ظهرت قيمة الأيام مساوية للعدد30. ما اريده بالضبط هو تحويل عدد الأيام التي تساوي15 أو أكثر والتي تظهر في التقرير بلون احمر اريد اعتمادها كشهر. والقيمة التي تساوي افل من 15 - باللون الأخضر - تحويلها الى 00 اي اقصد عملية تقريب في قيمة الأيام.ارجو ان يكون الشرح واضح واذا كان هناك اي غموض ساقوم بالشرح اكثر. DDDateDiff113.rar

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

دالة في استعلام duration3: CalculateAgeDifference([expdate],[enddate3]) عند استدعاء هذه الدالة بالقيم التالية [expdate]=10/12/2022 و [enddate3])=10/11/2023. تكون النتيجة 01 years. 11 months. -366 days ارجو التعديل على الوحدة Public Function CalculateAgeDifference(StartDate As Date, EndDate As Date) As String Dim years As Integer Dim months As Integer Dim days As Integer ' حساب عدد السنوات years = DateDiff("yyyy", StartDate, EndDate) ' حساب عدد الشهور months = DateDiff("m", StartDate, EndDate) Mod 12 ' حساب عدد الأيام days = DateDiff("d", DateAdd("m", (years * 12) + months, StartDate), EndDate) ' تحقق من تجاوز الأيام والشهور عن الحد الأقصى If days >= 30 Then months = months + 1 days = days - 30 End If If months >= 12 Then years = years + 1 months = months - 12 End If ' تحويل النتيجة إلى نص CalculateAgeDifference = years & " years, " & months & " months, " & days & " days" End Function

السلام عليكم استاذي الكريم. اشكرك جزيل الشكر. ولانني اريد اعتماد الشهر في عملية الحساب ب30 يوما .لقد قمت بادراج تقرير لجدول احتاجة ارجو التعديل عليه.حيث ظهرت قيمة الأيام مساوية للعدد30. ما اريده بالضبط هو تحويل عدد الأيام التي تساوي15 أو أكثر والتي تظهر في التقرير بلون احمر اريد اعتمادها كشهر. والقيمة التي تساوي افل من 15 - باللون الأخضر - تحويلها الى 00 اي اقصد عملية تقريب في قيمة الأيام.ارجو ان يكون الشرح واضح واذا كان هناك اي غموض ساقوم بالشرح اكثر. تحياتي القلبية. DDDateDiff113.rar

السلام عليكم ورحمة الله تعالى وبركاته. اولا أشكر سيادتكم جزيل الشكر على التفاعل بسرعة مع الموضوع.وارجو من الله أن يجعل مجهوداتكم في ميزان حسناتكم. أريد فقط أن أنوه سيادتكم أنني لا أريد ظهور قيمة 30 يوما أو 12 شهرا .فكلما كانت القيمة في خانة الأيام 30 حولت إلى الشهور وكلما كانت القيمة 12 في خانة الشهور حولت الى أعوام. ارجو ان تكون الفكرة قد وصلت.تقبل الله طاعاتكم.

مشكور أستاذي الكريم. لقد قمت بتجربة الملف المرفق لكنه مازال هناك خلل في الحساب....انظر السجل الثالث والرابع. DDDateDiff11.rar

لدي ثلاث فترات كل فترة ممتدة بين تاريخين startdate1 enddate1 startdate2 enddate2 startdate3 enddate3 في استعلام اكسس أريد إيجاد الفرق بين كل فترتين ثم جمع النتائج للحصول على ناتج واحد حيث عدد السنوات في حقل وعدد الشهور في حقل وعدد الأيام في حقل وأن لا يكون عدد الشهور أكثر من 11 وعدد الأيام أكثر من 29

هل من مساعد؟

بارك الله فيكم وشكرا جزيلا.

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

أخي الكريم أريد التعديل على الدالةdcountفي التقرير بمعنى ازالة علامة حطأ التي تظهر في التقرير

السلام عليكم ورحمة الله وبركاته اخواني الكرام لدي مشكلة اتمنى من الله ان اجد منكم حلا لها .فأرجو التصحيح في المرفق.. قاعدة بيانات4.rar