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

[amms]

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

وجدت هذا الملف للاخ راماهان عن التعديل والتراجع في النموذج الفرعي

رمهان-التراجع_2.zip

 

 

وارغب في تنفيذ ماقام به ولكن في نموذج رئيسي أو مرتبط به نماذج مستمرة 

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

رمهان-التراجع.rar

 

قمت بالعديد من المحاولات ولم افلح

 

'  كود اعطاء رسالة صوتية مع الرسالة
Beep
' كود اعطاء رسالة قبل الحذف
If MsgBox("هل تريد الحــــفــظ", vbYesNo + vbMsgBoxRight, "تنبيه") = vbNo Then
If check1 = 0 Then Me.codid = ylist.Column(1, 0): Me.hospetalcod = ylist.Column(2, 0)
If check2 = 0 Then
DoCmd.SetWarnings False

Me.hospetalcod.SetFocus
DoCmd.RunCommand acCmdSelectAllRecords
DoCmd.SetWarnings False
    DoCmd.RunCommand (acCmdUndo)
DoCmd.SetWarnings True
For i = 0 To xlist.ListCount - 1
Me.codid = xlist.Column(1, i)
Me.hospetalcod = xlist.Column(2, i)
DoCmd.GoToRecord , , acNext
Next i
End If

    DoCmd.Close

Else

    DoCmd.Close
End If
    
 

 

[amms]

يرفع للاهمية

[amms]

اتمنى عليكم الاجابة يا اخوان