TKSoft-Online

Public Function GetAccessVersion() As Variant
'*******************************************
'Name:      GetAccessVersion (Function)
'Purpose:   ermittelt die aktuelle Accessversion
'Author:    Thomas Keßler
'Date:      Januar 28, 2003, 04:55:06
'Inputs:
'Output:
'*******************************************
On Error GoTo GetAccessVersion_err

  GetAccessVersion = SysCmd(acSysCmdAccessVer)
  
GetAccessVersion_Exit:
    Exit Function

GetAccessVersion_err:
    MsgBox Err.Number & "  " & Err.Description
    Resume GetAccessVersion_Exit
End Function