Hi. Try to use this codes! Hope it will help you...
Private Sub cmdsave_Click()
On Error Resume Next
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Me.AllowEdits = False
End Sub
Private Sub CmdEdit_Click()
On Error Resume Next
Me.AllowEdits = True...