Office中国论坛/Access中国论坛

标题: 获取版本号及判断是否运行版本 [打印本页]

作者: admin 时间: 2004-5-20 22:49
标题: 获取版本号及判断是否运行版本
贴两个函数,用来获取版本号及判断是否运行版本:

Function GetAccessVersion() As String '获取版本号

  GetAccessVersion =SysCmd(acSysCmdAccessVer)

End Function

Function IsRuntime()                         '判断是否运行版本

On Error GoTo ErrIsRuntime

IsRuntime =SysCmd(6)

ExitIsRuntime:

      Exit Function

ErrIsRuntime:

If (Err =5) Then

      IsRuntime =False

Else

      Error Err

End If

Resume ExitIsRuntime

End Function

作者: tmtony 时间: 2004-5-21 04:30
请注意：在高版本未测试过。

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