Hk bít bị sao mà code e viết cho nút Lưu bị lỗi hoài hjc bác nào biết cách khắc phục giúp e vs 

Mã:
Private Sub Command12_Click()
If MsgBox("Ban chac chan muon luu mau tin ?", vbQuestion + vbYesNo, "Save Record?") = vbNo Then
DoCmd.RunCommand acCmdUndo
Else
[COLOR="yellow"]DoCmd.GoToRecord , , acNewRec[/COLOR]
DoCmd.OpenQuery "TONG_TIEN", acViewNormal, acEdit
End If