Tùy chọn
Sửa các VBA và macaro khi chuyển access 2003 sang 2007
- Sửa các VBA và macaro khi chuyển access 2003 sang 2007
-
Sửa các VBA và macaro khi chuyển access 2003 sang 2007
thanhtruong > 22-06-17, 11:29 AM
Cho mình hỏi?
khi chuyển chương trình từ Access 2003 lên 2007 thì bị lỗi tùm lum, một số nút in, và một số Code không hoạt động được
Vậy có cách nào để sửa code lại cho đúng hay không mọi người?
Chứ dùng 2003 bị nhiều hạn chế quá. -
RE: Sửa các VBA và macaro khi chuyển access 2003 sang 2007
thanhtruong > 22-06-17, 04:38 PM
Không biết có chương trình nào chuyển code 2003 lỗi sang 2007 không biết?
Mình có các code bị lỗi (báo lỗi chổ Me.Txtmaso)
Code thứ 2 là code này báo lỗi "type mismatch"Mã:If IsNull(Me.Txtmaso) Then
MsgBox "Nhap so can tim vao o ", vbYesNo + vbOKOnly, "Thong bao"
Exit Sub
Else
Dim TB As Recordset
Set TB = Me.RecordsetClone
TB.FindFirst "maso= " & Me.Txtmaso & ""
If TB.NoMatch Then
MsgBox "Khong tim thay so nay"
Else
Me.Bookmark = Me.RecordsetClone.Bookmark
End If
End If
Và code in hóa đơn (lỗi chổ acViewPreview)Mã:On Error GoTo HandleError
Dim strMadungchung As Recordset
Dim so As Recordset
Set so = CurrentDb.OpenRecordset("thuthuat")
Set strMadungchung = CurrentDb.OpenRecordset("SELECT * from Sanpham Where Machung=1")
If strMadungchung.RecordCount > 0 Then
strMadungchung.MoveFirst
Do Until strMadungchung.EOF
so.AddNew
so!maso = Me.maso.Value
so!mathuthuat = strMadungchung!mathuthuat
so!soluong = 1
so.Update
strMadungchung.MoveNext
Loop
End If
Me.ChiTietHD.Requery
HandleExit:
Exit Sub
HandleError:
MsgBox err.Description
Resume HandleExit
Mã:DoCmd.OpenReport "RP_hoadon", acViewPreview, , "[maso] = " & Me.maso -
RE: Sửa các VBA và macaro khi chuyển access 2003 sang 2007
maidinhdan > 22-06-17, 04:47 PM
(22-06-17, 04:38 PM)thanhtruong Đã viết: Không biết có chương trình nào chuyển code 2003 lỗi sang 2007 không biết?
1. Mình có các code bị lỗi (báo lỗi chổ Me.Txtmaso)
2. Code thứ 2 là code này báo lỗi "type mismatch"Mã:TB.FindFirst "maso= " & Me.Txtmaso & ""
3. Và code in hóa đơn (lỗi chổ acViewPreview)Mã:On Error GoTo HandleError
so.AddNew
so!maso = Me.maso.Value
so!mathuthuat = strMadungchung!mathuthuat
so!soluong = 1
so.Update
Mã:DoCmd.OpenReport "RP_hoadon", acViewPreview, , "[maso] = " & Me.maso
Phân tích lỗi:
Lỗi 1 + 2 : Nguyên nhân là kiểu dữ liệu truyền vào ( xem là mã số là kiểu số hay chuỗi)
Nếu là số =>Nếu là chuỗi( string) =>Mã PHP:TB.FindFirst "maso= " & Me.TxtmasoMã PHP:TB.FindFirst "maso= '" & Me.Txtmaso & "'"
Lỗi 3: Lỗi này do thư viện dll trên 2003 và 2007 khác nhau, bạn chỉ cần chọn lại thư viện là nó chạy hà, chứ không cần chuyển code gì cả.
Link hướng dẫn: Hướng Dẫn [Tổng hợp] Tham chiếu Thư viện Access và Lỗi Missing
Dòng nào bắt đầu bằng chữ Missing thì bỏ chọn hết và chọn lại phiên bản cao hơn có trong danh sách.
Access 2007
+ Microsoft Access 12.0 Object Library
+ Thư mục DLL: C:\Program Files\Microsoft Office\Office12 -
RE: Sửa các VBA và macaro khi chuyển access 2003 sang 2007
thanhtruong > 23-06-17, 10:42 AM
1. Bị báo lỗi thế này,
![[Hình: Untitled8f5d6.png]](http://sv1.upsieutoc.com/2017/06/23/Untitled8f5d6.png)
Và cách khắc phục là thay đổi thư viện. mà thư viện của mình là thế này, không biết thay đổi thế nào
![[Hình: Untitled3.png]](http://sv1.upsieutoc.com/2017/06/23/Untitled3.png)
2. Bị lỗi thế này
![[Hình: Untitled2.png]](http://sv1.upsieutoc.com/2017/06/23/Untitled2.png)
Đã chỉnh sửa theo số và chuổi và nó cũng báo lỗi. -
RE: Sửa các VBA và macaro khi chuyển access 2003 sang 2007
ongke0711 > 23-06-17, 11:04 AM
- Bạn sửa đoạn này:
TB.FindFirst "[maso] ='" & Me.Txtmaso & ''"
- Cái thuộc tính Name của Txtmaso của bạn chính xác chưa? -
RE: Sửa các VBA và macaro khi chuyển access 2003 sang 2007
thanhtruong > 23-06-17, 11:29 AM
(23-06-17, 11:04 AM)ongke0711 Đã viết: - Bạn sửa đoạn này:
TB.FindFirst "[maso] ='" & Me.Txtmaso & ''"
- Cái thuộc tính Name của Txtmaso của bạn chính xác chưa?
Thuộc tính của txtmaso là Standard mà đoạn code vẫn lỗi, mình nghi là nó lỗi ở chổ
TB.Findfirst ----------> hình như phải sửa lại là TB.Find
Rồi TB.NoMatch -------------> không biết sửa bằng gì
Mã:If IsNull(Me.Txtmaso) Then
MsgBox "Nhap so TIEP DON can tim vao o ", vbYesNo + vbOKOnly, "Thong bao"
Exit Sub
Else
Dim TB As Recordset
Set TB = Me.RecordsetClone
TB.FindFirst "[maso] ='" & Me.Txtmaso & "'"
If TB.NoMatch Then
MsgBox "Khong tim thay so TIEP DON nay"
Else
Me.Bookmark = Me.RecordsetClone.Bookmark
End If
End If -
RE: Sửa các VBA và macaro khi chuyển access 2003 sang 2007
MTNQ > 23-06-17, 11:33 AM
Bạn sửa tất cả dòng nào có khai báo biến Dim X as Recordset lại thành Dim X as DAO.Recordset. ví dụ Dim TB As DAO.Recordset
-Nhớ thêm tham chiếu đến thư viện DAO -
RE: Sửa các VBA và macaro khi chuyển access 2003 sang 2007
thanhtruong > 23-06-17, 11:56 AM
(23-06-17, 11:33 AM)MTNQ Đã viết: Bạn sửa tất cả dòng nào có khai báo biến Recordset lại thành DAO.Recordset. ví dụ Dim TB As DAO.Recordset
-Nhớ thêm tham chiếu đến thư viện DAO
Mình đã tham chiếu thư viện và sủa code theo thế này và ok
Mã:If IsNull(Me.Txtmaso) Then
MsgBox "Nhap so TIEP DON can tim vao o ", vbYesNo + vbOKOnly, "Thong bao"
Exit Sub
Else
Dim TB As Recordset
Set TB = Me.RecordsetClone
TB.FindFirst "maso= " & Me.Txtmaso
If TB.NoMatch Then
MsgBox "Khong tim thay so TIEP DON nay"
Else
Me.Bookmark = Me.RecordsetClone.Bookmark
End If
End If
Mà không biết thư viện này khi qua máy khác có cần khai báo lại không hay là chỉ khai báo cái chương trình mình không thôi??? -
RE: Sửa các VBA và macaro khi chuyển access 2003 sang 2007
MTNQ > 23-06-17, 12:17 PM
(23-06-17, 11:56 AM)thanhtruong Đã viết: Mình đã tham chiếu thư viện và sủa code theo thế này và ok
...
Mà không biết thư viện này khi qua máy khác có cần khai báo lại không hay là chỉ khai báo cái chương trình mình không thôi???
-Về biến Recordset thì bạn nên khai báo tường minh thuộc DAO hay ADO (Ví dụ lỗi thứ 2 "Method... not found" là do biến Recordset đang được tham chiếu đến thư viện ADO)
-Các khai báo thư viện tham chiếu thường sẽ không cần khai báo lại khi copy ứng dụng sang máy khác (trừ các trường hợp lỗi missing như bạn Dân có đề cập) -
RE: Sửa các VBA và macaro khi chuyển access 2003 sang 2007
maidinhdan > 24-06-17, 01:15 AM
(23-06-17, 11:56 AM)thanhtruong Đã viết: Mình đã tham chiếu thư viện và sủa code theo thế này và ok
[code]If IsNull(Me.Txtmaso) Then
MsgBox "Nhap so TIEP DON can tim vao o ", vbYesNo + vbOKOnly, "Thong bao"
Exit Sub
Else
Dim TB As Recordset
Set TB = Me.RecordsetClone
TB.FindFirst "maso= " & Me.Txtmaso
If TB.NoMatch Then
MsgBox "Khong tim thay so TIEP DON nay"
Else
Me.Bookmark = Me.RecordsetClone.Bookmark
End If
End If
Mà không biết thư viện này khi qua máy khác có cần khai báo lại không hay là chỉ khai báo cái chương trình mình không thôi???
* Xin có vài lời góp ý về bạn và thư viện bạn đang tham chiếu.
1. Nếu chịu đọc kỹ bài đầu tiên gửi cho bạn thì đâu làm phiền các cao thủ trả lời do chỉ sửa do sai tham số kiểu số ( kiểu số Number): mà đoạn trên tôi đã ghi rất rõ còn đánh dấu. Bản thân nên rút kinh nghiệm xương máu về vấn đề này, Lý do tôi nhắc để bạn nhớ tôi suốt đời. Và yêu cầu bạn đọc lại bài #2 tôi viết phía trên.
2. Về thư viện thì bạn chọn 1 đống như thế rất dễ lỗi nếu chuyển qua máy khác không cùng office.
Gợi ý: Tắt từng cái và dùng lệnh Debug/compile, Nếu cái nào bạn check bỏ mà nó không báo lỗi thì bỏ nó luôn. Nếu báo lỗi vào check chọn lại. ok
3. Y như anh MTNQ nhắc bạn, nên khai báo tường minh lệnh gọi Recorset tham chiếu đến thư viện ADO hoặc DAO như vậy sẽ tốt hơn.
Thân mến!