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

Bẫy lỗi tiếng Việt trùng dữ liệu khi bấm nút Lưu trên Form

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Thành viên giúp nhau
  • [Help] Bẫy lỗi tiếng Việt trùng dữ liệu khi bấm nút Lưu trên Form
• Bẫy lỗi tiếng Việt trùng dữ liệu khi bấm nút Lưu trên Form

• Bẫy lỗi tiếng Việt trùng dữ liệu khi bấm nút Lưu trên Form

  ongke0711 > 19-04-17, 12:17 PM

  Chào các bạn,
  
  Tôi đang loay hoài không bẫy được cái lỗi Error 3022 (trùng lặp dữ liệu) khi nhập liệu trên Form và bấm nút Lưu.
  Nó vẫn hiện cái thông báo Error mặc định của hệ thống là tiếng Anh và không "Resume Next" để có thể thao tác chỉnh sửa trên Form được.
  
  - Mình đã bẫy lỗi ở nút Lưu như sau: "On Error Goto cmdLuu_Err"
  

  Mã PHP:

  Private Sub cmdLuu_Click()

   Set db = CurrentDb

   If Me.txtMaPCTC = "" Or IsNull(Me.txtMaPCTC) Then
       MsgBoxUni "B" & ChrW(7841) & "n ph" & ChrW(7843) & "i nh" & ChrW(7853) & "p Mã ph" & ChrW(7909) & " c" & ChrW(7845) & "p.", vbCritical, "Thông báo"
       Me.txtMaPCTC.SetFocus
       Exit Sub
   End If
   If Me.cboNhomPCTC = "" Or IsNull(Me.cboNhomPCTC) Then
       MsgBoxUni "B" & ChrW(7841) & "n ph" & ChrW(7843) & "i ch" & ChrW(7885) & "n Nhóm ph" & ChrW(7909) & " c" & ChrW(7845) & "p.", vbCritical, "Thông báo"
       Me.cboNhomPCTC.SetFocus
       Exit Sub
   End If
   If Me.txtTenPCTC = "" Or IsNull(Me.txtTenPCTC) Then
       MsgBoxUni "B" & ChrW(7841) & "n ph" & ChrW(7843) & "i nh" & ChrW(7853) & "p Tên ph" & ChrW(7909) & " c" & ChrW(7845) & "p.", vbCritical, "Thông báo"
       Me.txtTenPCTC.SetFocus
       Exit Sub
   End If

   On Error GoTo cmdLuu_Err
   Select Case strArgsArray(0)
   Case "Add"
       Set rs = db.OpenRecordset("tblMaPhuCap", dbOpenDynaset)
       Call AddRecord(rs, Me)
   Case "Edit"
       Call UpdateRecord(rs, Me)
   End Select

   MsgBoxUni ChrW(272) & "ã l" & ChrW(432) & "u thông tin Mã ph" & ChrW(7909) & " c" & ChrW(7845) & "p.", vbInformation, "Thông báo"
   Forms!frmDMPhuCap!sfmDMPhuCap.Requery
   DoCmd.Close acForm, "frmMaPhuCap"

cmdLuu_Click_Exit:
   Exit Sub

cmdLuu_Err:
   Select Case Err.Number
   Case 3022
       MsgBoxUni "Mã ph" & ChrW(7909) & " c" & ChrW(7845) & "p này " & ChrW(273) & "ã t" & ChrW(7891) & "n t" & ChrW(7841) & "i.", vbCritical, "Thông báo"
   Case Else
       MsgBox Error$
   End Select
   Resume cmdLuu_Click_Exit

   rs.Close
   Set rs = Nothing
   db.Close

End Sub 


  
  - Và bẫy lỗi ở hàm AddRecord() vẫn không hoạt động. "On Error Goto ErrorHandler"
  

  Mã PHP:

  Public Sub AddRecord(rs As DAO.Recordset, frm As Form)
   On Error GoTo ErrorHandler
   Dim fld As Field
   Dim ctl As control
   rs.AddNew
   For Each fld In rs.Fields
       For Each ctl In frm.Controls
           If ctl.Name = "txt" & fld.Name Or ctl.Name = "cbo" & fld.Name Or ctl.Name = "chk" & fld.Name Then
               rs.Fields("" & fld.Name & "").Value = ctl
           End If
       Next
   Next
   rs.Update

ErrorHandler:
   If Err.Number = 3022 Then
       MsgBox "Du lieu da ton tai."
   ElseIf Err.Number = 13 Then
       MsgBox "Nhap sai kieu du lieu.Vd: Ban nhap du lieu dang Number vao Field dang Text."
   Else
       MsgBox Error$
   End If
End Sub 


  
  Các bạn xem và góp ý cách làm giùm nhé. 
  Cảm ơn trước.
  
  Hình Error 3022:
  
  
  
  
  File demo lỗi: http://www.mediafire.com/file/j2rt3ac29p...022%29.mdb

