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

? Đối tượng recordset để truy tìm việc trùng thông tin trong table

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Thành viên giúp nhau
  • ? Đối tượng recordset để truy tìm việc trùng thông tin trong table
• ? Đối tượng recordset để truy tìm việc trùng thông tin trong table

• ? Đối tượng recordset để truy tìm việc trùng thông tin trong table

  vuga > 26-12-16, 03:27 AM

  Kính nhờ các Anh Chị giúp đỡ về đối tượng recordset.
  em đang sử dụng đối tượng cho việc tìm record trùng trong table nhưng khi viết code nó vẫn báo lỗi tại dòng 
  
   rs.FindNext ("ID_HD_nhap =" & txtid_Nhap.Value)
  
  Khóa chính trong table là id_hd_nhap kiểu số 
  
  Rất mong Anh Chị giúp đỡ. thks
  
  Đoạn code đính kèm:
      Set db = CurrentDb
  
      Set rs = db.OpenRecordset("T_HoaDon_nhap")
      
      rs.MoveFirst
      For i = 0 To rs.RecordCount - 1
          rs.FindNext ("ID_HD_nhap =" & txtid_Nhap.Value)
      Next
  
      'Doi tuong record set da tim thay trong du lieu table
      
      If rs.EOF = False Then
         MsgBox ("So Hoa Don Bi Trung. Vui Long Kiem Tra Lai")
         txtid_Nhap.SetFocus
      Else
          rs.AddNew
          rs(0) = txtid_Nhap.Value
          rs(1) = txt_ngayN.Value
          rs(2) = txtten_PN.Value
          rs.Update
      End If

• RE: ? Đối tượng recordset để truy tìm việc trùng thông tin trong table

  ongke0711 > 26-12-16, 10:12 AM

  Bạn có thể dùng DCount (hoặc DLookup) để xử lý nhanh hơn ngay khi sự kiện nhập số hóa đơn phát sinh.
  Vd:
  Private txtSoHD_AfterUpdate()
     If DCount ("SoHD", "T_HoaDon_nhap") > 0 Then
          Msgbox "Nhập trùng HD"
          txtSoHD.SetFocus
     End If 
  End Sub
  
  Nếu bạn dùng recordset thì chỉ cần dùng rs.FindFirst và rs.NoMatch là được rồi, không cần Loop qua từng record.
      Set db = CurrentDb
      Set rs = db.OpenRecordset("T_HoaDon_nhap")
      
      rs.FindFirst "ID_HD_nhap =" & txtid_Nhap.Value
    
      'Doi tuong record set da tim thay trong du lieu table
      If Not rs.NoMatch Then
         MsgBox ("So Hoa Don Bi Trung. Vui Long Kiem Tra Lai")
         txtid_Nhap.SetFocus
         Exit Sub
      Else
          rs.AddNew
          rs(0) = txtid_Nhap.Value
          rs(1) = txt_ngayN.Value
          rs(2) = txtten_PN.Value
          rs.Update
      End If

• RE: ? Đối tượng recordset để truy tìm việc trùng thông tin trong table

  lamvankhanh > 26-12-16, 10:15 AM

  Bạn tải Demo này về, trong đó có Code tìm dãy số bị trùng và thiếu.
  linh tải: http://upfile.vn/7kBCKkBCNQIg/kiem-tra-d...g-mdb.html

• RE: ? Đối tượng recordset để truy tìm việc trùng thông tin trong table

  vuga > 04-01-17, 01:22 AM

  thanks các bạn nhìu.
• Bài trước Bài tiếp