چک کردن ورژن اکسس

[abas1388]

با سلام
در برنامه اکسس و با کد های زیر میتوان چک کرد که اگر ورژن اکسس مخالف 11 (آفیس 2003 ) بود از برنامه خارج شود ولی این کد در محیط وبی جواب نمیدهد. لطفاًراهنمائی فرمائید در محیط وبی بجای کد فوق چه کدی را باید بکار برد.
با تشکر




Function GetVersion() As String
GetVersion = SysCmd(acSysCmdAccessVer)
End Function










Private Sub Form_Load()

If GetVersion() <> "11.0" Then

DoCmd.Quit
End If
End Sub

[محسن واژدی]

سلام علیکم
از دستور زیر استفاده کنید:

Public Function AccessVersion&()
On Error Resume Next
Dim objApp
Set objApp = CreateObject("Access.Application")
AccessVersion& = CLng(objApp.Version)
objApp.Quit
Set objApp = Nothing
End Function


موفق باشید

[abas1388]

سلام علیکم
از دستور زیر استفاده کنید:

Public Function AccessVersion&()
On Error Resume Next
Dim objApp
Set objApp = CreateObject("Access.Application")
AccessVersion& = CLng(objApp.Version)
objApp.Quit
Set objApp = Nothing
End Function


موفق باشید
سلام
عالی بودجناب mohsenvj
ممنون