عدم الحفظ التلقائي بالفاتوره عند الخروج وفيها بيانات او لم توجد بيانات

[النجاشي]

السلام عليكم استاذتي الكرام اريد عدم الحفظ التلقائي بفاتوره الميبعات عند الخروج و يكون الحفظ عن طريق زر الحفظ 

شاكر اليكم احبتي

عدم الحفظ التلقائي.rar

تم تعديل أكتوبر 6, 2017 بواسطه ابو زاهر

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

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

تفضل اخي العزيز

Private Sub Form_BeforeUpdate(Cancel As Integer)
    On Error Resume Next
    DoCmd.SetWarnings False
    If MsgBox("  هل تريد حفظ التغييرات؟ ", vbYesNo, " تأكيد الحفظ") = vbNo Then
       Me.Undo
       DoCmd.CancelEvent
    End If
    DoCmd.SetWarnings True
End Sub

تحياتي

[النجاشي]

9 ساعات مضت, محمد ابوعبد الله said:

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

تفضل اخي العزيز

Private Sub Form_BeforeUpdate(Cancel As Integer)
    On Error Resume Next
    DoCmd.SetWarnings False
    If MsgBox("  هل تريد حفظ التغييرات؟ ", vbYesNo, " تأكيد الحفظ") = vbNo Then
       Me.Undo
       DoCmd.CancelEvent
    End If
    DoCmd.SetWarnings True
End Sub

تحياتي

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

استاذي عملت الكود بالنموذج الريئسي ولم يظبط معي انظر للقاعده استاذي الله يوفقك بالمشاركه الاولي بارك الله فيك

[النجاشي]

للرفع

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

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

تم اضافة كود للنموذج الرئيسي ويعمل تمام

وان اردت ان تضيفه للنموذج الفرعي فلا اشكال ايضاً

* ملاحظة : الكود يعمل على مستوى السجل فقط

تخياتي

 

عدم الحفظ التلقائي_2.rar

[النجاشي]

14 ساعات مضت, محمد ابوعبد الله said:

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

تم اضافة كود للنموذج الرئيسي ويعمل تمام

وان اردت ان تضيفه للنموذج الفرعي فلا اشكال ايضاً

* ملاحظة : الكود يعمل على مستوى السجل فقط

تخياتي

 

عدم الحفظ التلقائي_2.rar

السلام عليكم ورحمه الله استاذي ابو عبدالله المطلوب الحفظ عن طريق الزر  فقط واذا لم اضغط الزر وعملت اغلاق النموذج لا يحفظ  ظهور الرساله لا اريدها

هل من طريقه استاذي الله يبارك فيك وفقك الله لعمل الخير

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

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

اليك اخي الكريم ما تم تعديله

في جدول AfwtIar تم اضافة حقل Xsave

في نموذج frmSales وبالضغط على زر حفظ تم اضافة كود

Me.Xsave = -1

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

        DoCmd.SetWarnings False
     If Me.Xsave = -1 Then
     Else
        DoCmd.GoToControl "Rjmfatwra"
        DoCmd.SetWarnings False
        DoCmd.RunCommand acCmdDeleteRecord
        DoCmd.SetWarnings True
      End If
        DoCmd.SetWarnings True

عدم الحفظ التلقائي_2.rar

تحياتي

[النجاشي]

منذ ساعه, محمد ابوعبد الله said:

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

اليك اخي الكريم ما تم تعديله

في جدول AfwtIar تم اضافة حقل Xsave

في نموذج frmSales وبالضغط على زر حفظ تم اضافة كود

Me.Xsave = -1

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

        DoCmd.SetWarnings False
     If Me.Xsave = -1 Then
     Else
        DoCmd.GoToControl "Rjmfatwra"
        DoCmd.SetWarnings False
        DoCmd.RunCommand acCmdDeleteRecord
        DoCmd.SetWarnings True
      End If
        DoCmd.SetWarnings True

عدم الحفظ التلقائي_2.rar

تحياتي

السلام عليكم ورحمه الله وبركاته استاذي الكرام الله يبارك فيك ويزيدك علما 

اخي الكريم بقي ملاحظه وهي يحفظ بجدول(Hrakatsanf) 

 اما بالنسبه بجدول الفواتير\(AfwtIar) مضبوط العمليه الله يحفظك من كل مكروره تعبناك معنا لكن بميزان حسناتك استاذي شكرا اليك 

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

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

تفضل اخي الكريم الملف بعد التعديل

عدم الحفظ التلقائي_2.rar

وتحت امرك باذن الله

تحياتي

[النجاشي]

14 ساعات مضت, محمد ابوعبد الله said:

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

تفضل اخي الكريم الملف بعد التعديل

عدم الحفظ التلقائي_2.rar

وتحت امرك باذن الله

تحياتي

السلام عليكم ورحمه الله وبركاته صبحك الله بالخير استاذي ابو عبدالله مشكور اخي كذا تمام ربنا يبارك فيك ويزيدك علما 

اخوك ابو زاهر