**كود** ارجو تطبيقه على مثال....لفهمة؟؟

هو للتراجع وعدم الحفظ

Private Sub Form_BeforeInsert(Cancel As Integer) 

Dim Msg, Style, Title, Response, MyString 



If RecordsetClone.RecordCount > 0 Then 





Beep 

Msg = "Do you wish to add a new record ?" 

Style = vbYesNo + vbExclamation + vbDefaultButton1 

Title = "Confirm new record" 

Response = MsgBox(Msg, Style, Title) 

If Response = vbNo Then 

DoCmd.GoToRecord , , acPrevious 







End If 

End If 

End Sub