https://drive.google.com/open?id=0B5rfqy...lBNS2NiUnM
Các bác ơi, em đang làm đến cái form "Frm_PHIEU" này thì bị vướng ở chỗ này. Em để event before update để check 3 textbox "txtNVKDNguoiGiao" "txtThuKho" và "txtKeToanTruong" với mục đích kiểm tra xem mã nhân viên điền trong các textbox này có nằm trong các mã nhân viên đã được đăng ký trong "Tbl_0_NhanVien" hay không.
Nếu không nằm trong danh sách thì báo lỗi và set focus trở lại, xóa trắng text box đó thành Null.
Cụ thể là thế này ạ.
Private Sub txtThuKho_BeforeUpdate(Cancel As Integer)
If DCount("[MaNV]", "Tbl_0_NhanVien", "[MaNV]=txtThuKho") = 0 Then
a = MsgBox("Ma nhan vien nay chua duoc dang ky!", vbOKOnly, "THONG BAO")
If a = 1 Then
Me.txtThuKho = Null
Me.txtThuKho.SetFocus
End If
End If
End Sub
Nhưng khi em chạy thử, cố tình đánh sai mã nhân viên thì nó báo lỗi code ở đoạn
Me.txtThuKho = Null
Me.txtThuKho.SetFocus
Em không biết mình sai ở đâu, các bác xem giúp em với ạ.