Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > 综合其它

某些宏在UMV平台中不可用,不知道原因

时 间:2008-10-08 16:21:50
作 者:ME   ID:17  城市:秦皇岛
摘 要:编程过程中,碰到这么一个问题,新建一宏,在设计状态,直接运行,成功,可是在UMV平台中,点击相应的功能按钮,却失效。不知道是什么原因,困惑……
请高手解释一下。
正 文:

2008-10-8日,在用UMV平台做一个打开后缀名为EXE文件,开始是这么做的。新建一个窗体,加入一个命令控件。在控件的单击事件中,写了如下代码:

Private Sub cmdFtp_Click()
    On Error GoTo Err_cmdFtp_Click

    Dim stAppName As String

    stAppName = CurrentProject.Path & "\LeapFTP\LeapFTP.exe"
    Call Shell(stAppName, 1)

Exit_cmdFtp_Click:
    Exit Sub

Err_cmdFtp_Click:
    MsgBox Err.Description
    Resume Exit_cmdFtp_Click

End Sub

然后在UMV平台中引用。正常。

心里想,UMV平台的功能按钮设置的对象类型可设为宏。我想干脆用宏实现得了,免得做个窗体。

于是在模块中加入以下函数

'打开本系统路径下的绿色软件LeapFTP
Public Function OpenFtp()
    On Error Resume Next
    'On Error GoTo Err_OpenFtp

    Dim stAppName As String

    stAppName = CurrentProject.Path & "\LeapFTP\LeapFTP.exe"
    Call Shell(stAppName, 1)

Exit_OpenFtp:
    Exit Function

Err_OpenFtp:
    MsgBox Err.Description
    Resume Exit_OpenFtp

End Function

然后新建一宏,宏名为OPENLEAPFTP,操作为RUNCODE,函数名称为OPENFTP()

保存宏,点!号的运行按钮,成功。

退出设计状态,直接打开UMV平台,点击对应的功能按钮,无法打开,失效。

哎,不知道是什么原因。

如果有谁能知道,请帮忙解释一下。

 



Access软件网QQ交流群 (群号:54525238)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助