Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Khắc phục lỗi ứng dụng Access khi đưa sang máy tính khác
#1
Xin chào mọi người sau khi tìm hiểu mình khắc phục lỗi ứng dụng chạy trên máy khác như sau.
-Nhiều ứng dụng khi viết trên máy mình chạy rất tốt là vì ở trên máy mình các thư viện đã được đăng ký nên không có lỗi. khi chép qua máy khác thì bị lỗi vì ở máy người ta các thư viện này chưa đăng ký với windows nên có thê xẩy ra Misting trong thư viện. Do đó ta phải khắc phục tình trạng này.
Nhằm mục đích nếu thừa thì bỏ, thiếu thì bổ sung.
mình sử dụng hai hàm sau đây
Mã PHP:
Function ReferenceFromFile(strFileName As String) As Boolean
  Dim ref 
As Reference
      
         On Error 
GoTo Error_ReferenceFromFile
         References
.AddFromFile (strFileName)
         
ReferenceFromFile True
      
Exit_ReferenceFromFile
:
         Exit Function
   
Error_ReferenceFromFile:
         
ReferenceFromFile False
         Resume Exit_ReferenceFromFile
End 
Function
Function 
AddReference()
Dim strPath1 As String
Dim strPath2 
As String
Dim strPath3 
As String
Dim strPath4 
As String
Dim strPath5 
As String
Dim strPath6 
As String
Dim strPath7 
As String
strPath1 
CurrentProject.Path "\Library\VBE6.DLL"
Call ReferenceFromFile(strPath1)
strPath2 CurrentProject.Path "\Library\msado21.tlb"
Call ReferenceFromFile(strPath2)
strPath3 CurrentProject.Path "\Library\msadox28.tlb"
Call ReferenceFromFile(strPath3)
strPath4 CurrentProject.Path "\library\msjro.dll"
Call ReferenceFromFile(strPath4)
strPath5 CurrentProject.Path "\Library\MSO.DLL"
Call ReferenceFromFile(strPath5)
strPath6 CurrentProject.Path "\library\stdole2.tlb"
Call ReferenceFromFile(strPath7)
strPath6 CurrentProject.Path "\library\MSACC.OLB"
Call ReferenceFromFile(strPath7)
Shell "C:\WINDOWS\system32\regsvr32.exe /s strPath1, vbNormalNoFocus"
Shell "C:\WINDOWS\system32\regsvr32.exe /s strPath2, vbNormalNoFocus"
Shell "C:\WINDOWS\system32\regsvr32.exe /s strPath3, vbNormalNoFocus"
Shell "C:\WINDOWS\system32\regsvr32.exe /s strPath4, vbNormalNoFocus"
Shell "C:\WINDOWS\system32\regsvr32.exe /s strPath5, vbNormalNoFocus"
Shell "C:\WINDOWS\system32\regsvr32.exe /s strPath6, vbNormalNoFocus"
Shell "C:\WINDOWS\system32\regsvr32.exe /s strPath7, vbNormalNoFocus"

End Function
-
viết hai hàm đó trong một Moduel sau đó chạy jhamf AddReference() trong Macro Autoexec là được các bạn thử xemai có kinh nghiệm nào hay hơn không?
-
Chú ý các thư viện mình sẽ đăt trong thư mục Library ứng dụng của mình là OK rồi 
Chữ ký của tt1212 Present Nhận viết phần mềm, hỗ trợ viết phần mềm, hợp tác viết phần mềm trên nên Microsoft Access mọi phiên bản Liên hệ: Mr Đức -989276236. Email: Tantriviet.vnn@gmail.com website:http://www.tantrivietsoft.com/
Reply
Những người đã cảm ơn maidinhdan , Minh Tiên


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Help] Lỗi "A problem occurred while Microsoft Access was communicating with the OLE server thanhoai 1 109 03-11-16, 03:53 PM
Bài mới nhất: maidinhdan
  [Hỏi] Việc set thuộc tính OnClick trong Code toancvp 5 229 31-10-16, 10:14 AM
Bài mới nhất: toancvp
  [Lỗi] Cúp điện ---> lỗi access 2013 biencuong86 3 149 26-10-16, 04:30 PM
Bài mới nhất: maidinhdan
  [Help] Nhờ tạo form lưu hóa đơn nhập, hóa đơn xuất, hàng nhập hàng xuất không cần tính tồn laxx_xxal 1 131 22-09-16, 02:35 PM
Bài mới nhất: Nguyen Hoang Diep
  thay đổi biểu tượng Access dưới thanh Start từ win 7 đến win 10 thanhtruong 7 433 05-08-16, 10:53 PM
Bài mới nhất: hungefi

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ơ