waelkhairk قام بنشر سبتمبر 29, 2019 مشاركة قام بنشر سبتمبر 29, 2019 السلام عليكم: قاعدة البيانات المرفقة هي لبيانات طلاب معهد تعليمي في النموذج الفرعي recordtt وضعت مربع نص " total" لحساب اجمالي تكلفة كل مادة دراسية ( القسط الشهري* عدد الأشهر) لكن واجهتني مشكلة في النموذج الرئيسي recordhh عند كتابة عبارة dsum لايجاد تكلفة مواد كل طالب فإن دالة dsum ترجع قيمة خاطئة ( لا تساوي القيمة فيما لو قمنا بالجمع اليدوي) لذلك أضفت حقلا جديدا في جدول recordtt وهو " totalprice" يتم ملئه من مربع النص السابق " total" عن طريق استعلام تحديث وجرت الأمور بشكل جيد لكن المشكلة أنني بتلك الطريقة أحتاج للمرور على جميع السجلات بداية كل شهر وهذا صعب حاولت عن طريق استعلام sql عند فتح النموذج recordhh لكن تظهر رسالة خطأ أرجو المساعدة : في كود sql لتحديث كافة السجلات مرة واحدة و سبب الخطأ في dsum https://up.top4top.net/downloadf-13671adby0-zip.html رابط هذا التعليق شارك More sharing options...
AlwaZeeR قام بنشر سبتمبر 29, 2019 مشاركة قام بنشر سبتمبر 29, 2019 وعليكم السلام ورحمة الله وبركاته تعديل الكود كالتالي: DoCmd.RunSQL "UPDATE recordtt SET recordtt.totalprice = [Forms]![recordhh]![recordtt].[Form]![total]" _ & "WHERE recordtt.recid = [Forms]![recordhh]![recordtt].[Form]![recid]" رابط هذا التعليق شارك More sharing options...
essam rabea قام بنشر سبتمبر 29, 2019 مشاركة قام بنشر سبتمبر 29, 2019 وبالنسبة لدالة Dsum ضع الكود التالى فى مصدر عنصر التحكم لـ Text22 و الغيه من حدث عند الضغط =DSum(Nz("totalprice");"recordtt";"[stuid]= Forms!recordhh!recordtt.form!stuid") رابط هذا التعليق شارك More sharing options...
waelkhairk قام بنشر سبتمبر 29, 2019 الكاتب مشاركة قام بنشر سبتمبر 29, 2019 43 دقائق مضت, AlwaZeeR said: وعليكم السلام ورحمة الله وبركاته تعديل الكود كالتالي: DoCmd.RunSQL "UPDATE recordtt SET recordtt.totalprice = [Forms]![recordhh]![recordtt].[Form]![total]" _ & "WHERE recordtt.recid = [Forms]![recordhh]![recordtt].[Form]![recid]" مشكور سلفا جاري التجربة 30 دقائق مضت, essam rabea said: وبالنسبة لدالة Dsum ضع الكود التالى فى مصدر عنصر التحكم لـ Text22 و الغيه من حدث عند الضغط =DSum(Nz("totalprice");"recordtt";"[stuid]= Forms!recordhh!recordtt.form!stuid") مشكور سلفا جاري التجربة رابط هذا التعليق شارك More sharing options...
waelkhairk قام بنشر سبتمبر 29, 2019 الكاتب مشاركة قام بنشر سبتمبر 29, 2019 1 ساعه مضت, AlwaZeeR said: وعليكم السلام ورحمة الله وبركاته تعديل الكود كالتالي: DoCmd.RunSQL "UPDATE recordtt SET recordtt.totalprice = [Forms]![recordhh]![recordtt].[Form]![total]" _ & "WHERE recordtt.recid = [Forms]![recordhh]![recordtt].[Form]![recid]" للأسف الشديد لم يعمل تظهر رسالة Syntax error رابط هذا التعليق شارك More sharing options...
waelkhairk قام بنشر سبتمبر 29, 2019 الكاتب مشاركة قام بنشر سبتمبر 29, 2019 منذ ساعه, essam rabea said: وبالنسبة لدالة Dsum ضع الكود التالى فى مصدر عنصر التحكم لـ Text22 و الغيه من حدث عند الضغط =DSum(Nz("totalprice");"recordtt";"[stuid]= Forms!recordhh!recordtt.form!stuid") جزاك الله خيرا هذا الكود يعمل مع حقل totalprice الموجود في الجدول recordtt لكن انا أريد دالة dsum مع مربع النص total و الذي لا أساس له في الجدول recordtt جربت تبديل اسم الحقل في الدالة من totalprice الى total لكن الدالة أرجعت القيمة error فما الحل رجاءا رابط هذا التعليق شارك More sharing options...
essam rabea قام بنشر سبتمبر 30, 2019 مشاركة قام بنشر سبتمبر 30, 2019 (معدل) 10 ساعات مضت, waelkhairk said: لكن انا أريد دالة dsum مع مربع النص total و الذي لا أساس له في الجدول recordtt بس انت ال Total فيه المعادلة دى والمفروض انها تحسب إجمالى تكلفة المادة =IIf(IsNull([leftdate]);(Month(Date()-[recdate]))*[subprice];IIf(Date()<[leftdate];(Month(Date()-[recdate]))*[subprice];(Month([leftdate]-[recdate]))*[subprice])) قلى هيا دى اللى عاوزها تبقى Dsum لحساب إجمالى تكلفة المادة .. وإذا كنت فهمت صح فقلى التكلفة دى تتحسب ازاى بالعربى وياريت يكون الشرح على الفورم قمت ببعض التعديلات فى المرفق جرب وقلى ايه المطلوب وياريت تغير تسمية الحقول للعربى على الفورم 222.rar تم تعديل سبتمبر 30, 2019 بواسطه essam rabea رابط هذا التعليق شارك More sharing options...
waelkhairk قام بنشر أكتوبر 1, 2019 الكاتب مشاركة قام بنشر أكتوبر 1, 2019 21 ساعات مضت, essam rabea said: بس انت ال Total فيه المعادلة دى والمفروض انها تحسب إجمالى تكلفة المادة =IIf(IsNull([leftdate]);(Month(Date()-[recdate]))*[subprice];IIf(Date()<[leftdate];(Month(Date()-[recdate]))*[subprice];(Month([leftdate]-[recdate]))*[subprice])) قلى هيا دى اللى عاوزها تبقى Dsum لحساب إجمالى تكلفة المادة .. وإذا كنت فهمت صح فقلى التكلفة دى تتحسب ازاى بالعربى وياريت يكون الشرح على الفورم قمت ببعض التعديلات فى المرفق جرب وقلى ايه المطلوب وياريت تغير تسمية الحقول للعربى على الفورم 222.rar 455.37 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 3 downloads السلام عليكم مشكور أستاذ على اهتمامك شرح المشكلةبالتفصيل في صفحة وورد في الرابط الاول والرابط الثاني قاعدة البيانات مع بعض التعديلات https://up.top4top.net/downloadf-13694tbbs0-docx.html https://up.top4top.net/downloadf-1369fy6rh0-rar.html رابط هذا التعليق شارك More sharing options...
essam rabea قام بنشر أكتوبر 1, 2019 مشاركة قام بنشر أكتوبر 1, 2019 أخى waelkhairk .. أنا أفهم أشتغل على طول ادخل على الإستعلام الخاص بـ recordtt اكتب فى حقل totalprice التالى totalprice: IIf(IsNull([leftdate]);(Month(Date()-[recdate]))*[subprice];IIf(Date()<[leftdate];(Month(Date()-[recdate]))*[subprice];(Month([leftdate]-[recdate]))*[subprice])) قم بتوقيف استعلام التحديث فى الكود استبدل معادلة مربع النص sum الى (=Sum([totalprice])) جرب ورد ويارب اكون فهمت بالتوفيق رابط هذا التعليق شارك More sharing options...
waelkhairk قام بنشر أكتوبر 1, 2019 الكاتب مشاركة قام بنشر أكتوبر 1, 2019 السلام عليكم اذا كتبت هذه المعادلة في حقل totalprice عندها لن يسند هذا الحقل الى جدول recordtt ودالة sum عندها سترجع error واذا تكرمت اعمل التعديلات بنفسك و ارفعها لو سمحت واذا ممكن كود لجعل استعلام التحديث يحدث كل السجلات دفعة واحدة. رابط هذا التعليق شارك More sharing options...
essam rabea قام بنشر أكتوبر 1, 2019 مشاركة قام بنشر أكتوبر 1, 2019 (معدل) الأخ waelkhairk فى المرفق بمجرد فتح نموذج .. recordhh .. سيتم تحديث جدول .. recordtt .. بالكامل طبقا للمعايير المطلوبة وزيادة فى الإطمئنان تم وضع زر يقوم بتحديث الجدول بالكامل ايضا غير الارقام المكتوبة فى totalprice واغلق وافتح النموذج ولاحظ الفرق غير الارقام المكتوبة فى totalprice واضغط زر .. تحديث رسم المادة .. ولاحظ الفرق غلبت معاك .. ادعى معايا ان يكون ده طلبك .. انا باين عليا عجزت ولا ايه بس يعنى لو طلع الكلام مظبوط ابقى عرفنى بالتوفيق 222.rar تم تعديل أكتوبر 2, 2019 بواسطه essam rabea رابط هذا التعليق شارك More sharing options...
waelkhairk قام بنشر أكتوبر 3, 2019 الكاتب مشاركة قام بنشر أكتوبر 3, 2019 مشكور جدا جدا بس ممكن أغلبك معاي بطلب تاني؟؟؟ رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.