Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
tìm kiếm và update dữ liệu từ excel cho access
#11
(07-11-13, 12:39 PM)connguoi123 Đã viết: Chào Bác Xuân Thành,

Em gửi kèm theo file. Em muốn tìm tên sản phẩm và update cột Ngày bán trong file excel vào field Datesale trong bảng TblSanpham của file Access.

http://upfile.vn/c90c55


Bác chỉ giáo em với. Tks you bác nhiều

1/ Trong tblSanPham của file Access, đặt trường SanPham là PrimariKey
2/ File Access và Excel đặt chung trong một Folder. Tên file, tên trường, tên sheet, tên cột giữ nguyên như của bạn
3/ Trong modul của Access, vào Tools/Reference duyệt tìm và chọn Microsof Excel 11 Object Libary. Chép đoạn code sau đây vào modul và chạy nó

Mã PHP:
Option Compare Database
Option Explicit

Sub CopyExcelToAccess
()
    
Dim Ex As New Excel.Application
    Dim rs 
As Recordset
    Dim FileEx 
As Workbook
    Set FileEx 
Ex.Workbooks.Open(CurrentProject.Path "\reportSale.xls")
    
Set rs CurrentDb.OpenRecordset("tblSanPham"dbOpenTable)
    
rs.Index "PrimaryKey"
    
Dim Ws As Worksheet
    Set Ws 
FileEx.Worksheets("Sheet1")
    
Dim n As IntegerAs Integer
    n 
Ws.Range("B65000").End(xlUp).Row
    
For 2 To n
        rs
.Seek "="Ws.Range("B" i)
        If 
Not rs.NoMatch Then
            rs
.Edit
            rs
!DateSale Ws.Range("C" i)
            
rs.Update
        
Else
            
rs.AddNew
            rs
!sanpham Ws.Range("B" i)
            
rs!DateSale Ws.Range("C" i)
            
rs.Update
        End 
If
    
Next
    rs
.CloseFileEx.Close FalseSet Ex Nothing
End Sub 

