Как программно определить версию MS Access 2010 или любой другой?

[smoky]

Не силен в программировании, но тем не менее столкнулся с проблемой. Необходимо использовать БД на разных компах, соответственно установлено разное ПО - 64 и 32 разрядные версии аксеса. Проблема с разрядностью решена, но вот как сделать чтобы она решалась не руками перед началом использования БД (правка кода), а автоматом?

[Teslenko_EA]

Здравствуйте smoky.
надеюсь Вам будет полезен подобный код:

Dim sVer$
sVer = Application.Version
If Val(sVer) = 11 Then 'A2003
    ...
ElseIf Val(sVer) = 12 Then 'A2007
    ...
Else
    ...
End If

Евгений.

[Abrakadabra]

Либо так:

If SysCmd(acSysCmdAccessVer) = "12.0" Then'2007
.............
.............

[smoky]

Я наверно что то не так делаю... Создан модуль, в General Declarations было прописано:
Private Declare PtrSafe Function... и так далее для 64 битной версии
Private Declare Function... для 32 битной
Я перед использованием каждый раз комментил соответствующие строки...

Пытаюсь создать там же согласно вашим подсказкам (в 32 битной версии) - при открытии любой формы сыпятся ошибки... Чувствую решение где то рядом, но вот пока что никак не нашел его

[smoky]

Нашел более изящное решение:

#If VBA7 Then
    Private Declare PtrSafe Function....
#Else
   Private Declare Function....
#End If