VBA, MS Access MS Access в примерах

Версия MS Access - Полный номер билда

PPublic Function GetAccessBuildNo() As String
'es - 20.10.2021 v001 - Возвращает версию MS Access (полный номер билда)
'----------------------------------------------------------------------------------------------
'Например:
'   2016 = 16.0.4678.1000
'   2021 = 16.0.14430.20306
'---------------------------------------------------------------------------------------
Dim FSO As Object
Dim sResult As String
'---------------------------------------------------------------------------------------
On Error GoTo GetAccessBuildNo_Err

    Set FSO = CreateObject("Scripting.FileSystemObject")

    sResult = SysCmd(acSysCmdAccessDir) & "msaccess.exe"  'Путь к приложению MSA
    sResult = FSO.GetFileVersion(sResult)                 'Читаем версию ...
    
    If Len(sResult) = 0 Then 'Если не получилось, то ничего страшного _
        - обойдёмся тем, что есть под рукой:
        sResult = Application.version & "." & Application.Build & ".0000"
    End If

'Применяем:
    GetAccessBuildNo = sResult

GetAccessBuildNo_End:
    On Error Resume Next
    If Not FSO Is Nothing Then Set FSO = Nothing
    Err.Clear
    Exit Function

GetAccessBuildNo_Err:
    MsgBox "Error " & Err.Number & " (" & Err.Description & ") in Function" & _
           "GetAccessBuildNo - In Module [...].", vbCritical, "Произошла ошибка!"
    Err.Clear
    Resume GetAccessBuildNo_End
End Function



Назад ToTop
L.E. 20.10.2021
Рейтинг@Mail.ru