undo در ورود داده

[amirali111]

با سلام؛
فرمی که در آن یک فیلد auto number وجود داره ؛ و در خاصیت before update فرم هم کد زیر جهت انتخاب در ذخیره یا عدم ذخیره آمده است؛ وقتی کاربر از ذخیره کردن منصرف می شود و no را میزند اطلاعات فرم undo میشود ولی شماره انداز undo نشده و در ورود بعدی یک شماره جلوتر می اندازد ! در اینجا لازم است که بعد از ردن no اطلاعات table لینک شده به فرم نیز undo شود . لطفا راهنمائی نمائید...



On Error GoTo Err_BeforeUpdate
If Me.Dirty Then

If MsgBox(" آيا قصد ذخيره اطلاعات وارده را داريد؟ ", vbMsgBoxRight + vbYesNo + _
vbQuestion, "توجه") = vbNo Then
Me.Undo
tables!sa0.Undo
End If
End If
Exit_BeforeUpdate:
Exit Sub
Err_BeforeUpdate:
MsgBox Err.Number & " " & Err.Description
Resume Exit_BeforeUpdate