zhmaid قام بنشر سبتمبر 29, 2023 مشاركة قام بنشر سبتمبر 29, 2023 السلام عليكم اولا ارجو من الله ان يكون الجميع بأالف خير وعافيه عندي طلب صغير من اروع منتدى اريد جمع الدفعات السنوات للجميع ( الحقل الاخير ) ولكم جزيل الشكر Fam.rar رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر سبتمبر 29, 2023 مشاركة قام بنشر سبتمبر 29, 2023 (معدل) هذه طريقة تقليدية بدون أكواد ، ولكن كان لديك مشكلة وهي عدم وجود قيمة في الحقول الفارغة ؛ فالأوجب كونها حقول رقمية وجود قيمة في حال فراغها = 0 Fam.mdb تم تعديل سبتمبر 29, 2023 بواسطه Foksh رابط هذا التعليق شارك More sharing options...
zhmaid قام بنشر سبتمبر 30, 2023 الكاتب مشاركة قام بنشر سبتمبر 30, 2023 شكرا لردك السريع خانه ( مجموع الدفعات السنوات للجميع ... لم يظهر المبلغ ) رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر سبتمبر 30, 2023 مشاركة قام بنشر سبتمبر 30, 2023 (معدل) 6 دقائق مضت, zhmaid said: لم يظهر المبلغ تم تعديل سبتمبر 30, 2023 بواسطه Foksh رابط هذا التعليق شارك More sharing options...
zhmaid قام بنشر سبتمبر 30, 2023 الكاتب مشاركة قام بنشر سبتمبر 30, 2023 هيك لما فتحتها سامحني مش عارف ليش رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر سبتمبر 30, 2023 مشاركة قام بنشر سبتمبر 30, 2023 2 دقائق مضت, zhmaid said: سامحني مش عارف ليش تفضل الملف بصيغة Accdb 2025.accdb رابط هذا التعليق شارك More sharing options...
zhmaid قام بنشر سبتمبر 30, 2023 الكاتب مشاركة قام بنشر سبتمبر 30, 2023 هيك 100% ولكن انا بستعمل اكسس 2003 وكل شي على اكسس 2003 برأيك شو المشكله رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر سبتمبر 30, 2023 مشاركة قام بنشر سبتمبر 30, 2023 1 دقيقه مضت, zhmaid said: برأيك شو المشكله ممكن نسخة الاوفيس يكون فيها مشكلة ، وحاول على الاقل يكون عندك اوفيس 2010 رابط هذا التعليق شارك More sharing options...
zhmaid قام بنشر سبتمبر 30, 2023 الكاتب مشاركة قام بنشر سبتمبر 30, 2023 شطبت النسخه الى عندي ونزلت نسخه ثانيه من الاكسس 2003 ولكن نفس المشكله ..... اذا في طريقه ثانيه لانني صعب اغير الى اكسس 2010 ولكم جزيل الشكر رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر سبتمبر 30, 2023 مشاركة قام بنشر سبتمبر 30, 2023 جرب هذا استبدله بدل الموجود في مصدر تحكم الحقل : =Nz([tx23])+NZ([tx24])+NZ([tx25]) رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر سبتمبر 30, 2023 مشاركة قام بنشر سبتمبر 30, 2023 8 ساعات مضت, zhmaid said: هيك 100% أخي الكريم انا استندت الى كلامك ان الملف التاني اشتغل معك 100% ، وانا للأسف لا أملك نسخة أوفيس 2003 في جهازي ؛ جرب فكرة الأستاذ @ابوخليل 😊 رابط هذا التعليق شارك More sharing options...
zhmaid قام بنشر سبتمبر 30, 2023 الكاتب مشاركة قام بنشر سبتمبر 30, 2023 شو اسماء الفيلد ...... tx23 - tx24 - tx25 لاني ما في هيك اسماء ...... اتحملوني معلش رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر سبتمبر 30, 2023 مشاركة قام بنشر سبتمبر 30, 2023 (معدل) 9 دقائق مضت, zhmaid said: tx23 - tx24 - tx25 هذه الحقول تجلب لك مجموع كل سنة بانفراد حسب اسم مربع النص ( tx23 = المجموع الكلي لعام 2023 ... وهكذا ) ، وقمت بإخفائها ، لكنها موجودة وتحمل قيم. وأكرر نصيحتي لك ( لا تترك حقول رقمية لا تحمل قيمة 0 ان كانت فارغة ليسهل عليك الجمع فيها ) تم تعديل سبتمبر 30, 2023 بواسطه Foksh رابط هذا التعليق شارك More sharing options...
دروب مبرمج قام بنشر أكتوبر 1, 2023 مشاركة قام بنشر أكتوبر 1, 2023 (معدل) تفضل هذا التعديل انشئ موديول جديد و الصق به الشفرة التالية و استخدمها كيفما شئت ' المجموع للشخص الواحد لسنة محددة Public Function OneYears(SetID As Integer, SetYear As Integer) Dim SetCol As Variant, i As Integer SetCol = Null For i = 1 To 12 SetCol = "[" & MonthToNo(i) & "-" & SetYear & "]" OneYears = OneYears + Nz(DSum(SetCol, "[Year_" & SetYear & "]", "[ID]=" & SetID), 0) Next i End Function ' المجموع لجميع الأشخاص و جميع السنوات Public Function AllYears() Dim SetCol As Variant, i As Integer, x As Integer, SetYear As Integer SetCol = Null For x = 2023 To 2025 For i = 1 To 12 SetCol = "[" & MonthToNo(i) & "-" & x & "]" AllYears = AllYears + Nz(DSum(SetCol, "[Year_" & x & "]"), 0) Next i Next x End Function Public Function MonthToNo(SetMonth As Variant) Select Case SetMonth Case Is = 1: MonthToNo = "Jan" Case Is = 2: MonthToNo = "Feb" Case Is = 3: MonthToNo = "Mar" Case Is = 4: MonthToNo = "Apr" Case Is = 5: MonthToNo = "May" Case Is = 6: MonthToNo = "Jun" Case Is = 7: MonthToNo = "Jul" Case Is = 8: MonthToNo = "Aug" Case Is = 9: MonthToNo = "Sep" Case Is = 10: MonthToNo = "Oct" Case Is = 11: MonthToNo = "Nov" Case Is = 12: MonthToNo = "Dec" End Select End Function مرفق الملف بعد التعديل Fam.mdb تم تعديل أكتوبر 1, 2023 بواسطه دروب مبرمج 1 رابط هذا التعليق شارك More sharing options...
zhmaid قام بنشر أكتوبر 1, 2023 الكاتب مشاركة قام بنشر أكتوبر 1, 2023 الله يجزيكم عني الف خير ..... ما قصرتو اشتغل معي زي الحلاوه اشكر الجميع مره اخى ......... والله اروع منتدى الله يديمكم رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان