TopPicLogo TopPicText

Версия MS Access - проверка

Версии MSA 97-2003 и 2007-2010 имеют много отличий - иногда не вредно проверить на чём работает аппликация.

Public Function IsMSAver2007AndUp() As Boolean
Dim iAppVer As Currency
' Проверка версии MS Access
' es - 18.01.2013
' Функция вернёт TRUE если текущая версия MS Access больше 2003
' т.е. есть новые своиства. Конкретно: Ленты (Ribbons)
'--------------------------------------------------------------------
On Error GoTo IsMSAver2007AndUp_Err
    iAppVer = CCur(Mid(Application.Version, 1, 2)) 'Версия MS Access
    
    If iAppVer > 11 Then 'Версия MS Access 2007 и выше (не 2003)
        IsMSAver2007AndUp = True
    End If

IsMSAver2007AndUp_Bye:
    Exit Function

IsMSAver2007AndUp_Err:
    'MsgBox "Error " & Err.Number & vbCrLf & Err.Description & vbCrLf & _
    "in procedure IsMSAver2007AndUp", vbCritical, "Error!"
    IsMSAver2007AndUp = False
    Resume IsMSAver2007AndUp_Bye
End Function
Назад ToTop
L.E. 18.01.2013
Рейтинг@Mail.ru