Code không chạy khi chuyển từ Access 2003 sang Access 2010

[lamsoft2]

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é!

 

[phatnq2002]

Ðề: 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.

 

[lamsoft2]

Ðề: 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ự.

 

[tuannhcs]

Ðề: 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

 

[lamsoft2]

Ðề: 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ứ.

 

[phatnq2002]

Ðề: 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.

 

[xuanthanh]

Ðề: 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é!

Thay từ Exit Sub ở đoạn lệnh TrichXong ( ngay trước từ End Sub ) bằng từ Return
Thân

 

[lamsoft2]

Ðề: 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!

 

[phatnq2002]

Ðề: 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!

Invalid Argument nghĩa là các tham số truyền vào không đúng. Vậy bạn phải xem lại cú pháp của hàm CreateDatabase xem những thông số như thế còn đúng không khi ở trong Access 2010