• RE: Bẫy lỗi tiếng Việt trùng dữ liệu khi bấm nút Lưu trên Form

  tranthanhan1962 > 19-04-17, 01:55 PM

  Bẩy lỗi của bạn OK mà, Mình test thử thấy ngon lành (mình chỉ mở CSDL chạy thử thấy báo lỗi tiếng việt quá OK)
  Mình test với access 2016
  Có lẽ vấn đề không nằm trong code
  
  

• RE: Bẫy lỗi tiếng Việt trùng dữ liệu khi bấm nút Lưu trên Form

  ongke0711 > 19-04-17, 05:32 PM

  Ôi trời...vậy mà em mất nguyên đêm ngồi xem tới xem lui lỗi chính tả, có sai vị trí, logic gì không mà vẫn bó tay tới giờ. Chắc để tạo csdl mới import nó xem còn lỗi nữa không.

• RE: Bẫy lỗi tiếng Việt trùng dữ liệu khi bấm nút Lưu trên Form

  tranthanhan1962 > 19-04-17, 05:49 PM

  (19-04-17, 05:32 PM)ongke0711 Đã viết: Ôi trời...vậy mà em mất nguyên đêm ngồi xem tới xem lui lỗi chính tả, có sai vị trí, logic gì không mà vẫn bó tay tới giờ. Chắc để tạo csdl mới import nó xem còn lỗi nữa không.

  
  Hì hì! Chắc bị tổ trác 
  Mình nghĩ không phải CSDL đâu. Vì mình down CSDL của bạn về mở lên là chạy ngon lành mà

• RE: Bẫy lỗi tiếng Việt trùng dữ liệu khi bấm nút Lưu trên Form

  ongke0711 > 19-04-17, 06:06 PM

  Haha...vậy phải tạo thêm một bẫy lỗi khác là:
  Msgbox "Lỗi không xác định. Yêu cầu cài Office có bản quyền." 

• RE: Bẫy lỗi tiếng Việt trùng dữ liệu khi bấm nút Lưu trên Form

  tranthanhan1962 > 19-04-17, 06:29 PM

  (19-04-17, 06:06 PM)ongke0711 Đã viết: Haha...vậy phải tạo thêm một bẫy lỗi khác là:
  Msgbox "Lỗi không xác định. Yêu cầu cài Office có bản quyền." 

  Chắc vậy 

• RE: Bẫy lỗi tiếng Việt trùng dữ liệu khi bấm nút Lưu trên Form

  ongke0711 > 12-05-17, 02:24 PM

  Em đã tìm ra lý do tại sao cái bẫy lỗi không hoạt động. Đơn giản là do setting trong màn hình soạn code VBA
  
  Tools -> Option -> General -> Error trapping --> Chọn "Break on Unhandled Errors"
  
  

• RE: Bẫy lỗi tiếng Việt trùng dữ liệu khi bấm nút Lưu trên Form

  maidinhdan > 12-05-17, 07:10 PM

  Em xin góp ý thế này.
  
  1. Về hàm AddRecord: Đề nghị sửa lại thành
  
  

  Mã PHP:

  Public Sub AddRecord(rs As DAO.Recordset, frm As Form)
On Error GoTo Loi
    Dim fld As Field
    Dim ctl As control
    rs.AddNew
    For Each fld In rs.Fields
        For Each ctl In frm.Controls
            If ctl.Name = "txt" & fld.Name Or ctl.Name = "cbo" & fld.Name Or ctl.Name = "chk" & fld.Name Then
                rs.Fields("" & fld.Name & "").Value = ctl
            End If
        Next
    Next
    rs.Update
    
LoiExit:
    Exit Sub
    
Loi:
    If Err.Number = 3022 Then
        MsgBox "Du lieu da ton tai."
    ElseIf Err.Number = 13 Then
        MsgBox "Nhap sai kieu du lieu.Vd: Ban nhap du lieu dang Number vao Field dang Text."
    Else
        Resume LoiExit
    End If
End Sub 


  
  
  2. Về nút Lưu (cmdLuu_Click) trong form frmPhucap có vấn đề là code vẫn chạy khi
  + Hàm Add bắt lỗi 3022
  + Hoặc khi hàm Add bắt lỗi 13
  
  Như vậy , phải xây dựng lại kịch bản của nút lưu cho phù hợp
  
  Khuyến nghị: Nên tạo hàm Add có trả về tham số True/False để đưa vào bẩy lỗi ở nút Lưu
  
  Riêng ý số 1 trên cũng thế, Dù không có lỗi nhưng nó vẫn hiện 1 thông báo rỗng. Vì vậy cần bổ sung Resume LoiExit vào
• Bài trước Bài tiếp