Thân mến
Chữ ký của Xuân Thanh Trăm năm trước thì ta chưa gặp
Trăm năm sau biết gặp được không?
Cuộc đời sắc sắc không không
Thì thôi ta cứ hết lòng vì nhau
ღღღღღTài sản của Xuân Thanh (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Noname , Minh Tiên , susu16b , duyennguyen2008
#12
(07-11-13, 12:39 PM)connguoi123 Đã viết: Chào Bác Xuân Thành,

Em gửi kèm theo file. Em muốn tìm tên sản phẩm và update cột Ngày bán trong file excel vào field Datesale trong bảng TblSanpham của file Access.

http://upfile.vn/c90c55


Bác chỉ giáo em với. Tks you bác nhiều


Em chào Bác Xuan Thanh, bác giúp em vụ này với ... Em làm mãi ko được . Tks
Chữ ký của connguoi123 Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#13
(10-01-14, 06:21 PM)connguoi123 Đã viết:
(07-11-13, 12:39 PM)connguoi123 Đã viết: Chào Bác Xuân Thành,

Em gửi kèm theo file. Em muốn tìm tên sản phẩm và update cột Ngày bán trong file excel vào field Datesale trong bảng TblSanpham của file Access.

http://upfile.vn/c90c55


Bác chỉ giáo em với. Tks you bác nhiều


Em chào Bác Xuan Thanh, bác giúp em vụ này với ... Em làm mãi ko được . Tks

Hi Bác XuanThanh, em àm đúng như bác nói mà vẫn không được, bạn có thể demo cho file của em với. Tks
Chữ ký của connguoi123 Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#14
Đường link bị lỗi, post lại nhé
Thân mến
Chữ ký của Xuân Thanh Trăm năm trước thì ta chưa gặp
Trăm năm sau biết gặp được không?
Cuộc đời sắc sắc không không
Thì thôi ta cứ hết lòng vì nhau
ღღღღღTài sản của Xuân Thanh (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#15
(14-01-14, 02:48 PM)Xuân Thanh Đã viết: Đường link bị lỗi, post lại nhé
Thân mến

Cám ơn Bác Xuân Thành quan tâm giúp đỡ, em gửi lại link đây, Bác xem giúp

http://speedy.sh/7pqDt/Sanpham.rar
Chữ ký của connguoi123 Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#16
Up lên chỗ khác đi. Mất công cài đặt thêm "phần mềm vô ý thức"
Thân mến
Chữ ký của Xuân Thanh Trăm năm trước thì ta chưa gặp
Trăm năm sau biết gặp được không?
Cuộc đời sắc sắc không không
Thì thôi ta cứ hết lòng vì nhau
ღღღღღTài sản của Xuân Thanh (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#17
(15-01-14, 05:19 PM)Xuân Thanh Đã viết: Up lên chỗ khác đi. Mất công cài đặt thêm "phần mềm vô ý thức"
Thân mến

Bác Xuân Thành thử link này xem sao . Tks

https://www.mediafire.com/?qzja6tt11zwa1mn
Chữ ký của connguoi123 Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#18
1/ Bạn không làm đúng theo yêu cầu ===> đọc lại hướng dẫn
2/ Muốn làm được thì ( theo file bạn post mới nhất trên mediafire
2.1/ Chọn Microsoft Office 11.0 Libary
2.2/ Trong file Excel, chèn thêm một cột trống phía trước, cột MaSP để ở cột B, cốt ngày bán để ở cột C cho khớp với code
2.2a/ Nếu không sửa file Ex thì sưa code, chổ nào có Range("B")...chuyển thành range("A")...và Range("C") chuyển thành Range("B") do bạn xóa cột A trong file cũ
Thử lại xem
Thân mến
Chữ ký của Xuân Thanh Trăm năm trước thì ta chưa gặp
Trăm năm sau biết gặp được không?
Cuộc đời sắc sắc không không
Thì thôi ta cứ hết lòng vì nhau
ღღღღღTài sản của Xuân Thanh (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#19
(21-01-14, 02:10 PM)Xuân Thanh Đã viết: 1/ Bạn không làm đúng theo yêu cầu ===> đọc lại hướng dẫn
2/ Muốn làm được thì ( theo file bạn post mới nhất trên mediafire
2.1/ Chọn Microsoft Office 11.0 Libary
2.2/ Trong file Excel, chèn thêm một cột trống phía trước, cột MaSP để ở cột B, cốt ngày bán để ở cột C cho khớp với code
2.2a/ Nếu không sửa file Ex thì sưa code, chổ nào có Range("B")...chuyển thành range("A")...và Range("C") chuyển thành Range("B") do bạn xóa cột A trong file cũ
Thử lại xem
Thân mến

Thank you Bác Xuân Thành, để em thử lại theo hướng dẫn của Bác xem sao.
Chữ ký của connguoi123 Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#20
Cảm ơn Bác Xuân Thanh nhé! đã được mở mang thêm tằm mắt thêm! Nhưng không biết sao mình chạy cứ bị báo lỗi : "Compile error:
User-defined type not defined"
Cả trên office 2003 và office 2010! 030 nên đến giờ chưa được thấy date trong tblsanpham được cập nhật!
Chữ ký của duyennguyen2008 Xin chào, mình là duyennguyen2008, Tham gia http://thuthuataccess.com/forum từ ngày 19-11 -12.
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Hỏi] Cách thêm dữ liệu vào form Main_Sub NganNguyen 1 37 Hôm qua, 02:23 AM
Bài mới nhất: maidinhdan
  [Help] Cập nhật combobox 2 từ combobox 1 (dữ liệu ở nhiều bảng) votinh.tq 6 208 22-11-16, 11:34 PM
Bài mới nhất: votinh.tq
Photo [Hỏi] Mở Form trên access 2007 báo lỗi jason 5 194 22-11-16, 09:23 AM
Bài mới nhất: jason
  [Hỏi] Tổng hợp dữ liệu theo thời gian hoanghai902 1 140 21-10-16, 09:55 PM
Bài mới nhất: maidinhdan
  Chèn file văn bản word vào access danhxetnghiem 10 448 11-10-16, 03:42 PM
Bài mới nhất: danhxetnghiem

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