• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Lỗi Write Conflict khi sửa danh mục

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Forms
  • [Help] Lỗi Write Conflict khi sửa danh mục
• Lỗi Write Conflict khi sửa danh mục

• Lỗi Write Conflict khi sửa danh mục

  dotrung > 29-03-20, 02:21 PM

  Chào mọi người, dotrung đã thiết kế form danh mục khách hàng, nhưng phần sửa danh mục lại bị lỗi WriteConflict (dạng Bound Form),  rất mong các cao thủ chỉ giúp, thanks all cả nhà !
  P/S: dotrung dùng update quyery để cập nhật mới danh mục.
  file đính kèm : http://www.mediafire.com/file/c80rcgy05g...accdb/file

• RE: Lỗi Write Conflict khi sửa danh mục

  ongke0711 > 30-03-20, 08:16 AM

  Lỗi là do: dùng câu lệnh Update SQL và Bound form cho cùng 1 recoord. Khi form của bạn load lên thì nó gắn (bound) với record muốn sửa. Sau đó bạn chạy query Update bên ngoài cho record đó thì vì là Bound Form nên khi đóng nó sẽ đối chiếu với record gốc để lưu cái mới xuống và phát hiện dữ liệu record này đã bị thay đổi không giống record gốc ban đầu Form tải lên nên nó báo lỗi.
  
  Cách sửa như sau:
  - Thay đổi code nút Lưu cũ:
  
  

  Mã PHP:

  Else
        If suadm = False Or IsNull(suadm) Then
            save = True
            DoCmd.RunCommand acCmdSaveRecord
        Else
            DoCmd.SetWarnings False
            DoCmd.OpenQuery "qry_luudmkh"
        End If
        msgBoxOK DLookup("[NDUNG1]", "tblTHONGBAO", "[SOTB] = 10"), vbQuestion 


  
  ==>
  
  

  Mã PHP:

  Else
       save = True
       suadm = False    '<-- them dong nay'
       DoCmd.RunCommand acCmdSaveRecord
       msgBoxOK DLookup("[NDUNG1]", "tblTHONGBAO", "[SOTB] = 10"), vbQuestion 


  
  
  
  - Đổi code nút [Đóng]:
  
  

  Mã PHP:

  On Error GoTo Err_dong_Click
    DoCmd.SetWarnings False
    DoCmd.RunSQL "DELETE tblDanhmuckhachhang.save FROM tblDanhmuckhachhang WHERE (((tblDanhmuckhachhang.save)=False));"
    If suadm = True Then
        'DoCmd.OpenQuery "qry_phuchoidanhmuckhachhang"'
        Forms![Frmdanhmuckhachhang]![FrmDanhmuckhachhang_subform].Form.Requery
        DoCmd.RunSQL "INSERT INTO tblDanhmuckhachhang SELECT temp_dmkh.* FROM temp_dmkh;"
        DoCmd.RunSQL "DELETE temp_dmkh.* FROM temp_dmkh;"
    End If
    Forms![Frmdanhmuckhachhang]![FrmDanhmuckhachhang_subform].Form.Requery
    DoCmd.Close 


  
  
  ==>
  
  

  Mã PHP:

  On Error GoTo Err_dong_Click
    DoCmd.SetWarnings False
    If suadm = True Then
        DoCmd.RunSQL "DELETE tblDanhmuckhachhang.save FROM tblDanhmuckhachhang WHERE (((tblDanhmuckhachhang.save)=False));"
        Forms![Frmdanhmuckhachhang]![FrmDanhmuckhachhang_subform].Form.Requery
        DoCmd.RunSQL "INSERT INTO tblDanhmuckhachhang SELECT temp_dmkh.* FROM temp_dmkh;"
        DoCmd.RunSQL "DELETE temp_dmkh.* FROM temp_dmkh;"
    End If
    Forms![Frmdanhmuckhachhang]![FrmDanhmuckhachhang_subform].Form.Requery
    DoCmd.Close 


  
  Đây là hướng dẫn sửa trên code bạn đang làm để bạn hiểu cái lỗi phát sinh từ đâu thôi.
  Để sửa code cho hợp lý hơn thì bạn nên đổi cách thức sử dụng bảng tạm để code được gọn hơn, ít bẫy lỗi hơn.

• RE: Lỗi Write Conflict khi sửa danh mục

  thuyyeu99 > 30-03-20, 12:44 PM

  Thông thường Trong access minh xóa hay thêm là cho từng record hay 1 lần cho nhiều record vậy anh

