اضافة زر يقوم بحذف وتعديل البيانات داخل نفس الجدول دون الحاجة لفتحه

[أحمد وجيه]

الأخوة الكرام  مرفق قاعدة بيانات أرغب في اضافة التعديل التالي  عليها  : 

عند فتح نموذج اضافة عهدة وكتابة الرقم العام للموظف وليكن 30515  تظهر بيانات الاصناف المسجلة عهدة على الموظف 

المطلوب هو اضافة زرار يقوم بنقل العهدة المسجلة على الموظف رقم 30515 الي الموظف رقم 30181  داخل نفس الجدول ( رقم العهد ) دون الحاجة لفتح الجدول

ويفضل لو فتح قائمة منسدلة أختار منها الاصناف المطلوب نقلها 

برنامج المستودع.rar

[أحمد وجيه]

للمساعدة

[عبد الفتاح كيرة]

أولا جعلت كل حقول جدول العهد مفتاحا أساسيا كى لا يتم تكرار أى عهدة لأى موظف فى نفس التاريخ

ثانيا أنشأت استعلام إلحاق لإضافة كل العهد للموظف الثانى

ثالثا أنشأت زر أمر فى النموذج لتنفيذ ذلك

المرفق

برنامج المستودع - kera.rar

[أحمد وجيه]

أخي الكريم  @عبدالفتاح كيرة 

المرفق يعمل بطريقة خاطئة فهو ينقل العهدة فقط للموظف رقم 2 مهما زاد عدد الموظفين  

اما التعديل المطلوب فهو ان اقوم  بتحديد الرقم العام للموظف المطلوب نقل العهدة عليه بعد الضغط على زرار  ADD 

[عبد الفتاح كيرة]

الآن يمكنك اختيار الرقم العام للموظف من مربع التحرير و السرد

 

المرفق

برنامج المستودع - kera.rar

[أحمد وجيه]

مشكور أخي الكريم الله يجزاك كل خير 

[عبد الفتاح كيرة]

1 دقيقه مضت, أحمد وجيه said:

مشكور أخي الكريم الله يجزاك كل خير 

و إياك أخى الكريم
لكن

هل هذا ما أردته؟

[أحمد وجيه]

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

ولكن هذا التعديل يكفي وزيادة 

[أحمد وجيه]

أخي الكريم @عبدالفتاح كيرة

في خطأ دائما عند طلب نقل العهدة لموظف جديد تنقل كل الأصناف الموجودة في جدول رقم العهد 

بينما المطلوب هو أن تنقل الأصناف الموجودة على الموظف القديم فقط 

أضفت بعض الموظفين بالقاعدة يمكنك مراجعتها والتأكد من ذلك 

برنامج المستودع - kera.rar

تم تعديل يوليو 26, 2018 بواسطه أحمد وجيه

[أحمد وجيه]

للمساعدة

[عبد الفتاح كيرة]

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

برنامج المستودع - kera.rar

[عبد الفتاح كيرة]

ما فهمته أخ أحمد أنك تضيف الرقم العام الجديد من نفس نموذج الإضافة 

[أحمد وجيه]

أخي الكريم @عبد الفتاح كيرة 
 

مثال لما أردته 

عند كتابة الرقم الوظيفي في خانة الرقم العام تظهر العهدة المسجلة على الموظف كما هو موضح بالصورة   ( جهاز كمبيوتر و شاشة وغسالة )

ما أردته هو انه عند كتابة رقم وظيفي في خانة ( اكتب رقم الموظف ) وليكن 30333 كما في الصورة ثم الضغط على add تنقل اليه الأصناف المسجلة على الموظف 30515  
 

وبتاريخ اليوم الذي تمت فيه عملية نقل العهدة وليس التاريخ الذي سجلت فيه العهدة على الموظف القديم 

 

 

 

ليصبح بيان عهدة الموظف رقم 30333 كالتالي 

 

[أحمد وجيه]

للمساعدة 

[أحمد وجيه]

للمساعدة 

[AlwaZeeR]

تفضل :

جرب ووافني بالنتيجة

استخدم هذا الامر تحت زر الأمر : ADD

 

Dim strSQL As String
strSQL = "UPDATE [رقم العهد] " & _
"SET [الرقم العام] = myn,[التاريخ] = Date()"
DoCmd.SetWarnings False
DoCmd.RunSQL strSQL
DoCmd.SetWarnings True
DoCmd.Requery

 

[AlwaZeeR]

لم انتبه لطلبك في المشاركة الاولى

في حال تريد نقل أصناف محددة تحتاج الى عمل حقل في جدول رقم العهد ولنفرض انه : Chk واجعل نوع البيانات رقم

ثم قم باضافته في النموذج الفرعي في ADD

واستخدم هذا الكود تحت زر ADD

Dim strSQL As String
strSQL = "UPDATE [رقم العهد] " & _
"SET [الرقم العام] = myn,[التاريخ] = Date()" & _
"WHERE chk =true"
DoCmd.SetWarnings False
DoCmd.RunSQL strSQL
DoCmd.SetWarnings True
DoCmd.Requery

 

[أحمد وجيه]

اضفت الحقل CHK لجدول رقم العهد وجعلته حقل اختيار

مشكور و جزاك الله كل خير 🤗

[AlwaZeeR]

بالتوفيق 👍