... CInt(Val(Trim(Mid(ngay, 4, 2)))) Case 1, 3, 5, 7, 8, 10 , 12 If KTNgay < 1 Or KTNgay > 31 Then MsgBox " Thang " & Mid(ngay, 4, 2) & " co 31 ngay", vbOKOnly + vbExclamation, ... & Trim(txtMaP) & "'" rs1.Open str, cn, adOpenKeyset, adLockOptimistic, adCmdText If txtMaP = rs1!MaP Then rs1.Update rs1.Close str = "select*from Dangky where ... < 1 Or KTNgay > 30 Then MsgBox "Ngay khong hop le! thang " & (Mid(ngay, 4, 2)) & _ Đồ án tốt nghiệp Gvhd: Nguyễn Kim Anh Đỗ Thị Liên - Lớp TH40 Trang 59 II. Sơ đồ...