• RE: Lỗi Write Conflict khi sửa danh mục

  ongke0711 > 30-03-20, 01:01 PM

  (29-03-20, 02:21 PM)dotrung Đã viết: Chào mọi người, dotrung đã thiết kế form danh mục khách hàng, nhưng phần sửa danh mục lại bị lỗi WriteConflict (dạng Bound Form),  rất mong các cao thủ chỉ giúp, thanks all cả nhà !
  P/S: dotrung dùng update quyery để cập nhật mới danh mục.
  file đính kèm : http://www.mediafire.com/file/c80rcgy05g...accdb/file

  
  À mà quên, đây là Form dạng Single, chỉ sửa một lúc một record thôi thì bạn dùng table tạm làm gì cho phức tạp, dùng Undo là được rồi. Chỉ dùng table tạm khi form cập nhật dữ liệu có dạng datasheet họoặc Continuous, cập nhật một lúc nhiều records rồi mới lưu.

• RE: Lỗi Write Conflict khi sửa danh mục

  ongke0711 > 30-03-20, 01:08 PM

  (30-03-20, 12:44 PM)thuyyeu99 Đã viết: Thông thường Trong access minh xóa hay thêm là cho từng record hay 1 lần cho nhiều record vậy anh

  
  Cả 2 em à.
  Ví dụ: Xoá một phiếu xuất. Một phiếu xuất sẽ có nhiều mặt hàng xuất. Trường hợp này sẽ có 2 table cần xoá.
  - Table lưu thông tin phiếu xuất tổng thể (tblPhieuXuat)như: Mã PX, Ngày Xuất, Người nhận v...
  - Table lưu thông tin chi tiết của phiếu xuất (tblPhieuXuatChiTiet): Mã PX, Mã hàng, Số lượng Xuất, giá xuất.
  Khi đó đối với table tblPhieuXuat chỉ cần có 1 record có Mã PX = Mã phiếu cần xoá.
  Table tblPhieuXuatChiTiet sẽ xoá nhiều Records có cùng Mã PX cần xoá.
  
  (Ở đây không để cập tới việc thiết lập Relationship theo kiểu Cascading Delete)

• RE: Lỗi Write Conflict khi sửa danh mục

  dotrung > 30-03-20, 01:09 PM

  Anh Bảo góp ý đúng rồi, do thói quen nên cứ lập temp table (chứ sub form em mới lập temp table), em đã chỉnh sửa lại được rồi, cảm ơn anh Ongke0711 rất nhiều. 
  dotrung đang hóng phần unbound form từ anh Ongke0711, dạng này nó khó phần nạp dữ liệu ban đầu cho form mẫu dùng chung và cao cấp hơn là dùng dạng class, tiết kiệm vào bảo mật code hơn. Rất mong anh chia sẻ kinh nghiệm.

• RE: Lỗi Write Conflict khi sửa danh mục

  ongke0711 > 30-03-20, 01:55 PM

  Có mấy góp ý như sau: theo như cái form thiết kế cũ.
  - Nút [đóng] có đoạn code Requery không cần thiết. Nên Requery lúc Lưu là đủ rồi, tránh requerry khi không có thay đổi dữ liệu, lãng phí.
  
  - Các check box nên thiết lập Default Value : No -> để tránh trường hợp "Null" của checkbox, khỏi phải bẫy lỗi IsNull(CheckBox1). Khi đó Checkbox chỉ có 2 trạng trái True hoặc False thôi.
  
  - Tham chiếu Form: Bạn đang dùng kiểu tham chiếu bằng nguyên tên Form nên dài dòng quá. Đối với Form đang thao tác thì nên dùng từ khoá "Me" để thay cho Form hiện hành. 
  Ví dụ: Me.Save; Me.sfmChiTiet.Form.txtMaKhachHang ....
  Chỉ nên dùng tham chiếu đầy đủ khi muốn can thiệp tới control nằm trên một form khác với Form đang thao tác.
  Forms![Frmdanhmuckhachhang]![FrmDanhmuckhachhang_subform]
  
  - Hàm MgsBoxUni(). Lầm trước hình như có nói rồi là bạn không cần thiết kế thêm cái hàm MsgBoxUniOK hay MsgBoxUniYesNO. Thiết kế nhiều hàm trong Module, khi ứng dụng chạy , nó sẽ load lên sẳn trong bộ nhớ lãng phí. Dùng một cái msgBoxUni đủ rồi, muốn YesNo hay VbOKOnly hay YesNoCancel...gì đó thì đưa tham số thêm trong hàm.
  Ví dụ: Bạn đang dùng: msgBoxOK DLookup("[NDUNG1]", "tblTHONGBAO", "[SOTB] = 10"), vbQuestion
  Đổi lại: msgBoxUni DLookup("[NDUNG1]", "tblTHONGBAO", "[SOTB] = 10"), vbQuestion + vbOKOnly, "Thong bao"
  
  Hàm MsgBoxUni cũ nên đổi qua hàm mới như bên dưới để cải thiện tốc độ:
  
  

  Mã PHP:

  Option Compare Database
