hongle516 > 15-03-12, 06:41 PM
Private Sub GHI_Click()
If IsNull(MATHUOC) = True Then
MsgBox "MA THUOC KHONG DUOC DE TRONG, YEU CAU NHAP LAI"
MATHUOC.SetFocus
ElseIf DCount("MATHUOC", "THUOC", "MATHUOC='" & MATHUOC & "'") = 1 Then
MsgBox "MA THUOC BI TRUNG, YEU CAU NHAP LAI"
MATHUOC.SetFocus
Else
DoCmd.RunCommand acCmdSaveRecord
MsgBox "THEM THUOC THANH CONG"
sangmo True
End If
End Sub
Private Sub Command20_Click()
If MsgBox("BAN CO MUON XEM TRUOC BAN IN HOA DON KO?", vbYesNo + vbQuestion, "NHAT THANH") = vbYes Then
DoCmd.SetWarnings False
DoCmd.OpenReport "hoadon", acViewPreview
End If
End Sub