Đá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 Nhận lập trình ứng dụng Access, PHP, C#  và hỗ trợ các bạn viết phần mềm ĐT:0989.276.236
Email. Tantriviet.vnn@gmail.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
  [Hỏi] Sao lưu file MDB và tạo lệnh phục hồi dữ liệu hoangminh 5 239 17-08-17, 03:54 PM
Bài mới nhất: cpucloi
  Chuyển đổi Access 97 sang Access 2007 huuduy.duy 6 381 11-08-17, 08:49 PM
Bài mới nhất: tranthanhan1962
  [Help] Tự tính đơn giá theo nhiều điều kiện phuongmda 10 477 17-07-17, 10:21 PM
Bài mới nhất: phuongmda
  Nên bắt đầu với Access và VBA như thế nào? lehongduc 17 738 15-07-17, 02:51 AM
Bài mới nhất: tranthanhan1962
  Sửa các VBA và macaro khi chuyển access 2003 sang 2007 thanhtruong 9 621 24-06-17, 01:15 AM
Bài mới nhất: maidinhdan

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ơ