access开发平台--移动文件夹后出现“鼠标移动”错误的解决方法，作为事件属性设置而输入的表达式“MouseMove”产生了如下错误：在将ActiveX控件加载进某一窗体或报表时出错。

来源:http://www.accessoft.com 点击数:104874 　 | 收藏 | 复制

时　间:2011-05-31 00:02:14
作　者:红尘如烟 ID：10768 城市：成都
摘　要:Access开发平台--移动文件夹后出现鼠标移动错误的解决方法
正　文:

Access开发平台文件夹位置改变后，或者拷贝到其他电脑上，平台出现鼠标移动错误的提示，如下图：

手动解决方案：
原因：文件夹移动后，Access会自动查找引用文件（首先在当前文件夹），然后更新引用路径，但是这个自动更新引用只更新了VBA中的引用，而表达式管理器中的引用没有更新，必须要手动在代码界面中点菜单——工具——引用，重新引用时，才能更新。

彻底解决这个问题的办法：将所有在表达式中用到的平台代码库文件中的函数，在前台创建一个同名函数，然后在函数中调用代码库中的源函数。即在前台数据库中新建任意一个模块，将下面的代码粘贴进去，任意命名并保存，如果还有其它函数，做同样处理。

Function re_login()
re_login = [Microsoft Access Help].re_login()
End Function

Function labMoveOn(intNum As Integer)
labMoveOn = [Microsoft Access Help].labMoveOn(intNum)
End Function

Function labMouseDown(intNum)
labMouseDown = [Microsoft Access Help].labMouseDown(intNum)
End Function

Function MouseOnClick(CmdNumber As Integer)
MouseOnClick = [Microsoft Access Help].MouseOnClick(CmdNumber)
End Function

Function menulabMouseClick(intNum As Integer)
menulabMouseClick = [Microsoft Access Help].menulabMouseClick(intNum)
End Function

Function menulabOnMouseDown(intNum As Integer)
menulabOnMouseDown = [Microsoft Access Help].menulabOnMouseDown(intNum)
End Function

Function menulabMoveOn(intNum As Integer)
menulabMoveOn = [Microsoft Access Help].menulabMoveOn(intNum)
End Function

Function selectrecord()
selectrecord = [Microsoft Access Help].selectrecord
End Function

Access网店: