phamlong24 > 05-04-16, 12:21 PM
paulsteigel > 05-04-16, 05:04 PM
(05-04-16, 12:21 PM)phamlong24 Đã viết: ...Bạn thêm thủ tục sau vào mã nguồn của form Chi tiết vi phạm nhé...
Private Sub Form_BeforeInsert(Cancel As Integer)
Dim tWeek As Long, tClass As String
tWeek = Nz([Forms]![NHAP-VI-PHAM]![cbt], 0)
tClass = Nz([Forms]![NHAP-VI-PHAM]![cblop], "")
If tWeek > 0 And tClass <> "" Then
tuan = [Forms]![NHAP-VI-PHAM]![cbt]
lop = [Forms]![NHAP-VI-PHAM]![cblop]
Else
' huy khong cho nhap vi lop va tuan bi trong
MsgBox "Hien ban dang de trong Lop hoac Tuan, khong them so lieu duoc...", vbInformation
Cancel = True
End If
End Sub