Con chào các cô các bác, các chú ạ
Còn là thành viên mới, mong mọi người giúp đỡ ạ
Con có tạo 1 table tbl_HangHoa gồm 2 trường: maHH (khoác chính), TenHH, 
Con có tạo 1 form có nguồn từ table này,
khi con nhập vào textbox maHH thì nếu trùng khóa chính sẽ 1 thông báo của access
Nhờ mọi người chỉ giúp con cách đổi thông báo này thành 
           msgbox "trùng mã khách hàng, vui lòng nhập lại"

Con xin cảm ơn

Private Sub Form_Error(DataErr As Integer, Response As Integer)
   Response = acDataErrContinue
   Select Case DataErr
   Case 3022
       MsgBox "trùng mã khách hàng, vui lòng nhập lại", vbOKOnly, "CHÚ Ý!"
   End Select
End Sub

(16-10-20, 11:17 PM)tranthanhan1962 Đã viết: Private Sub Form_Error(DataErr As Integer, Response As Integer)
   Response = acDataErrContinue
   Select Case DataErr
   Case 3022
       MsgBox "trùng mã khách hàng, vui lòng nhập lại", vbOKOnly, "CHÚ Ý!"
   End Select
End Sub

Chú ơi, con áp dụng trên form Bound thì chạy rất tốt,
Giờ con sử dụng form Unbound và dùng lệnh dưới để thêm record
rs.addnew
   rs!maHH=txtmahh
   rs!tenHH=txttenHH
rs.update

thì nó vẫn hiện thông báo trùng khóa chính của access ạ, 
chú có cách nào chỉ con với
Con xin cảm ơn

cháu đã tìm ra code báo trùng dữ liệu ở form unbound, có gì sai nhờ  mọi người chỉ giúp,
cháu xin cảm ơn

Private Sub Command4_Click()
Dim rs As dao.Recordset
Set rs = CurrentDb.OpenRecordset("SELECT * FROM tableB ")
On Error GoTo cmdLuu_Err
        rs.AddNew
            rs!mahh = Me.txtMaHH
            rs!Ten = Me.txtTenHH            
        rs.Update
rs.Close
Exit Sub

cmdLuu_Err:
  Select Case Err.Number
  Case 3022
          MsgBox "trùng mã HH", vbOKOnly, "CHÚ Ý!"
  End Select  
End Sub

Thay vì bẫy lỗi 3022, bạn dùng Dcount hoặc DLookup mã trong Table trước khi OpenRecodset cũng là một cách.
Nếu dùng OpenRecordset thì bạn dùng luôn Rs.FindFirst + Rs.Nomatch để tìm mã trùng.

(19-10-20, 10:46 AM)ongke0711 Đã viết: Thay vì bẫy lỗi 3022, bạn dùng Dcount hoặc DLookup mã trong Table trước khi OpenRecodset cũng là một cách.
Nếu dùng OpenRecordset thì bạn dùng luôn Rs.FindFirst + Rs.Nomatch để tìm mã trùng.

Cháu cũng nghĩ tới phương án ấy nhưng lại nghỉ giả sử có 2 người cùng nhập 1 lúc thì hàm dcount chạy cùng 1 lúc sẽ báo là mã chưa tồn tại trước đó, do vậy cả 2 ng đều có thể nhập cùng 1 mã, cùng 1 lúc
Nên cháu bám vào khoa chính của access, và bắt sự kiện đó, vì cháu nghĩ nếu kể cả 2 ng ấn nhập cùng 1 lúc (chính xác từng mili giây)thì access vẫn nhập 1 ng trước, ng sau, và nó sẽ báo trùng cho người nhập sau ạ

(19-10-20, 11:16 AM)QAT115 Đã viết:

(19-10-20, 10:46 AM)ongke0711 Đã viết: Thay vì bẫy lỗi 3022, bạn dùng Dcount hoặc DLookup mã trong Table trước khi OpenRecodset cũng là một cách.
Nếu dùng OpenRecordset thì bạn dùng luôn Rs.FindFirst + Rs.Nomatch để tìm mã trùng.

Cháu cũng nghĩ tới phương án ấy nhưng lại nghỉ giả sử có 2 người cùng nhập 1 lúc thì hàm dcount chạy cùng 1 lúc sẽ báo là mã chưa tồn tại trước đó, do vậy cả 2 ng đều có thể nhập cùng 1 mã, cùng 1 lúc
Nên cháu bám vào khoa chính của access, và bắt sự kiện đó, vì cháu nghĩ nếu kể cả 2 ng ấn nhập cùng 1 lúc (chính xác từng mili giây)thì access vẫn nhập 1 ng trước, ng sau, và nó sẽ báo trùng cho người nhập sau ạ

