• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Khắc phục lỗi ứng dụng Access khi đưa sang máy tính khác

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Thành viên giúp nhau
  • Khắc phục lỗi ứng dụng Access khi đưa sang máy tính khác
• Khắc phục lỗi ứng dụng Access khi đưa sang máy tính khác

• Khắc phục lỗi ứng dụng Access khi đưa sang máy tính khác

  tt1212 > 18-05-15, 10:48 PM

  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ử xem. ai 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 

• Bài trước Bài tiếp