منع الحفظ التلقائي للسجلات بواسطة ( التاب , الانتر , المسطرة .. الخ )

[SEMO.Pa3x]

السلام عليكم, كثيرا ما ازعجتني مُشكلة اضافة السجل بواسطة التاب

لذلك كنت دائماً اسلك طريق الـ VBA في اضافة وتعديل السجلات برمجياً.

لكن الامر طويل وشاق، قمت بالتفكير في طريق لمنع الحفظ التلقائي بالتاب او الانتر..

وجعلت الحفظ يكون عن طريق الزر، الطريقة ليست اختراع ولا شيء, لكن احببت ان اشارككم بما توصلت اليه.

تحياتي, حسنين

 

 

disable_auto_save.accdb

تم تعديل نوفمبر 15, 2019 بواسطه SEMO.Pa3x

[محمد أبوعبدالله]

فكرة جميلة استاذنا الفاضل

بارك الله فيك

تحياتي

[jjafferr]

هممم

 

اذا كتبت في حقل الاسم ، يحفظ البيانات ، اذا:

1. اغلقت النموذج ،

2. انتقلت الى السجل التالي من ازرار التنقل في اسفل النموذج 🙂

 

هل هذه الطرق محمية كذلك؟

 

جعفر

 

[kaser906]

يعطيك العافية استاذ @SEMO.Pa3x

وهذه الطريقة تؤدي نفس الغرض مع أمكانية التراجع

 

[SEMO.Pa3x]

 

اهلا بالمعلم.

شكرا لملاحظتك الجميلة، تم تصحيح القاعدة.. اتمنى ان تجرب الان وتخبرني النتيجة.

[jjafferr]

شكرا حسنين 🙂

 

الآن اشتغل تمام 🙂

 

جعفر

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

ممتاز اخي SEMO.Pa3x

بارك الله فيك وجعله في ميزان حسناتك

[ابوآمنة]

رائع أخي @SEMO.Pa3x

إضافة جميلة ، وبارك الله فيك ونفع الله بكم . 

[Ali Mohamed Ali]

بارك الله فيك وزادك الله من فضله

[أبوبسمله]

جزاكم الله خيرا اساتذتنا الكرام وزادكم الله من فضله وعلمه

طبتم واهتديتم

تم تعديل نوفمبر 17, 2019 بواسطه أحمد الفلاحجى

[نبراس كاظم]

استاذ حسين مشكور على الفكرة الروعة لكين في شغلة 

لو كان عندي نموذج ويحتوي على نموذج فرعي كيف حتكون الفكرة وكمان النموذج الفرعي يحتوي على كميات تحديث تعمل بعد تحديث الكمية 

[رمهان]

في ١٥‏/١١‏/٢٠١٩ at 09:30, SEMO.Pa3x said:

السلام عليكم, كثيرا ما ازعجتني مُشكلة اضافة السجل بواسطة التاب

لذلك كنت دائماً اسلك طريق الـ VBA في اضافة وتعديل السجلات برمجياً.

لكن الامر طويل وشاق، قمت بالتفكير في طريق لمنع الحفظ التلقائي بالتاب او الانتر..

وجعلت الحفظ يكون عن طريق الزر، الطريقة ليست اختراع ولا شيء, لكن احببت ان اشارككم بما توصلت اليه.

تحياتي, حسنين

 

 

disable_auto_save.accdb 832 kB · 70 تنزيلات

استاذ حسنين 

هل بيمشي الحال بالكود التالي ؟ مع جعل خاصية تاب ستوب لزر الحفظ=لا

Private Sub Form_BeforeUpdate(Cancel As Integer)
Cancel = Me.ActiveControl.Name <> "DoSave"
End Sub

تحياتي

[SEMO.Pa3x]

في ٢٦‏/١١‏/٢٠١٩ at 02:36, رمهان said:

استاذ حسنين 

هل بيمشي الحال بالكود التالي ؟ مع جعل خاصية تاب ستوب لزر الحفظ=لا

Private Sub Form_BeforeUpdate(Cancel As Integer)
Cancel = Me.ActiveControl.Name <> "DoSave"
End Sub

تحياتي

 

احسنت استاذ رمهان، وعذراً لتأخري عليك في الرد، كودك شغال 100% ومبسط جدا.