مثال لنقل او ترحيل البيانات من جدول لاخر ويحتاح تعديل

بداية طيب 27 تحميل

تفضل اخى

لا تحتاج الى حقل الرصيد فى الجدول

فمن الممكن حسابه مباشرة فى الكود

اوامر .rar

من الممكن حسابه مباشرة فى الكود -----> كيف يتم ذلك برمجيا ( برجاءا شرح خاص وهل يمكن جعلها عن طريق زرار - )

وكيف يتم رفض النقل اذا كان amount لايساوى <> 0

بعد نقل المحدد كيف يتم مسحة من الجدول

هذة انا لا اعرفها و سوف انزل الملف و ادرس هذة جدا لانها مهمة والف شكر على الرد+1

انا اسف على كثرة اسئلتى لان الفروم ده مهم جدا ليا

؟

gocando كتب:

من الممكن حسابه مباشرة فى الكود -----> كيف يتم ذلك برمجيا ( برجاءا شرح خاص وهل يمكن جعلها عن طريق زرار - )

تم تنفيذ ذلك فى الكود المرفق

حيث تم الغاء حقل الرصيد من الجدول a و حساب قيمته فى الكود

لاحظ هذا هو الكود الاصلى

يأخذ كل سجلات a و يضعها فى b

DoCmd.RunSQL "INSERT INTO B SELECT a.* FROM a;"

iهنا بعد التعديل

تم اضافة شرط فى الاستعلام

و هو اذا كان الرصيد =0 يتم النقل

و هنا يتم حساب الرصيد amount فى الكود

DoCmd.RunSQL "INSERT INTO B SELECT a.*, [cost]-[pay]-[less] AS AMOUNT FROM a WHERE ((([cost]-[pay]-[less])=0));"

اقتباس

وكيف يتم رفض النقل اذا كان amount لايساوى <> 0

نحن نحدد السجلات التى تساوى 0 فقط عن طريق استعلام فى الكود

اقتباس

بعد نقل المحدد كيف يتم مسحة من الجدول

لم تطلب ذلك فى المشاركة

عموما الامر بسيط

اعمل استعلام حذف لنفس السجلات

DoCmd.RunSQL "delete a.* SELECT a.* FROM a WHERE ((([cost]-[pay]-[less])=0));"

استاذنا mrnooo2000:

الف شكر و شكرا على سعه صدرك انت عارف الواحد بيحب يكون طماع فى الطلبات و

يارب تكون صدقة جارية

بس لو تكمل جميلك برجاء تنفيذها فى الفروم حتى يكون العمل مكتمل الجوانب تماما ومن اهلة

الف شكر واسف على طلباتى الكثيرة

استخدم هذا الكود فى النموذج

DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE B.* FROM B;"
'DoCmd.RunSQL "INSERT INTO B SELECT a.* FROM a;"
DoCmd.RunSQL "INSERT INTO B SELECT a.*, [cost]-[pay]-[less] AS AMOUNT FROM a WHERE ((([cost]-[pay]-[less])=0));"
DoCmd.RunSQL "delete a.* SELECT a.* FROM a WHERE ((([cost]-[pay]-[less])=0));"
DoCmd.SetWarnings True
DoCmd.OpenTable "b"

ألف مليون شكر