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

[أبو يحيى الجبلاوي]

السلام عليكم ورحمة الله وبركاته 
لدي ماكرو على اكسس اريد تحويله الى كود لاستخدامه ضمن البرنامج 

 

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

 

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

شكرا للجميع تقبلوا مروري

 

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

[husamwahab]

عليكم السلام والرحمة

تفضل هذه المحاولة

Private Sub Form_BeforeUpdate(Cancel As Integer)
  If MsgBox("Do You Want To Save Data", 4, "Confirm Save") <> 6 Then
    DoCmd.RunCommand acCmdUndo
    DoCmd.CancelEvent
  End If
End Sub

 

[jjafferr]

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

 

هذه طريقتي لكود اخي السيد حسام 🙂

Private Sub Form_BeforeUpdate(Cancel As Integer)
  If MsgBox("Do You Want To Save Data", vbYesNo, "Confirm Save") <> vbYes Then
    me.Undo
    Cancel=true
  End If
End Sub

.

ولكن

وش لك في البحر واهواله و رزق الله على السيف 🙂

الاكسس يعمل لك هذا التغيير مباشرة من الزر الذي حوله دائرة حمراء :

.

جعفر

[أبو يحيى الجبلاوي]

مشكورين