<output id="os3gq"><ruby id="os3gq"></ruby></output>

    1. <mark id="os3gq"></mark>
    2. Access培訓
      網站公告
      ·Access快速平臺QQ群號:84825014    ·Access快速開發平臺下載地址及教程    ·歡迎添加微信交流賬號:AccessoftChu    ·如何快速搜索本站文章|示例|資料    
      您的位置: 首頁 > 技術文章 > Access數據庫-模塊/函數/VBA

      【Access引用】丟失:Microsoft word 15.0 object Library

      時 間:2014-11-24 16:17:37
      作 者:布魯斯   ID:31999  城市:中山
      摘 要:公司升級office365,導致在office365環境下開發的ACCESS版本在office2010環境中不能執行(XP系統居多)。冥思苦想,終于想到折中的解決辦法。

      access引用一般的原理:從本地PC種讀取系統類庫(可以簡單理解為C盤的 System 32),直接引用其中的dll、olb等文件。

      升級版本會遇到問題:就是在開發PC上有的,客戶端不一定有。導致【丟失:XXXXXX】的引用錯誤。
      正 文:

      類庫引用


      公司升級office365,導致在office365環境下開發的ACCESS版本在office2010環境中不能執行(XP系統居多)。冥思苦想,終于想到折中的解決辦法。


      access引用一般的原理:從本地PC種讀取系統類庫(可以簡單理解為C盤的 System 32),直接引用其中的dll、olb等文件。

      升級版本會遇到問題:就是在開發PC上有的,客戶端不一定有。導致【丟失:XXXXXX】的引用錯誤。

                  

      分析:既然客戶端不一定有該dll、olb文件,那么一起直接給他就行了

      過程:

          1、新建文件夾【Library】

      點擊圖片看大圖

       

          2、將你想要的引用文件放在該文件夾下(具體引用路徑可以參考這個示例:http://www.beijingfeeling.com/article-show.asp?id=8984

          3、將客戶端ACCESS和Library 放在同個文件目錄下

          4、代碼編寫

              4.1、客戶端登陸界面加入自動引用代碼:(最好做成一個模塊,方便以后各個不同的access引用)

                  '針對的是【missing:XXXX】引用的情況。

       '折中的情況
      Function M_ResetReferences()

      On Error GoTo fexit:

           Dim REFE As References     '聲明REFE為引用
           Dim strFileName As String   '聲明strFileName為文本型變量
           Dim rf
           Set REFE = Application.References
      ''    For Each rf In REFE                           '在引用中循環查找,將已經引用的移除
      '''        Debug.Print rf.Name
      ''        Select Case rf.Name
      ''        Case "Word"
      ''            Application.References.Remove rf      '移除
      ''        End Select
      ''    Next
           strFileName = CurrentProject.Path & "\Library\MSWORD.OLB"           'dll文件存放位置
           If Len(Dir(strFileName)) > 0 Then
               Set rf = Application.References.AddFromFile(strFileName)
      '        MsgBox "引用成功!"
           Else
               MsgBox "引用不存在!"
           End If
          
      fexit:
      '    Debug.Print Err.Description, Err.Number
           If Err.Number = 32813 Then
      '        MsgBox "引用已經存在!" & vbCrLf & "無需再引用??!", vbExclamation
           End If
               Exit Function
      End Function

       

          5、完成上面的步驟,你就可以打包程序發布出去(我直接弄成壓縮包發出去,小系統不用搞得太麻煩?。?

         

       

      注意:

          在發布前先把開發中的引用清除掉。不然系統仍然會報錯的。(原因就是,在打開窗體之前,系統就會檢測引用,如果引用高級的版本,它照樣報錯。大家多想想,這里就不再說了)



      Access軟件網官方交流QQ群 (群號:198348076)       access源碼網店

      最新評論 查看更多評論(1)

      2014/11/25 19:16:11大音稀聲
      這個在MDE中應該就失效了。

      發表評論您的評論將提升作者分享的動力!快來評論一下吧!

      用戶名:
      密 碼:
      內 容:
       

      常見問答

      技術分類

      相關資源

      最新帖子

      關于我們 | 服務條款 | 在線投稿 | 友情鏈接 | 網站統計 | 網站幫助