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