Private Sub Add_Transaction_Click()
On Error GoTo Err_Add_Transaction_Click
if (msgbox("Are you sure this data is accurate",vbokcancel))=vbok then
'save record here
docmd.gotorecord,,acnewrec
else
exit sub
end if
Exit_Add_Transaction_Click:
Exit Sub
Err_Add_Transaction_Click:
MsgBox Err.Description
Resume Exit_Add_Transaction_Click
End Sub
|