-
02-10-2011, 08:25 PM #1Silver member
- Ngày tham gia
- Oct 2015
- Bài viết
- 149
Code không chạy khi chuyển từ Access 2003 sang Access 2010
Nhờ các huỵnh xem dùm em đoạn code này khi chạy trên Aceess 2003 bình thường. Nhưng khi chạy trên Access 2010 thì báo lỗi. Đoạn code này dùng để trích lưu số liệu:
Private Sub TrichHoSo_Click()
DoCmd.GoToControl "Xong"
On Error GoTo TrichXong
Dim MyWorkSpace As Workspace, MyData As Database
Dim WorkFile As String, WorkTable As String
WorkFile = FullPathName
Set MyWorkSpace = DBEngine.Workspaces(0)
Set MyData = MyWorkSpace.CreateDatabase(WorkFile, dbLangGeneral, dbEncrypt)
WorkTable = "CaSanXuat"
DoCmd.TransferDatabase acExport, "Microsoft Access", [WorkFile], _
acTable, "Trich Luu - CaSanXuat", [WorkTable], False
WorkTable = "NguyenLieu"
DoCmd.TransferDatabase acExport, "Microsoft Access", [WorkFile], _
acTable, "Trich Luu - NguyenLieu", [WorkTable], False
WorkTable = "ThanhPham"
DoCmd.TransferDatabase acExport, "Microsoft Access", [WorkFile], _
acTable, "Trich Luu - ThanhPham", [WorkTable], False
WorkTable = "PhuPham"
DoCmd.TransferDatabase acExport, "Microsoft Access", [WorkFile], _
acTable, "Trich Luu - PhuPham", [WorkTable], False
MyMessage = "Da hoan tat viec luu Du lieu : "
MyMessage = MyMessage & Chr(13) & "Tu ngay : " & ThangNao & " Den ngay :" & NamNao
MyMessage = MyMessage & Chr(13) & "Vao tap tin :" & WorkFile
MsgBox MyMessage
Exit Sub
TrichXong:
MsgBox "Xin thong cam! Da bi loi khi luu du lieu." & WorkTable
Exit Sub
End Sub
// Trích lưu không được nên nó cứ báo lỗi "Xin thong cam! Da bi loi khi luu du lieu"
Giúp dùm em nhé!View more random threads:
- Máy chủ vừa là máy khác
- Thêm Nhiều Record Chỉ Bằng Một Nút Nhấn
- hướng dẫn cách tạo autorun cho powerpoint
- Cho mình hỏi có cách nào để kiểm tra 1 Control có nhận Focus hay không ?
- Vấn đề với sự kiện BeforeDelConfirm ?
- Code Access lỗi khi chạy trên win7-64bit
- Học Access bằng cách xây dựng một ứng dụng cụ thể - Quản lý Mua và Bán hàng - Phần 1 - Mô tả
- Không chạy được query trong ACCESS!
- Cho mình hỏi về hàm Sleep với !
- Làm sao cho số thứ tự nó liên tục
-
02-11-2011, 12:21 AM #2Junior Member
- Ngày tham gia
- Nov 2015
- Bài viết
- 0
Ðề: Code không chạy khi chuyển từ Access 2003 sang Access 2010
Dim MyWorkSpace As DAO.WorkSpace, MyDatabase As DAO.Database
Set MyWorkSpace = DAO.DBEngine.Workspaces(0)
Thử xem sao.
-
02-11-2011, 08:02 PM #3Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Code không chạy khi chuyển từ Access 2003 sang Access 2010
Không được rùi anh ơi. Em thử làm theo nhưng nó vẫn báo lỗi tượng tự.
-
02-11-2011, 08:44 PM #4Junior Member
- Ngày tham gia
- Dec 2015
- Bài viết
- 0
Ðề: Code không chạy khi chuyển từ Access 2003 sang Access 2010
bạn thử dubug xem lỗi ở dòng code nào
-
02-12-2011, 04:04 PM #5Junior Member
- Ngày tham gia
- Nov 2015
- Bài viết
- 0
Ðề: Code không chạy khi chuyển từ Access 2003 sang Access 2010
Nó vẫn hiện lên thông báo tương tự hà. Nó không thể hiện lỗi mới chết đó chứ.
-
02-12-2011, 05:50 PM #6Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Code không chạy khi chuyển từ Access 2003 sang Access 2010
Ở ngay cái note TrichXong, dưới hoặc trên MsgBox, cho cái MsgBox Err.Number & Err.Description, coi hệ thống hiện lỗi gì để biết đường mà bug.
-
02-21-2011, 12:12 AM #7Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Code không chạy khi chuyển từ Access 2003 sang Access 2010
Gửi bởi lamsoft2
Thân
-
02-22-2011, 03:31 AM #8Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Code không chạy khi chuyển từ Access 2003 sang Access 2010
Huhu, không chạy rùi.
Mình bẫy lỗi thì nó báo lỗi 3001 tức là Invalid Argument của dòng code
Set MyData = MyWorkSpace.CreateDatabase(WorkFile, dbLangGeneral, dbEncrypt)
Mấy anh em giúp mình với!
-
02-22-2011, 05:57 PM #9Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Code không chạy khi chuyển từ Access 2003 sang Access 2010
Gửi bởi lamsoft2
Giá thu hẹp vùng kín và thu hẹp vùng kín ở đâu tốt nhất Đà Nẵng? Đây là chủ đề được rất nhiều chị em quan tâm, trong quá trình tìm hiểu để làm đẹp vùng tam giác nhớ thương của mình. Hãy cùng tìm hiểu...
Khám phá nơi tốt nhất ở Đà Nẵng để tiến hành thu hẹp vùng kín: giá cả và chất lượng