تصحيح الكود

[mom20088]

هاشرح الكود:

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

الكود بيقول عند الضغط على الزر يعطينى ثلاث خيارات نعم ولا وتجاهل 

نعم يقوم بحفظ السجل ولا تقوم بحذف السجل واخيرا التجاهل يقوم بغلق النموذج

حبيت اعدل فيه بحيث انه لما اقول نعم للحفظ يقوم بالحفظ ثم يسالنى مرة اخرى ان كنت اريد عمل سجل جديد او خروج أو الرجوع للشاشة الرئيسية (main) 

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

واخيرا عندما اقول له تجاهل الامر اللى هى بالانجليزى Cancel  يبقى الوضع على ما هو عليه ولايغير شئ

رجاء تعديل الكود الى ما اريد وجزاكم الله خيرا

Private Sub Command341_Click()
On Error Resume Next
Beep
Select Case MsgBox("do you want to save record ?" & vbCrLf & _
"", vbInformation + vbMsgBoxleft + vbYesNoCancel, "Attention!")
Case vbYes
MsgBox "Record is saved!"
DoCmd.GoToRecord , , acNewRec
Me.Production_Order.SetFocus

Case vbNo
DoCmd.OpenQuery "Query3"
MsgBox "Record Will be Deleted! ", vbOKOnly, "Attention!"
DoCmd.GoToRecord , , acNewRec
Me.Production_Order.SetFocus

Case Else
MsgBox "It was Ignore!"
DoCmd.RunCommand acCmdCloseDatabase
Me.Production_Order.SetFocus
End Select
End Sub

[الساحة البريدية]

ارفق مثال علشان نشوف لو نقدر نعدل عليه