haquocquan > 15-09-11, 12:30 AM
(13-09-11, 06:25 PM)whatlove9 Đã viết: theo câu hỏi của mình thì:Ý của bạn là:
rec 1: ma kh A, so hd 1, ma nv 1 ---> ok
rec 2: ma kh B, so hd 1, ma nv 2 ---> vẫn ok
rec 3: ma kh c, so hd 1, ma nv 1 ---> lúc này sẽ báo lỗi "hd đã có"
whatlove9 > 15-09-11, 10:07 AM
whatlove9 > 15-09-11, 10:40 AM
(15-09-11, 12:30 AM)haquocquan Đã viết:(13-09-11, 06:25 PM)whatlove9 Đã viết: theo câu hỏi của mình thì:Ý của bạn là:
rec 1: ma kh A, so hd 1, ma nv 1 ---> ok
rec 2: ma kh B, so hd 1, ma nv 2 ---> vẫn ok
rec 3: ma kh c, so hd 1, ma nv 1 ---> lúc này sẽ báo lỗi "hd đã có"
NV 1: hd 1 ---------> hd n
NV 2: hd 1 ---------> hd n
NV 3, 4, ......: cũng tương tự như vậy.
Nếu NV đã dùng một hd rồi thì không được dùng lại.
Đúng như vậy không?
haquocquan > 15-09-11, 12:05 PM
whatlove9 > 15-09-11, 04:10 PM
(15-09-11, 12:05 PM)haquocquan Đã viết: Bạn bắt ở sự kiện Form BeforeUpdatevẫn không được mà bạn! mình test rồi, có gì bạn thử kiểm tra lại xem nhe.
Bạn tham khảo xe nhé
http://www.mediafire.com/?jzu4a4npbg4qom0
quanghoasla > 16-09-11, 03:08 PM
whatlove9 > 18-09-11, 01:08 PM
(16-09-11, 03:08 PM)quanghoasla Đã viết: mình có cách nè bạn.bạn dùng macro đi. cái này hay lắm.
dùng sự kiện before update.
macroname: validateid
condition:
dong1 :
DLookUp("[PurchaseOrderNumber]","[Purchase Orders]","[PurchaseOrderNumber] = Form.[PurchaseOrderNumber] ") Is Not Null
action: mesage:" ban dien noi dung vao day"
dòng 2: ....
action: canceleven
bạn tham khảo nhe, cái này là cấi của mình. mình chưa sửa được bạn vận dụng vào trường hơpk của bạn nhé.
whatlove9 > 18-09-11, 09:46 PM
nhan3591 > 27-09-11, 07:05 PM
sonlt1978 > 30-09-11, 05:19 PM
(14-09-11, 01:58 PM)domfootwear Đã viết: Bạn bắt lỗi 3022 là mã trùng khóa chính, nếu như dữ liệu mã nv bị trùng thì báo lỗi.Tuyệt cú mèo. Cám ơn bạn.
Nhưng mình thấy bạn đã set MaNV là khóa chính rồi, nếu nhập trùng thì nó hiện thông báo trùng thôi, còn muốn nó hiện tiếng Việt thì bắt lỗi như sau:
Mã PHP:Private Sub Form_Error(DataErr As Integer, Response As Integer)
If DataErr = 3022 Then
MsgBox "Ma khach hang: " & [ma kh] & " co roi ban oi !!!", vbCritical, "Stop"
[ma kh].SetFocus
Response = acDataErrContinue
End If
End Sub