Đá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
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] link data access 32bit từ máy sử dụng access 64bit thucgia 1 46 25-03-17, 12:25 PM
Bài mới nhất: cpucloi
  Bạn nào có công cụ sửa lỗi File access cho mình với ledangvan 0 48 14-02-17, 11:13 AM
Bài mới nhất: ledangvan
  Tạo ứng dụng Access 2003 chạy qua mạng internet tt1212 12 2,149 10-02-17, 10:57 AM
Bài mới nhất: nguyenduykhanhpt
  Không cho phép sử dụng menu trình khi đã đăng nhập vào? kutieu2016 1 91 04-02-17, 03:44 PM
Bài mới nhất: MTNQ
Question ? cách gán thuộc tính .listindex = giá trị được chọn trong combobox vuga 1 97 08-01-17, 11:42 AM
Bài mới nhất: ongke0711

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ơ