Option Explicit

#If VBA7 Then
    Public Declare PtrSafe Function MessageBoxW Lib "user32" _
                                    (ByVal hwnd As LongPtr, _
                                    ByVal lpText As LongPtr, _
                                    ByVal lpCaption As LongPtr, _
                                    ByVal wType As Long) As Long
#Else
    Public Declare Function MessageBoxW Lib "user32" _
                            (ByVal hwnd As Long, _
                            ByVal lpText As Long, _
                            ByVal lpCaption As Long, _
                            ByVal wType As Long) As Long
#End If

Public Function msgBoxUni(ByVal sMsgUni As String, Optional ByVal Buttons As VbMsgBoxStyle = vbOKOnly, Optional ByVal sTitleUni As String = vbNullString) As VbMsgBoxResult
    msgBoxUni = MessageBoxW(0, StrPtr(sMsgUni), StrPtr(sTitleUni), Buttons)
End Function

Function getMesND1(i As Integer) As String
    getMesND1 = Nz(DLookup("NDUNG1", "[tblTHONGBAO]", "[SOTB] = " & i), "")
End Function

Function getMesND2(i As Integer) As String
    getMes ND2= Nz(DLookup("NDUNG2", "[tblTHONGBAO]", "[SOTB] = " & i), "")
End Function

Function getTit(Optional i As Integer = 1) As String
    getTit = Nz(DLookup("TIEUDE", "[tblTHONGBAO]", "[SOTB] = " & i), "")
End Function 


  
  
  - Áp dụng vào ví dụ trên:
  
  

  Mã PHP:

  msgBoxUni getMesND1(10), vbQuestion + vbOKOnly, getTit(10) 


• RE: Lỗi Write Conflict khi sửa danh mục

  thuyyeu99 > 30-03-20, 08:17 PM

  Nếu em dùng ado muốn up date nhiều record thì sao anh. Em đang tìm hiểu cách nào có thể tối ưu nhất để làm cái hàm đó mà

• RE: Lỗi Write Conflict khi sửa danh mục

  ongke0711 > 30-03-20, 09:46 PM

  (30-03-20, 08:17 PM)thuyyeu99 Đã viết: Nếu em dùng ado muốn up date nhiều record thì sao anh. Em đang tìm hiểu cách nào có thể tối ưu nhất để làm cái hàm đó mà

  
  ADO Update cũng dùng câu lệnh giốn như DAO thôi và cũng update hàng loạt record được.
  Ví dụ: "UPDATE tblDiemThiHocSinh SET XepLoai ="TB" WHERE DiemThi Between 4 AND 6"
  Câu lệnh dạng này sẽ update cùng 1 giá trị cho field nào đó và giống nhau cho toàn bộ record.
  
  Cách khác là bàì UpdateBatch của maidinhdan đi, update nguyên một bó record. Mở một Recordset lên chỉnh sửa xong UpdateBatch thì nó sẽ cập nhật cho toàn bộ record.

• RE: Lỗi Write Conflict khi sửa danh mục

  thuyyeu99 > 30-03-20, 10:13 PM

  ongke0711 
  Cách khác là bàì UpdateBatch của [b' Đã viết: maidinhdan[/b] đi, update nguyên một bó record. Mở một Recordset lên chỉnh sửa xong UpdateBatch thì nó sẽ cập nhật cho toàn bộ record.

  Em đang lăn tăng chỗ này đây. Cái hàm này chắc chắn phải có xíu thử thuật chứ không thể nào không có được. Mà chắc khó quá cho qua từ từ cá cũng nhừ hihi
• Bài trước Bài tiếp