السلام عليكم و رحمة الله و بركاته
لدي نموذج رئيسي و نموذج فرعي له و يوجد زر حفظ
و هو ياخد الكود الاتي
DoCmd.SetWarnings False
Dim strMsg As String, strTitle As String
Dim strMsgNo As String, strTitleNo As String
strMsg = "هــل تريـــد فعـــلاً اتمـــام عمــلية الحفـــظ"
strTitle = "حفـــظ"
If MsgBox(strMsg, vbQuestion + vbYesNo + vbDefaultButton1, strTitle) = vbNo Then
Me.Undo
Else
DoCmd.GoToRecord , "", acNewRec
End If
المشكلة عند الضغط على زر no في الرسالة لا يقوم بالتراجع بل يتم حفظ البيانات
اي انه في كلتا الحالتين يتم الحفظ
ارجو حل هذه المشكلة