Access交流网
电 话:0760-88315075
热 线:0760-88315075
邮 编:528463
咨询QQ:1918333016
营销QQ:4008553990
Email:1918333016@qq.com
贴两个函数,用来获取版本号及判断是否运行版本:
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