اريد كود للحفظ والتراجع

[sm44ms]

اريد كود للحفظ وفي نفس اللحظة 

 التراجع عن الحفظ

 

Private Sub VIP4_Click()
On Error GoTo Err_VIP4_Click
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
 DoCmd.OpenForm "ACSSES_ADDUSER"
Exit_VIP4_Click:
    Exit Sub
     
Err_VIP4_Click:

    Resume Exit_VIP4_Click
   
End Sub

 

اريد تعديل

تم تعديل مايو 27 بواسطه ابوخليل
تنسيق الكود

[ابوخليل]

Private Sub VIP4_Click()
On Error GoTo Err_VIP4_Click
 Beep
If MsgBox("هل تريد الحفظ ؟؟", _
	vbQuestion + vbYesNo, _
	"تنبيه") = vbYes Then  
 DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
 DoCmd.OpenForm "ACSSES_ADDUSER"
else
undo
DoCmd.CancelEvent
exit sub
end if
Exit_VIP4_Click:
    Exit Sub
Err_VIP4_Click:
    Resume Exit_VIP4_Click
End Sub
	

 

[sm44ms]

الف شكر الغالي سوف اجربة بكره لني مخلص الدوام واخبرك بالنتيجة

[sm44ms]

اريد كود للحفظ وفي نفس اللحظة 

 التراجع عن الحفظ

 

Private Sub VIP4_Click()
On Error GoTo Err_VIP4_Click
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
 DoCmd.OpenForm "ACSSES_ADDUSER"
Exit_VIP4_Click:
    Exit Sub
     
Err_VIP4_Click:

    Resume Exit_VIP4_Click
   
End Sub
 

اريد تعديل

[sm44ms]

الف الف شكر وتقدير لكم