Omar_Kreem

شكراً جزيلاً أستاذ/ Shivan على مجهودك واهتمامك ... زادك الله علما..

السلام عليكم ورحمة الله وبركاته .. ـ لدى استعلام يحتوى على حقلين للتاريخ، وحقلين للوقت .. ** أنشئت حقل جديد بالاستعلام اسميته (الفرق) وأخرجت الفرق بين الوقتين.. ** أنشئت تقريراً لآتمكن من جمع عامود (الفرق) فيعطينى أن البيانات غير متوافقة .. لا أدرى لماذا .. ** المرجو التعديل على حقل الجمع فى التقرير (تذييل الصفحة ID) .. كى يظهر الناتج db1.rar

جزاك الله خيراً أ/ محمد أيمن ............. نعم كنت أريد التطبيق على كامل السجلات ............... زادك الله علماً.

up

Up

أخوانى الكرام ... طرحت سؤال من فترة عن تلخيص فترات تاريخ على الرابط التالى وتفضل خبيرنا الأستاذ رمهان بالحل وهو رائع بحق لكن طرأ جديد على نفس السؤال.. . هل يمكن تلخيص أو تجميع فترات تواريخ لعدد كبير من الموظفين بحيث : إذا كانت التواريخ متتالية تجمع بالدالتين Min و Mix أو بكود برمجى وإلا إدارج التاريخ الغير المكمل لسابقه بمفرده ثم متابعة تجميع التواريخ مرة أخرى وهكذا DatterrII.rar

شكراً جزيلاً لمجهود حضرتك

شكراً لك أ/ محمد على مجهودك معى .. لكن عند بناء التقرير لم يتم التعديل غير بالتوسيع اليدوى كذلك. هل يمكن برمجياً جعل البيانات تنفرد عبر الحقل تلقائياً.

أخى لم يتم التعديل إلا بالتوسيع اليدوى للأسفل ..

Up

لم تعط نتيجة أ/ رمهان مازال التجانب أفقيا

السلام عليكم ورحمة الله .. استفدت كثيرا من كود يمكنه من دمج عدة حقول عاموديه إلى حقل واحد مثل : 2001 2002 2011 إلى 2001، 2002، 2011. السؤال: ـ هل يمكن الدمج فى حقل واحد ولكن بشكل عامودى. هكذا: Horizontal.rar

جزاك الله كل خير أستاذنا الكريم .. جعله الله فى ميزان حسناتك .. عمل فوق الرائع

السلام عليكم ورحمة الله .. كل عام وحضرتك بخير .. رمضان كريم ..

بسم الله ما شاء الله .. برنامج جميل

ما تفضل به خبيرنا أستاذ/ رمهان Function CalcAge(vDate1 As Date, vdate2 As Date) Dim vYears As Integer, vMonths As Integer, vDays As Integer vMonths = DateDiff("m", vDate1, vdate2) vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) If vDays < 0 Then vMonths = vMonths - 1 vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) End If vYears = vMonths \ 12 vMonths = vMonths Mod 12 CalcAge = vDays & " يوم, " & vMonths & " شهر, " & vYears & " سنة" End Function

جزاك الله خيراً أستاذنا أبو خليل ... نعم تم حل المشكلة .. زادك الله علما .. رمضان كريم عليكم وعلى أمة المسلمين

السلام عليكم ورحمة الله وبركاته لدى وحدة نمطية بها أرقام مثل 31.25 مثلا : Dim XSalary As Currency XSalary = 31.25 عند استجلاب البيانات باستعلام أجدها عدد صحيح أى (31 ) فكيف أجعل الكود يظهر الرقم كاملا بعلامته العشرية (31.25)

جزاك الله كل خير أ/ أبوعبدالله .. زادك الله علما النتائج سليمه

جزاك الله خيراً أ/ أبوعبدالله ..... نعم الرقم العشرى مكون من رقمين دائماً.. ..... وأنا لا أريد غير أخر رقم فقط فعلا مثلا: 15.34 يصبح 15.30 15.38 يصبح 15.35 وبالتجربة على رقم عشرى أخر قيمته صفر أجده يقرب الأرقام الصحيحة مثلا: الرقم 879456.00 أصبح 879455.99 والمفترض أن يبقى كما هو 879456.00 يصبح كما هو 879456.00

السلام عليكم ورحمة الله وبركاته. لدى رقم 15.34 ورقم أخر 15.38 .... أريد تقريب الرقم إلى (صفر) إذا كان أقل من (5) .. مثلاُ : 15.34 تصبح 15.30 وإذا كان يزيد عن (5) يقرب إلى (5) مثلاُ: 15.38 تصبح 15.35

أعتقد أن هذا الحل هو الأقرب ويكون بمعرفة قيم الأعداد لكافة النسب: الرقم قيمة النسبة النسبة الجديدة القيمة 237.60 30.32 0.078 30.32 32.77 0.073 32.77 56.42 0.042 56.42 63.31 0.038 63.31 54.78 0.043 54.78 237.60 237.60 الرقم قيمة النسبة النسبة الجديدة القيمة 208.84 0 0.078 26.65 0 0.073 28.80 0 0.042 49.59 0 0.038 55.65 0 0.043 48.15 0.00 208.84

أعتذر على سؤالى شكراً أ/ ياسر على تعبك ومجهودك معى

السبب هو اختلاف الأرقام التى أخذت منها النسب المئوية كالتالى: الرقم النسبة قيمة النسبة 303.20 0.10 30.32 491.55 0.15 32.77 846.30 0.15 56.42 633.10 0.10 63.31 547.80 0.10 54.78 237.60

هذا رقم أخر به نتائج صحيحه: الرقم ( 237.6 ) الناتج النسب المئوية 30.32 0.10 32.77 0.15 56.42 0.15 63.31 0.10 54.78 0.10 وأقصد بـ 100% أن يكون مجموع النواتج = العدد ذاته