Версия 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