حفظ السجلات من خلال زر للحفظ وليس بشكل تلقائي

وعليكم السلام

1 . في النموذج عرف المتغير التالي في قسم التعريف العام :

Private SaveBtn As Boolean

2 . ضع الكود التالي في حدث عند النقر في زر الحفظ :

SaveBtn=true

On Error Resume Next

Docmd.Runcommand accmdsaverecord

SaveBtn=false

3 . في الحدث BeforeUpdate (قبل التحديث) للنموذج ضع الكود التالي :

If not SaveBtn Then

  Msgbox "هل ترغب بحفظ التغييرات التي أجريتها ؟",VbOkOnly+vbInformation

Cancel=True

End If

شكرا جزيلا لك أخي للمساعدة

بارك الله بك 

raedsl كتب:

 

raedsl كتب:

شكرا جزيلا لك أخي للمساعدة

بارك الله بك 

أهلا وسهلا بك أخي  .

سلمت يا غالي

أستاذ Love C++ 

أشكرك على الكود الأكثر من رائع ولكن لى استفسار بسيط فى حالة تطبيق هذا الكود على نموذج فرعى فكيف يكون وأين يتم وضع الكود

أرفق مثال للتطبيق عليه 

وأشكرك تفاعلك مقدما

زر حفظ فى نموذج فرعى.rar

أهلا بك اخ رامي

ممكن ترفق قاعدة بيانات بتنسيق 2003

وذلك من خلال " حفظ بإسم " ثم حفظ بتنسيق 2003

تفضل أخى الملف بتنسيق 2003

زر حفظ فى نموذج فرعى.rar

أخي العزيز رامي

بدلا من وضع زر للحفظ , سيتم سؤال المستخدم في كل مرة يجري فيها تعديل او اضافة سجل

عن رغبته بحفظ السجل أو الغاء العملية , المرفقات فيها التعديلات اللازمة   .

زر حفظ فى نموذج فرعى1.rar

أستاذ Love C++ 

أشكرك على الاستجابة والرد

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

ramynassif كتب:

أستاذ Love C++ 

أشكرك على الاستجابة والرد

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

ألم يعمل الملف المرفق بالشكل المطلوب ؟

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

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

طيب انت أردت وجود زر أمر لتأكيد الحفظ بدلا من الحفظ التلقائي

فما الموضوع ؟