Nhờ các anh, chị giúp dùm:
Mình có đoạn code kiểm tra trùng lặp textbox Nghiepvu
Private Sub Nghiepvu_AfterUpdate()
If DCount("Nghiepvu", "tbl_Nghiepvu", "nghiepvu=" & [Nghiepvu] & "") = 1 Then
MsgBox "Nghiep vu nay da co, nhap lai", vbCritical, "Chú ý"
Nghiepvu.SetFocus
End If
End Sub
Khi nhập 1 nghiệp vụ trùng hộp thoại cũng thông báo đúng, nhưng lúc tắt hộp thoại con trỏ không nhảy vào textbox Nghiepvu mà nhảy sang textbox kế tiếp.
(Trường nghiepvu có kiểu number)
Nhờ mọi người giúp đỡ.Cảm ơn nhiều
Mình có đoạn code kiểm tra trùng lặp textbox Nghiepvu
Private Sub Nghiepvu_AfterUpdate()
If DCount("Nghiepvu", "tbl_Nghiepvu", "nghiepvu=" & [Nghiepvu] & "") = 1 Then
MsgBox "Nghiep vu nay da co, nhap lai", vbCritical, "Chú ý"
Nghiepvu.SetFocus
End If
End Sub
Khi nhập 1 nghiệp vụ trùng hộp thoại cũng thông báo đúng, nhưng lúc tắt hộp thoại con trỏ không nhảy vào textbox Nghiepvu mà nhảy sang textbox kế tiếp.
(Trường nghiepvu có kiểu number)
Nhờ mọi người giúp đỡ.Cảm ơn nhiều
