الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

تظهر رسالة خطأ عند تنفيذ كود الحفظ!

مغلقمُجاب
بدأه sweety78 في 30 يونيو 2013 · 6 رد · 582 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

 

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

 

مع العلم بأنني استخدم أوفيس نسخة 2007، والامتدادت للملفات صيغة mdb و mde كما ذكرت اعلاه.

 

ارجو معرفة المشكلة مع الحل.

 

مع جزيل الشكر

 

تحيااااتي

post-145478-0-84749800-1372603812_thumb.

Save.rar

#2

اخي الفاضل

 

وعليكم السلام ورحمة الله وبركاته

 

بدلا من استخدام هذا الأمر  

 

DoCmd.RunCommand acCmdSave
 
 
استخدم هذا الأمر
 
DoCmd.Save
 
 
 
 
بالتوفيق

تم تعديل هذه المشاركة بواسطة zahrah في 30 يونيو 2013 في 19:33

#3

السلام عليكم

 

الاستاذة زهرة شكراً على المبادرة..

 

الكود لا يعمل عند الضغط على الزر مباشرة، ولتنفيذ الحفظ في الجدول، يتوجب عليّ أن انتقل لسجل اخر لتتم عملية الحفظ!!

 

تحيااااتي

#4

رفع

#5

السلام عليكم

هل يمكن استبدال هذا الكود بآخر او القيام بحيلة او اقتراح تؤدي الى المطلوب؟

 

أرجو المساعدة ان امكن  :)

#6 أفضل إجابة

اخي الفاضل

 

دعني اشرح لك الفرق بين القاعدة  MDB  مفتوحة المصدر  والقاعدة  MDE  مغلقة المصدر

 

بالنسبة للقاعدة  MDB  فأنت تستطيع استخدام الصيغة  DoCmd.RunCommand acCmdSave

 

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

 

 

 

اما بالنسبة للقاعدة  MDE  فوضع التصميم مغلق ولا تستطيع الدخول عليه ولهذا لا يمكن بأي حال من الأحوال

 

استخدام الصيغة  DoCmd.RunCommand acCmdSave  مع قاعدة البيانات MDE  ولهذا تظهر لك رسالة الخطأ .

 

 

حسنا كيف نخرج من هذه المشكلة ؟

 

للخروج من هذه المشكلة في قاعدة البيانات MDE  هو  بإستخدام الكود التالي

 

If Me.Dirty Then
Me.Dirty = False
DoCmd.RunCommand acCmdSaveRecord
End if
 
 
لاحظ اننا استخدمنا حفظ السجل DoCmd.RunCommand acCmdSaveRecord  في الكود 
 
الآن ضع الكود السابق كاملا في قاعدة البيانات  MDB  ثم قم بتحويل القاعدة الى  MDE  وانظر النتيجة
 
 
بالتوفيق

تم تعديل هذه المشاركة بواسطة zahrah في 2 يوليو 2013 في 00:55

#7

السلام عليكم

 

النتيجة 100%

 

شكراً للأستاذة زهرة

 

جزاك الله خير

 

تحيااااتي  :)

هذا الموضوع مغلق.

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…