Cái vụ nhập liệu nhiều người dùng trùng khoá này cũng đau đầu chứ không chơi.
Cách của bạn cũng là một trong các giải pháp khá hữu hiêu nhưng khi đã tính tới mili giây thì bạn phải tính thời gian từ giai đoạn OpenRecordset chứ không phải thời gian từ rs.Update vì khi OpenRecorsset là nó lưu ảnh của Recordset thời điểm đó lên bộ nhớ, những gì phát sinh đối với Recordset sau đó nó cũng chưa kịp cập nhật. Một vấn đề nữa là sau khi báo trùng thì bạn xử lý mã như thế nào?
Một hướng suy nghĩ khác là dùng Record Lock. Nhưng đối với Record lock cũng có những mặt hạn chế là: đối với EDIT là bạn khoá các record đang sửa thì OK, không vấn đề gì nhưng đối với thêm mới (AddNew) record thì bạn không thể Lock nguyên cái Table không cho người khác thao tác gì trên Table này là không hay. (Có thể thời gian Lock tính bằng mili giây nhưng cũng là điểm không hay)
Từ hướng Record lock này ta sẽ bàn tới việc tạo mã không trùng. Sau khi tạo mã PPK sẽ Lock cái mã đó lại không cho người khác sửa dụng, sau khi user 1 Update xong, sẽ giải phóng để tạo cái mã PK mới để user thứ 2 lấy. Mã không trùng này sẽ lưu vào Table tạm để mỗi khi User thêm mới dữ liệu sẽ vào đó lấy mã PK được cấp phát. Về cách làm này tôi đã diễn giải cách làm ở một bài viết khác rồi nhưng quên mất cái tiêu đề của nó. Để tìm lại xem.



 

Kinh nghiệm để sử lý mạng nhiều User cùng nhập lên 1 table có dùng autonumnber làm khóa chính. Không nên dùng autonumnber trực tiếp làm khóa chính mà Khóa chính = Mã User + autonumber

[/quote]

Cái vụ nhập liệu nhiều người dùng trùng khoá này cũng đau đầu chứ không chơi.
Cách của bạn cũng là một trong các giải pháp khá hữu hiêu nhưng khi đã tính tới mili giây thì bạn phải tính thời gian từ giai đoạn OpenRecordset chứ không phải thời gian từ rs.Update vì khi OpenRecorsset là nó lưu ảnh của Recordset thời điểm đó lên bộ nhớ, những gì phát sinh đối với Recordset sau đó nó cũng chưa kịp cập nhật. 
.... 
[/quote]
chỗ này cháu chưa hiểu lắm, chú nói rõ hơn được  không ạ,
Cháu nghĩ cái tính năng cảnh báo trùng nó ở sẵn trong table, nên giả sử khi chạy openrecordset, và sau đó 1 s thì table này được cập nhật MaHH mới thì dữ liệu ở  recordset load lúc trước là cũ,
tuy nhiên khi cháu nhập liệu vào table bằng rs.update thì bản thân tính năng báo trùng của table vẫn thông báo, vì nó là nơi dữ liệu gốc (cả mới + cũ)
Đó là kiểu suy luận của cháu không biết đúng không ạ
Còn phương án xử lý của cháu thì do còn ít hiểu biết nên là tạm thời sẽ thêm câu lệnh MahH=MaHH+1 rồi tiếp tục resume addnew ạ

(19-10-20, 11:16 AM)QAT115 Đã viết: Cháu cũng nghĩ tới phương án ấy nhưng lại nghỉ giả sử có 2 người cùng nhập 1 lúc thì hàm dcount chạy cùng 1 lúc sẽ báo là mã chưa tồn tại trước đó, do vậy cả 2 ng đều có thể nhập cùng 1 mã, cùng 1 lúc
Nên cháu bám vào khoa chính của access, và bắt sự kiện đó, vì cháu nghĩ nếu kể cả 2 ng ấn nhập cùng 1 lúc (chính xác từng mili giây)thì access vẫn nhập 1 ng trước, ng sau, và nó sẽ báo trùng cho người nhập sau ạ

Vì bạn nói tính đến mili giây nên tôi mới phân tích ra cái khoản thời gian mà Access lấy Recordset cho bạn thấy thôi.
Cách bạn làm là một cách hay chứ không phải là sai. Thủ thuật xử lý tương tự như cái cách tôi đề cập ở trên tức là thấy sai, thấy đụng là quay lại, làm lại từ đầu (tạo mã khác) đến khi lưu được dữ liệu thì thôi.