كود الحاق و تحديث قيمة

[محمد عبد الله ٢]

السلام عليكم و رحمة الله و بركاته .. اساتذتي الأعزاء

المطلوب هو اضافة القيمة في الحقل end في النموذج و جمعها مع قيمة الحقل  knaw في الجدول ntak  و ليس استبدال القيمة و الشرح موجود بالمرفق 

كل الاحترام و التقدير لكم 

Microsoft_Access_قاعدة_بيانات_جديد.accdb

[ابو ياسين المشولي]

اتفضل

DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE ntak, ntak1 SET ntak.knaw = ntak.knaw +[Forms]![نموذج1]![end] " & vbCrLf & _
"WHERE (((ntak1.esm)=[Forms]![نموذج1]![نص611]));"
DoCmd.SetWarnings True

 

[محمد عبد الله ٢]

شكرآ جدآ أستاذي @ابو ياسين المشولي

و لكن مع الاسف لم يعمل الكود 

Microsoft_Access_قاعدة_بيانات_جديد.accdb

[ابو ياسين المشولي]

انا مشيت على ملفك الاول كان الشرط الاسم مثل اسم الجدول الاخر

اتفضل التعديل

DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE ntak SET ntak.knaw = ntak.knaw+[Forms]![نموذج1]![end]" & vbCrLf & _
"WHERE (((ntak.esm)=[Forms]![نموذج1]![نص611]));"
DoCmd.SetWarnings True

 

Microsoft_Access_قاعدة_بيانات_جديد (1).accdb

[محمد عبد الله ٢]

جزاك الله خيرآ أستاذي الكريم  @ابو ياسين المشولي

هذا هو المطلوب 

ولكن يوجد مشكلة أخرى إن أمكن 

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

تم تعديل سبتمبر 28, 2019 بواسطه mohamad dahleek

[ابو ياسين المشولي]

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

واذا كان كما تقول اعمل زر اخر وبدل زايد اجعلها ناقص

تم تعديل سبتمبر 28, 2019 بواسطه ابو ياسين المشولي

[محمد عبد الله ٢]

53 دقائق مضت, ابو ياسين المشولي said:

واذا كان كما تقول اعمل زر اخر وبدل زايد اجعلها ناقص

أحسنت استاذي الكريم .. جزاك الله خيرآ

[ابو ياسين المشولي]

34 دقائق مضت, mohamad dahleek said:

أحسنت استاذي الكريم .. جزاك الله خيرآ

بالتوفيق اخي