Office中国论坛/Access中国论坛

标题: 请教检测access的方法 [打印本页]

作者: guoya 时间: 2003-10-3 07:32
标题: 请教检测access的方法
我对vb几乎不通，编了一个程序，检测电脑中是否安装access xp,如果已经安装
直接拷贝安装access应用程序，如果尚未安装，提示安装access xp或运行时
程序经调试通过，但是效率很差，如果系统中未安装access,在运行Set AccessApp = CreateObject("Access.Application")语句时，系统题是错误信息，然后经过很长时间的反应，才显示exit_sub:内容，请问该程序应如何改进，提示的错误信息如何自定义。

Private Sub Form_Load()
Me.Hide'隐藏窗体
Dim AccessApp As Object

On Error GoTo exit_sub:
Set AccessApp = CreateObject("Access.Application")

If AccessApp.version >= 10# Then
Shell App.Path & "\setup.exe"'运行安装程序
End If
Exit Sub

exit_sub:

MsgBox "安装程序检测到系统没有安装ACCESS XP" & Chr(13) & _
"即将安装ACCESS XP运行时,你也可以先退出,安装完ACCESS XP后再运行安装程序"
Shell App.Path & "\runtime\setup.exe"'安装运行时程序
Exit Sub
End Sub

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)