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

Kiểm tra trùng dữ liệu trùng 2 field trên cùng 1 record

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Thành viên giúp nhau
  • Bài tập Access
  • [Help] Kiểm tra trùng dữ liệu trùng 2 field trên cùng 1 record
• Kiểm tra trùng dữ liệu trùng 2 field trên cùng 1 record

• Kiểm tra trùng dữ liệu trùng 2 field trên cùng 1 record

  TrongLam > 29-08-19, 04:05 PM

  Xin chào mọi người!
  Mọi người cho mình hỏi về code access với.
  Mình có 1 table "QLHD" trong đó có 2 fileld MANCC và SOHD.
  Tạo Forms có combobox cbo_MANCC và testbox txt_SOHD để nhập liệu.
  Giờ mình muốn viết code kiểm tra nếu trùng dữ liệu cả 2 field MANCC và SOHD trên cùng 1 dòng mà có trong table "QLHD" rồi thì thông báo trùng dữ liệu.
  Mình có viết code dưới để kiểm tra trùng nhưng kiểm tra trùng trên nhiều dòng chứ không phải 1 dòng.
  
  
  Dim trungNCC
  Dim trungHD
  trungNCC = Nz(Dlookup("MANCC", "QLHD", "[MANCC] = '" & me.cbo_MANCC & "'"), "")
  trungHD = Nz(Dlookup("SOHD", "QLHD", "[SOHD] = '" & me.txt_SOHD & "'"), "")
  If Len(trungNCC) > 0 Then
       If Len(trungHD) > 0 Then
           MsgBox "Trùng MANCC và SOHD!", ,"Thông Báo!"
           Exit Sub
        End If
  End If
  
  Vấn đề ở đây là khi nhập liệu mà trùng 1 lúc 2 Field trên cùng 1 dòng thì mới báo không cho nhập. Còn trùng 1 field thì vẫn cho nhập.
  Anh em chỉ giúp với.
  Cám ơn!

• RE: Kiểm tra trùng dữ liệu trùng 2 field trên cùng 1 record

  Noname > 29-08-19, 05:27 PM

  Không có dữ liệu mẫu, viết đại. Bạn dựa theo ý tưởng của mình sửa lại cho hợp lý nhé
  

  Mã PHP:

  Sub kiemtra()
    s = "Select * from QLHD where MANCC like '" & Me.cbo_MANCC & "' and SOHD like '" & Me.txt_SOHD & "'"
    Dim rs As DAO.Recordset
   Set rs = CurrentDb.OpenRecordset(s, dbOpenSnapshot)
    If rs.RecordCount <> 0 Then
    MsgBox "Duplicate MANCC and SOHD!", , "Warning!"
    End If
End Sub 


• RE: Kiểm tra trùng dữ liệu trùng 2 field trên cùng 1 record

  TrongLam > 29-08-19, 07:56 PM

  (29-08-19, 05:27 PM)Noname Đã viết: Không có dữ liệu mẫu, viết đại. Bạn dựa theo ý tưởng của mình sửa lại cho hợp lý nhé
  

  Mã PHP:

  Sub kiemtra()
    s = "Select * from QLHD where MANCC like '" & Me.cbo_MANCC & "' and SOHD like '" & Me.txt_SOHD & "'"
    Dim rs As DAO.Recordset
  Set rs = CurrentDb.OpenRecordset(s, dbOpenSnapshot)
    If rs.RecordCount <> 0 Then
    MsgBox "Duplicate MANCC and SOHD!", , "Warning!"
    End If
End Sub 


  
  Cám ơn bạn đã giúp.

• RE: Kiểm tra trùng dữ liệu trùng 2 field trên cùng 1 record

  TrongLam > 15-09-19, 09:15 PM

  BẠN CHO MÌNH HỎI ĐỂ SO SÁNH TRÙNG DỮ LIỆU CÁC DÒNG  TRONG BẢNG VỚI NHAU THÌ LÀM SAO . TRƯỜNG HỢP MÌNH SỬA DỮ LIỆU TRONG BẢNG ĐÓ RỒI CẬP NHẬT . 
  
  

  (29-08-19, 05:27 PM)Noname Đã viết: Không có dữ liệu mẫu, viết đại. Bạn dựa theo ý tưởng của mình sửa lại cho hợp lý nhé
  

  Mã PHP:

  Sub kiemtra()
    s = "Select * from QLHD where MANCC like '" & Me.cbo_MANCC & "' and SOHD like '" & Me.txt_SOHD & "'"
    Dim rs As DAO.Recordset
  Set rs = CurrentDb.OpenRecordset(s, dbOpenSnapshot)
    If rs.RecordCount <> 0 Then
    MsgBox "Duplicate MANCC and SOHD!", , "Warning!"
    End If
End Sub 


• Bài trước Bài tiếp