كود التأكد من الحفظ قبل اغلاق النموذج

[f16]

جمعة مباركة عليكم اعضاء المنتدى الرائع 

الاخوة الكرام لدي مثال مرفق فيه نموذج form1 في النموذج حقل واحد اسمه id1  اريد كود عند اغلاق النموذج من علامة الاكس ان يتأكد اذا كان الحقل id1 يساوي 1 ان يقوم بعمل رسالة تخبر المستخدم "هل تريد الحفظ ، نعم ، لا " اذا كان الاجابة ( نعم )يقوم بالبقاء في النموذج واذا كانت الاجابة (لا) يقوم بأغلاق النموذج . 

ولكم جزيل الشكر والاحترام .

مثال اوفيسنا كود عند اغلاق النموذج.accdb

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

السلام عليكم

تفضل اخي الكريم

Private Sub Form_BeforeUpdate(Cancel As Integer)

    DoCmd.SetWarnings False
    If id1 = 1 Then
        If MsgBox("  هل تريد حفظ التغييرات؟ ", vbYesNo, " تأكيد الحفظ") = vbNo Then
         Me.Undo
         Exit Sub
         DoCmd.Close acForm, "form1"
        End If
    End If
    DoCmd.SetWarnings True

End Sub

ولكن الرسالة الآن لن تظهر لن الحقل Id1 غير منضم

اربط النموذج والحقل بجدول وسترى النتيجة ان شاء الله

مثال اوفيسنا كود عند اغلاق النموذج.rar

تحياتي

[f16]

اسعد الله صباحك اخي ابو عبدالله 

وشكراً جزيل على ردك الكريم

قمت بعمل الأمر كما قلت ولاكن لم تنجح العملية لدي 

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

جرب الكود في حدث عند الاغلاق

Private Sub Form_Close()
    DoCmd.SetWarnings False
    If id1 = 1 Then
        If MsgBox("  هل تريد حفظ التغييرات؟ ", vbYesNo, " تأكيد الحفظ") = vbNo Then
         Me.Undo
         Exit Sub
         DoCmd.Close acForm, "form1"
        End If
    End If
    DoCmd.SetWarnings True
End Sub

مثال اوفيسنا كود عند اغلاق النموذج.rar

تحياتي

[f16]

ا/ محمد جزاك الله خيراً على ردك ودعمك 

لا اريده ان يقوم بحفظ بيانات . انا ريد فقط ان لا يقوم باغلاق النموذج عند ما يكون الحقل id1 يساوي رقم مثلاً رقم 1 . اريده فقط ان يظهر الرسالة :  نعم - لا  وعند الضغط على زرار  (نعم) اريده ان يبقى في النموذج وعدم اغلاقة وعند الضغط على زرار (لا) اريده ان يقفل النموذج . هذا كل ما في الأمر . بارك الله فيك وجعل ما تقدمة من علم ثواباً عند الله 

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

في ٢٩‏/١‏/٢٠٢١ at 09:11, f16 said:

اريد كود عند اغلاق النموذج من علامة الاكس ان يتأكد اذا كان الحقل id1 يساوي 1

 

3 ساعات مضت, f16 said:

انا ريد فقط ان لا يقوم باغلاق النموذج عند ما يكون الحقل id1 يساوي رقم مثلاً رقم 1

تفضل اخي الكريم هذا هو الكود المطلوب

    If id1 = 1 Then
        If MsgBox("  åá ÊÑíÏ ÇÛáÇÞ ÇáäãæÐÌ ", vbYesNo, " ÊÃßíÏ ÇáÍÝÙ") = vbYes Then
         DoCmd.Close acForm, "form1"
        End If
    End If

والخلاف اين يتم وضع الكود ( في اي حدث )

يمكن اضافته في حدث عند الاغلاق للننموذج

Private Sub Form_Close()

او في حدث قبل التحديث

Private Sub Form_BeforeUpdate(Cancel As Integer)

او في حدث عند الخروج من مربع النص

Private Sub id1_Exit(Cancel As Integer)

او في حدث عند التغيير لمربع النص

Private Sub id1_Change()

هذا الكود يصلح لهذه الاحداث وغيرها

تحياتي

[f16]

