用Access开发平台时会遇到如下图的错误:↓

原因是移动了程序文件夹 代码库文件引用地址被移了位置，解决方法是重新引用新地址里面的代码库文件acchelp.umv，但每次手工引用不方便。我在登录界面上加了个选项”重置模块“

代码如下：

Private Sub REF_Acchelp()                                                                         
    On Error Resume Next                                                                          
    Dim REFE As Reference                                                                         
    Dim strFileName As String                                                                      
    Dim REF As String                                                                              

    Set REFE = Application.References![Microsoft Access Help]                                       
    REF = REFE.Name                                                                                
    Application.References.Remove REFE                                                             
  
    strFileName = CurrentProject.Path & "\Acchelp.umv"                                             
    Set REFE = Application.References.AddFromFile(strFileName)                                      
    MsgBox REFE.Name & "重新引用完毕"                                                           
End Sub