Tùy chọn
Tìm và tự động nhập dự liệu từ excel và table hoặc query
- Tìm và tự động nhập dự liệu từ excel và table hoặc query
-
Tìm và tự động nhập dự liệu từ excel và table hoặc query
connguoi123 > 18-09-13, 04:22 PM
Xin chào các Bác,
Em lại xin làm phiền các bác việc sau :
Em có 1 bảng dữ liệu , và một file Excel :
1) Table : Tblsanpham , gồm 2 trường
-Trường Sanpham : sẽ có tên các sản phẩm ví dụ SP1,SP2,SP3......SP10...
-Trường DateSale : là trường ngày bán sản phẩm đó.
2) File Excel : reportSale , gồm 2 cột :
-Cột Sanpham : sẽ có các tên từ SP1, SP3, SP5, SP6......v..v.
-Cột Ngày bán ứng với từ sản phẩm trên.
Yêu cầu : Em xin các bác hướng dẫn :
1) Cách làm sao link được dữ liệu của cột Ngày Bán trong file excel vào trường DateSale trong table access. Tất nhiên phải đúng dữ liệu của sản phẩm tương ứng trong file excel và Table access .
2) Nếu khi link dữ liệu, phát hiện thấy sản phẩm trong file Excel khác hoặc không có trong table thì sẽ hiện ra thông báo để người dùng biết.
Mong các Bác chỉ giáo.Thank you các BÁc trước
-
RE: Tìm và tự động nhập dự liệu từ excel và table hoặc query
DustWind > 11-11-13, 02:35 AM
Sao đọc mà chẳng hiểu !!! dùng LINK ???? new idea chắc, 1 ngày nào thua bạc casino, tự free access changing thay đổi 1 triệu thành 1 cent .
Structure và logic ko có make sense . Thôi cậu vào chỗ này mà luyện công Access và Excel . Cách merge từ Access vào Excel và ngược lại . Cậu chỉ được phép upđate từ Excel (ngày và sản phẩm bán) vào LastRow trong database . Cậu mà được phép mở database thì ông chủ thành chủ xị
Here is the link to learn ADO & DAO
http://www.erlandsendata.no/english/inde...t=envbadac -
RE: Tìm và tự động nhập dự liệu từ excel và table hoặc query
connguoi123 > 12-11-13, 09:20 AM
(11-11-13, 02:35 AM)DustWind Đã viết: Sao đọc mà chẳng hiểu !!! dùng LINK ???? new idea chắc, 1 ngày nào thua bạc casino, tự free access changing thay đổi 1 triệu thành 1 cent .
Structure và logic ko có make sense . Thôi cậu vào chỗ này mà luyện công Access và Excel . Cách merge từ Access vào Excel và ngược lại . Cậu chỉ được phép upđate từ Excel (ngày và sản phẩm bán) vào LastRow trong database . Cậu mà được phép mở database thì ông chủ thành chủ xị
Here is the link to learn ADO & DAO
http://www.erlandsendata.no/english/inde...t=envbadac
***************************
Thank you Bác DustWin,
Vậy nếu em import dữ liệu từ file excel vào 1 template table, rồi sau đó làm cách nào đó để update field ngày vào table chính có được không ?
Em có link file ở đây, Bác có thể chỉ giáo giúp em được không ? http://upfile.vn/c90c55
Tks You. -
RE: Tìm và tự động nhập dự liệu từ excel và table hoặc query
Minh Tiên > 12-11-13, 04:13 PM
Bạn hãy tham khảo đoạn code này nhé ! Mình trích từ ứng dụng của mình. MÌnh nhập tạm vào 1 Table Tam và dùng Query q"ryUpdate_Nhaphangmuavao" lọc theo điều kiện txtNhaphangmuavaoID, sau đó Update vào danh sách hàng hóa (Table chính).
Bạn biến tấu theo yêu cầu của bạn nhé !Mã:Function Update() As Boolean
On Error GoTo Loi_Err
Update = False
Dim rs As DAO.Recordset
Dim Dieukien As Integer
Dieukien = Forms!frmNhaphangmuavao!txtNhaphangmuavaoID
Dim qr As DAO.QueryDef
Set qr = CurrentDb().QueryDefs("qryUpdate_Nhaphangmuavao")
qr.Parameters("Forms!frmNhaphangmuavao!txtNhaphangmuavaoID") = Dieukien
Set rs = qr.OpenRecordset()
Dim rsup As DAO.Recordset
Set rsup = CurrentDb.OpenRecordset("tblHanghoa")
rsup.Index = "Primarykey"
If rs.RecordCount > 0 Then
rs.MoveFirst
Do Until rs.EOF
rsup.Seek "=", rs!Mahang
If rsup.NoMatch Then
rsup.AddNew
rsup!Mahang = rs!Mahang
rsup!Tenhang = rs!Tenhang
rsup!Donvitinh = rs!Donvitinh
rsup!Nhomhang = rs!Nhomhang
rsup!Nganhhang = rs!Nganhhang
rsup!Soluongton = rs!Soluongnhap
rsup!Giaban = rs!Giaban
rsup!Gianhap = rs!Gianhap
rsup.Update
Else
rsup.Edit
rsup!Soluongton = rsup!Soluongton + rs!Soluongnhap
rsup!Giaban = rs!Giaban
rsup!Gianhap = rs!Gianhap
rsup.Update
End If
rs.MoveNext
Loop
rs.Close: rsup.Close
End If
Update = True
Loi_Exit:
Exit Function
Loi_Err:
MsgBox "Error " & Err.Description & " in Update of clsHanghoa !"
Resume Loi_Exit
End Function
Chúc bạn thành công ! Thân chào. -
RE: Tìm và tự động nhập dự liệu từ excel và table hoặc query
connguoi123 > 12-11-13, 05:54 PM
(12-11-13, 04:13 PM)tmtien261 Đã viết: Bạn hãy tham khảo đoạn code này nhé ! Mình trích từ ứng dụng của mình. MÌnh nhập tạm vào 1 Table Tam và dùng Query q"ryUpdate_Nhaphangmuavao" lọc theo điều kiện txtNhaphangmuavaoID, sau đó Update vào danh sách hàng hóa (Table chính).
Bạn biến tấu theo yêu cầu của bạn nhé !Mã:Function Update() As Boolean
On Error GoTo Loi_Err
Update = False
Dim rs As DAO.Recordset
Dim Dieukien As Integer
Dieukien = Forms!frmNhaphangmuavao!txtNhaphangmuavaoID
Dim qr As DAO.QueryDef
Set qr = CurrentDb().QueryDefs("qryUpdate_Nhaphangmuavao")
qr.Parameters("Forms!frmNhaphangmuavao!txtNhaphangmuavaoID") = Dieukien
Set rs = qr.OpenRecordset()
Dim rsup As DAO.Recordset
Set rsup = CurrentDb.OpenRecordset("tblHanghoa")
rsup.Index = "Primarykey"
If rs.RecordCount > 0 Then
rs.MoveFirst
Do Until rs.EOF
rsup.Seek "=", rs!Mahang
If rsup.NoMatch Then
rsup.AddNew
rsup!Mahang = rs!Mahang
rsup!Tenhang = rs!Tenhang
rsup!Donvitinh = rs!Donvitinh
rsup!Nhomhang = rs!Nhomhang
rsup!Nganhhang = rs!Nganhhang
rsup!Soluongton = rs!Soluongnhap
rsup!Giaban = rs!Giaban
rsup!Gianhap = rs!Gianhap
rsup.Update
Else
rsup.Edit
rsup!Soluongton = rsup!Soluongton + rs!Soluongnhap
rsup!Giaban = rs!Giaban
rsup!Gianhap = rs!Gianhap
rsup.Update
End If
rs.MoveNext
Loop
rs.Close: rsup.Close
End If
Update = True
Loi_Exit:
Exit Function
Loi_Err:
MsgBox "Error " & Err.Description & " in Update of clsHanghoa !"
Resume Loi_Exit
End Function
Chúc bạn thành công ! Thân chào.
***********************************
Nói thật là mình Amatour lắm, nên nếu đọc code của bạn mình hoa hết cả mắt mà vẫn không rõ . nếu có thể bạn làm cho mình cái query update từ table tạm sang table chính cái trường datesale có được không. rất cảm ơn bạn. -
RE: Tìm và tự động nhập dự liệu từ excel và table hoặc query
Xuân Thanh > 12-11-13, 08:55 PM
Bài này đả tra lời ở đây rồi mà. Up thẳng từ Ex vào Ac
http://thuthuataccess.com/forum/thread-6792-page-2.html -
RE: Tìm và tự động nhập dự liệu từ excel và table hoặc query
connguoi123 > 13-11-13, 07:08 PM
(12-11-13, 08:55 PM)Xuân Thanh Đã viết: Bài này đả tra lời ở đây rồi mà. Up thẳng từ Ex vào Ac
http://thuthuataccess.com/forum/thread-6792-page-2.html
Bác Xuân Thành ơi, thank you Bác rất nhiều, cho em hỏi tý, khi copy cái code vào module rồi, bây giờ muốn gọi cái hàm trong module đó chạy thì làm các nào ( ví dụ tạo 1 nút lệnh trên form, click nút đó thì hàm chạy ), nhưng em không biết làm., bác chỉ giáo em với , em amatour quá.
-
RE: Tìm và tự động nhập dự liệu từ excel và table hoặc query
tuanqtdn > 14-11-13, 11:05 AM
Đúng đấy, Xuân Thanh giúp connguoi123 và cả tuanqtdn nữa đi. Cảm ơn nhiều -
RE: Tìm và tự động nhập dự liệu từ excel và table hoặc query
Xuân Thanh > 14-11-13, 03:05 PM
1/ Tên commandbutton : cmdUpdate
2/ Câu lệnh như sau :
Mã PHP:Private Sub cmdUpdate_Click()
Call CopyExcelToAccess
End Sub
Thân mến -
RE: Tìm và tự động nhập dự liệu từ excel và table hoặc query
connguoi123 > 14-11-13, 07:08 PM
(14-11-13, 03:05 PM)Xuân Thanh Đã viết: 1/ Tên commandbutton : cmdUpdate
2/ Câu lệnh như sau :
Mã PHP:Private Sub cmdUpdate_Click()
Call CopyExcelToAccess
End Sub
Thân mến
************************
Bác Xuân Thành ơi , làm 1 form và tạo 1 Command như bác nói, nhưng vẫn báo lỗi không được, em có file gửi lên đây, nhờ Bác giúp . Tks.
Link file : http://upfile.vn/bbc87f