بارك الله لك اخي ابو عبدالله ، ولاكن الكود لم ينجح في المطلوب

 

[f16]

لم يعد لدي حل اخر الا أن اقوم بعمل تعطيل لزرار الاغلاق في النموذج واقوم بعد ذلك بعمل زرار من تصميمي يقوم بعمل الرسالة المطلوبة 

 

[biskra]

لم تنجح الأكواد ربما بسبب أن إجراء Undo يؤدي المطلوب فقط إذا كان عنصر التحكم مرتبطًا بحقل في النموذج مصدر السجلات، لذلك جرب ربط حقل النموج مع جدول و جرب،

تم تعديل يناير 31, 2021 بواسطه biskra

[ابو جودي]

في ٢٩‏/١‏/٢٠٢١ at 09:11, f16 said:

جمعة مباركة عليكم اعضاء المنتدى الرائع 

الاخوة الكرام لدي مثال مرفق فيه نموذج form1 في النموذج حقل واحد اسمه id1  اريد كود عند اغلاق النموذج من علامة الاكس ان يتأكد اذا كان الحقل id1 يساوي 1 ان يقوم بعمل رسالة تخبر المستخدم "هل تريد الحفظ ، نعم ، لا " اذا كان الاجابة ( نعم )يقوم بالبقاء في النموذج واذا كانت الاجابة (لا) يقوم بأغلاق النموذج . 

ولكم جزيل الشكر والاحترام .

مثال اوفيسنا كود عند اغلاق النموذج.accdb 356 kB · 10 downloads

فكرة بسرعة يمكن تعجبك

طبعا فى حجات لو مش عاجباك انساهاه 

حل حضرتك انك تضع الكود فى الحدث عتد عدم التحميل 

 

مثال اوفيسنا كود عند اغلاق النموذج.mdb

[أبو عبدالله الحلوانى]

جرب هذا ووافنا بالنتائج 

وبدون استخدام مصدر بيانات للفورم

 

مثال اوفيسنا كود عند اغلاق النموذج.rar

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

لم ألحظ جوابك سوي الآن.

[ابو جودي]

9 دقائق مضت, أبو عبدالله الحلوانى said:

جرب هذا ووافنا بالنتائج 

وبدون استخدام مصدر بيانات للفورم

 

مثال اوفيسنا كود عند اغلاق النموذج.rar 28.67 kB · 1 download

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

لم ألحظ جوابك سوي الآن.

ههههههههههههههههه كرونا السبب معلش

9 دقائق مضت, أبو عبدالله الحلوانى said:

وبدون استخدام مصدر بيانات

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

تم تعديل يناير 31, 2021 بواسطه ابا جودى

[أبو عبدالله الحلوانى]

4 دقائق مضت, ابا جودى said:

ههههههههههههههههه كرونا السبب معلش

شفاك الله وعافاك من كل داء وصرف عنك وعن المسلمين كل مكروه وشر 

[f16]

مشكور اخي ابو عبدالله على هذا الكود الرائع . فعلاً هذا هو المطلوب 

والشكر موصول الى أ/ العزيز ابا جودي على هذا الحل ايضاً ولاكن كود أ/ ابوعبدالله اسهل بكثير 

 

مشكورين ادامكم الله لمساعدة من هم بحاجه الى علمكم .

 

[ابو جودي]

4 دقائق مضت, f16 said:

مشكور اخي ابو عبدالله على هذا الكود الرائع . فعلاً هذا هو المطلوب 

والشكر موصول الى أ/ العزيز ابا جودي على هذا الحل ايضاً ولاكن كود أ/ ابوعبدالله اسهل بكثير 

 

مشكورين ادامكم الله لمساعدة من هم بحاجه الى علمكم .

 

لا لا لا لا لا لا لا 🥵

هو غش منى الحل ماليش دعوة 😭

ههههههههههه بس انا غشيت منه فكرة الرسائل اللى ارفقتها ومش عجباك 

يعنى الموضوع كله راجع الفضل فيه بعد رب العباد سبحانه الى استاذى الجليل @أبو عبدالله الحلوانى 

ومن قبله استاذنا الجليل ومعلمنا القدير الأستاذ @jjafferr 

[f16]

الله يسعدكم جميعاً