ngockinh > 04-07-12, 02:16 PM
Xuân Thanh > 04-07-12, 02:53 PM
ngockinh > 07-07-12, 01:34 PM
(04-07-12, 02:53 PM)Xuân Thanh Đã viết: Tham khảo ở đây http://thuthuataccess.com/forum/thread-2959.html
Lưu ý tìm kiếm trước khi hỏi
Thân mến
Xuân Thanh > 07-07-12, 02:04 PM
(07-07-12, 01:34 PM)ngockinh Đã viết: Đã vào tham khảo nhưng câu trả lời không giúp thêm được điều gì. Ở bài tập không bắt phải tạo một đoạn code, chỉ cần sử dụng macro bằng cách tạo những action và đặt các điều kiện cho arguments thôi. Có ai biết xin vui lòng chỉ giáo. Chân thành cám ơn.
Ngốc Kinh
domfootwear > 07-07-12, 02:06 PM
(07-07-12, 01:34 PM)ngockinh Đã viết:(04-07-12, 02:53 PM)Xuân Thanh Đã viết: Tham khảo ở đây http://thuthuataccess.com/forum/thread-2959.html
Lưu ý tìm kiếm trước khi hỏi
Thân mến
Đã vào tham khảo nhưng câu trả lời không giúp thêm được điều gì. Ở bài tập không bắt phải tạo một đoạn code, chỉ cần sử dụng macro bằng cách tạo những action và đặt các điều kiện cho arguments thôi. Có ai biết xin vui lòng chỉ giáo. Chân thành cám ơn.
Ngốc Kinh
Private Sub Form_Error(DataErr As Integer, Response As Integer)
If DataErr = 3022 Then
MsgBox "Ma nhan vien: " & UCase([MaNV]) & " da co roi, vui long nhap lai", vbCritical, "Stop"
MaNV.SetFocus
Response = acDataErrContinue
End If
End Sub
ngockinh > 07-07-12, 02:51 PM
(07-07-12, 02:04 PM)Xuân Thanh Đã viết:Action 1 ok rồi nhưng khi enter thì con trỏ lại nhảy sang ô kế tiếp chứ không nằm trong ô Mã CN để ta nhập lại một mã mới không trùng với mã cũ. Xin cám ơn bạn Xuân Thanh rất nhiều. Cố giúp cho mình thêm vài chiêu nữa nhé.(07-07-12, 01:34 PM)ngockinh Đã viết: Đã vào tham khảo nhưng câu trả lời không giúp thêm được điều gì. Ở bài tập không bắt phải tạo một đoạn code, chỉ cần sử dụng macro bằng cách tạo những action và đặt các điều kiện cho arguments thôi. Có ai biết xin vui lòng chỉ giáo. Chân thành cám ơn.
Ngốc Kinh
Nếu thích dùng macro thì đây
1/ Cho hiện cột Condition. Macro được ghi trên hai dòng
2/ Dong 1 : Trong cọt Condition nhập Not IsNull(DLookUp("[MaCN]","ChiNhanh","[MaCN]=[MACN]"))
Trong cột Action chọn MsgBox. Phía dưới ghi câu MsgBox tùy thích
3/ Dòng 2 : Trong cột Condition nhập ... (dấu 3 chấm)
Trong cột Action chọn CancelEvent
Lưu lại và gọi khi cần thiết
Thân
Xuân Thanh > 07-07-12, 02:59 PM
ngockinh > 07-07-12, 03:07 PM
Xuân Thanh > 07-07-12, 03:17 PM
ngockinh > 07-07-12, 03:25 PM