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/)
Powered by Discuz! X3.3