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

Loại bỏ trùng ID khi import từ file exel vào Access

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Query
  • [Help] Loại bỏ trùng ID khi import từ file exel vào Access
• Loại bỏ trùng ID khi import từ file exel vào Access

• giúp loại trùng khi import từ file exel

  tronghieu9792 > 15-05-16, 12:04 PM

  Chào diễn đàn. Nhờ các bạn chỉ giúp mình trường hợp khi import dữ liệu từ file excel vào table danh sách có cách nào loại trừ một người đã có tên trước đó trong danh sách theo điều kiện ngày duyệt hồ sơ. Tuất là danh sách sẽ nhận biết nếu dữ liệu import trùng tên và trùng ngày xét duyệt thì danh sách được import sẽ không nhận dữ liệu của ngừơi trùng đó. Xin cảm ơn

• RE: giúp loại trùng khi import từ file exel

  ongke0711 > 15-05-16, 01:29 PM

  Bạn sẽ làm thông qua:
  - 1 table tạm: dùng để import file excel. Vd: tblExcelImportTemp
  - Table danh sách chính có thêm cột CheckCode. Vd: tblDanhSach
  - 1 Update query table tạm: dùng để tạo cột phụ (ví dụ: checkCode). CheckCode: là kết hợp Mã thí sinh (người nộp hồ sơ) + Ngày giờ duyệt hồ sơ. Vd: TS0001140520161200 (TS0001+14/05/2016 12:00)
  - 1 Select query để lọc nhưng người không cùng CheckCode. So sánh 2 bảng table import tạm và table danh sách chính.
  --------------------
  SELECT tblExcelImportTemp.*
  FROM tblExcelImportTemp LEFT JOIN tblDanhSach ON tblExcelImportTemp.CheckCode = tblDanhSach.CheckCode
  WHERE (((tblDanhSach.CheckCode) Is Null));
  --------------------
  - Từ query nhưng người không trùng, bạn insert vào tblDanhSach.

• RE: giúp loại trùng khi import từ file exel

  tronghieu9792 > 15-05-16, 05:25 PM

  Cảm ơn ongke0711, mình đã làm được.

• bẫy lỗi khi import dữ liệu từ excel vào một table access

  dutuan80637 > 22-02-17, 10:41 PM

  Chào mọi người! 
  em có vài vấn đề khi import dữ liệu từ excel vào một table của access mong mọi người giúp đỡ, vấn đề của em như sau:
  1. em có tạo 1 table trong đó có cột (MaKH (khóa chính), Phone) định dạng text và cột (id) định dạng AutoNumber
      sau đó em có tạo 1 form có 1 textbox để chứa link đến file excel, một button để chọn đường link, và một button để thực hiện lệnh import
  
      khi chạy chương trình nếu dữ liệu khóa chính không trùng thì truyền dữ liệu vào table ok, nếu có dữ liệu khóa chính trùng thì sẽ hiện một thông báo hệ thống nếu chọn yes thì 
      sẽ ghi những giữ liệu không trùng vào table, chọn no thì không ghi
  
      xin mọi người giúp em sửa lại code sao cho nếu dữ liệu khóa chính trùng sẽ không hiện thông báo của hệ thống nữa mà hiển thị 1 thông báo dạng  msgbox yes/no có hiển thị 
      có bao nhiêu dữ liệu trùng nếu chọn yes thì ghi dữ liệu không trùng, chọn no thì không ghi
  2. cột id khi import em để trống nhưng khi vào table thì hệ thống không tự nhảy số mong mọi người giải đáp giúp em
  
  Đây là code mở hộp thoại browse tới file
            

  Mã:

  Function getFile(Tit As String, formatName As String, formatType As String)
Dim dlgOpen As FileDialog
Set dlgOpen = Application.FileDialog(msoFileDialogOpen)
With dlgOpen
   .Title = Tit
   .Filters.Clear
   .Filters.Add formatName, formatType
   .AllowMultiSelect = False
   result = .Show
   If (result <> 0) Then
getFile = Trim(dlgOpen.SelectedItems.Item(1))
End If
End With

End Function

  
  
  Code cho textbox
            

  Mã:

  Private Sub text_Click()
t1.Value = getFile("Select Data File", "data file", "*.xls")
End Sub

  
  Code cho button thực hiện lệnh import
  

  Mã:

  Private Sub IP_Click()
