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 :khoc:


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