tieutri912 > 01-06-12, 09:27 AM
Private Sub Command12_Click()
If MsgBox("Ban chac chan muon luu mau tin ?", vbQuestion + vbYesNo, "Save Record?") = vbNo Then
DoCmd.RunCommand acCmdUndo
Else
[color=#FFD700]DoCmd.GoToRecord , , acNewRec[/color]
DoCmd.OpenQuery "TONG_TIEN", acViewNormal, acEdit
End If
Noname > 01-06-12, 09:36 AM
tieutri912 > 01-06-12, 09:57 AM
Noname > 01-06-12, 06:20 PM
Private Sub Command12_Click()
If MsgBox("Ban chac chan muon luu mau tin ?", vbQuestion + vbYesNo, "Save Record?") = vbNo Then
DoCmd.RunCommand acCmdUndo
Else
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
DoCmd.OpenQuery "TONG_TIEN", acViewNormal, acEdit
End If