Nhờ anh em hướng dẫn dùm cách import 1 worksheet trong excel vào 1 table trong access (với điều kiện khi import kiểm tra tính trùng lắp theo khoá)thông qua command button được tạo trên form, mình có gởi file kèm theo
thank.
Sửa lại code trong Form tham chiếu đến Query1:SELECT giaonhan.sobangke, giaonhan.slsonhan, giaonhan.madv, giaonhan.ngaynhan, giaonhan.ngaytra
FROM giaonhan
WHERE (((giaonhan.sobangke) Not In (select SOBANGKE from GIAONHAN)));
Private Sub cmdDocDuLieuTuExcel_Click()
Dim sTenTable As String
sTenTable = "[COLOR=darkgreen][B]QUERY1[/B][/COLOR]" '
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, _
sTenTable, txttaptinexcel, True
MsgBox "da thuc hien xong !"
End Sub
Thì nếu bạn muốn Update dữ liệu vào Access thì nhập nó vào theo form trên thôi, còn nếu như bạn muốn tự động thì bạn có thể dùng link đến file ExcelĐể mình thử xem sao, nhưng ý mình là add các cột từ sheet bên excel sang các cột trong table danhsachhs và table danhsachhs là table cố định còn file excel là số liệu mỗi ngày nên mình muốn mỗi ngày update số liệu liên tục vào table danhsachhs. Vì mình cũng đang tự học mong các anh em giúp đỡ.
Thank
Thì nếu bạn muốn Update dữ liệu vào Access thì nhập nó vào theo form trên thôi, còn nếu như bạn muốn tự động thì bạn có thể dùng link đến file Excel
Bạn tạo 1 Query có tên là Query1 như sau:
Sửa lại code trong Form tham chiếu đến Query1:
Mã:Private Sub cmdDocDuLieuTuExcel_Click() Dim sTenTable As String sTenTable = "[COLOR=darkgreen][B]QUERY1[/B][/COLOR]" ' DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, _ sTenTable, txttaptinexcel, True MsgBox "da thuc hien xong !" End Sub
Bạn nhập vào không được là vì 2 lí do căn bản như sau:Nhờ bạn hướng dẫn chi tiết dùm, mình đã gởi kèm file vd, vì file excel của mình cập nhật từ nv mỗi ngày nên cơ sở dữ liệu rất lớn ko thể dùng link được, mình muốn import file vd vào table danhsachhs.
thân.
Mình đã thử trên 2007 thấy chạy bình thường mà bạn ?Mình thấy code không chạy được trên Access 2007 nó bao lỗi là sao hả bâc?
Có lẽ máy bạn thiếu CommonDialog nên gây ra lỗi này, hoặc có thể bạn chưa bỏ CommonDialog vào form nên nó không hoạt động, bạn xem hình nhé.Đây là lỗi mà mình chụp được. Bạn xem hộ nha!
Có lẽ máy bạn thiếu CommonDialog nên gây ra lỗi này, hoặc có thể bạn chưa bỏ CommonDialog vào form nên nó không hoạt động, bạn xem hình nhé.
![]()
Mình cài bộ VB6 vào là dư để dùng rồi.OK, mình làm được rồi, nhưng sao của bạn nhiều control quá vậy có cả List View, ... của mình thì nó chỉ có vài cái thôi.
Mình muốn nó nhiều như của bạn để dùng thì phải làm thế nào?
Mình cũng bị tình trạng trên nhờ bạn chỉ dùm cách khắc phục, có thể máy mình thiếu CommonDialog, mặc dù mình chỉ chạy trên access2003 nhưng khi chép file từ máy này sang máy khác vẫn bị tình trạng trên.Có lẽ máy bạn thiếu CommonDialog nên gây ra lỗi này, hoặc có thể bạn chưa bỏ CommonDialog vào form nên nó không hoạt động, bạn xem hình nhé.
![]()