Dim sTenTable As String
   sTenTable = "TAB"
   DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, _
   sTenTable, t1, True
   
End Sub

  
  em có gửi link file của em luôn nếu cần mọi người tải về xem nha Download File

• RE: bẫy lỗi khi import dữ liệu từ excel vào một table access

  ongke0711 > 22-02-17, 11:48 PM

  Bạn tham khảo bài này.
  http://thuthuataccess.com/forum/post-308...l#pid30869
  - Bạn thay đổi CheckCode trong ví dụ bằng Mã KH và làm tương tự. Nó đơn giản hơn nhiều.
  - Còn vụ nhảy số id tự động, bạn phải set index cho nó là No Duplicate thì nó mới tự động nhảy số.

• RE: Loại bỏ trùng ID khi import từ file exel vào Access

  dutuan80637 > 23-02-17, 10:48 AM

  Trong access em có tạo 1 form import
  mong muốn của e là mọi người giúp em chỉnh sửa đoạn code thực hiện lệnh import sao cho khi có dữ liệu trùng thì nó không hiện thông báo của hệ thống mà hiện thông báo msgbox ok/cancel "trùng n dữ liệu bạn có muốn ghi dữ liệu không trùng?" nếu chọn ok thì thì ghi còn chọn no thì dừng lệnh
  "nameTable": là tên table cần ghi dữ liệu
  "txtLink": là textbox chứa đường dẫn đến file excel
  Cảm ơn mọi người!
  Code:
  

  Mã:

  Private Sub cmdImport_Click()
Dim sTenTable As String
   sTenTable = "nameTable"
   DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, _
   sTenTable, txtLink, True
   End Sub

• RE: Loại bỏ trùng ID khi import từ file exel vào Access

  ongke0711 > 23-02-17, 11:22 AM

  (23-02-17, 10:48 AM)dutuan80637 Đã viết: Trong access em có tạo 1 form import
  mong muốn của e là mọi người giúp em chỉnh sửa đoạn code thực hiện lệnh import sao cho khi có dữ liệu trùng thì nó không hiện thông báo của hệ thống mà hiện thông báo msgbox ok/cancel "trùng n dữ liệu bạn có muốn ghi dữ liệu không trùng?" nếu chọn ok thì thì ghi còn chọn no thì dừng lệnh

  
  - Đã trùng dữ liệu thì ghi làm gì mà bạn phải chọn Ok hoặc Cancel? 
  - Còn bạn muốn ghi đè lên dữ liệu trùng thì lại tốn thêm nhiều dòng code cho nó --> lãng phí
  - Nếu bạn muốn chọn No thì chỉ ghi dữ liệu không trùng thì cũng tốn 1 đống code và query xử lý nó --> lãng phí
  Theo cách tôi hướng dẫn ở trên thì bạn chỉ cần dùng 1 query để loại tất cả các dòng trùng trước khi import rồi chỉ cần chọn có Lưu hay không thôi.

• RE: Loại bỏ trùng ID khi import từ file exel vào Access

  dutuan80637 > 23-02-17, 12:39 PM

  [/quote]
  
  - Đã trùng dữ liệu thì ghi làm gì mà bạn phải chọn Ok hoặc Cancel? 
  - Còn bạn muốn ghi đè lên dữ liệu trùng thì lại tốn thêm nhiều dòng code cho nó --> lãng phí
  - Nếu bạn muốn chọn No thì chỉ ghi dữ liệu không trùng thì cũng tốn 1 đống code và query xử lý nó --> lãng phí
  Theo cách tôi hướng dẫn ở trên thì bạn chỉ cần dùng 1 query để loại tất cả các dòng trùng trước khi import rồi chỉ cần chọn có Lưu hay không thôi.
  [/quote]
  
  nếu dùng phương pháp này thì có cách nào đếm số dữ liệu trùng rồi đưa vào msgbox không anh

• RE: Loại bỏ trùng ID khi import từ file exel vào Access

  ongke0711 > 23-02-17, 12:56 PM

  Bạn dùng Find Duplicate Query để so sánh tìm dữ liệu trùng rồi dùng "SELECT Count ( * )FROM FindDuplicateQuery" để ra số record trùng.
• Bài trước Bài tiếp